Search the Community

preciso de descomprimir um tbytes em xml O formato vem em gz em java conseguir fazer o pretendido Preciso de fazer em delphi Codigo java: Em delphi onde o fichheiroin é um TByteDynArray retorna o valor que esta na variavel String compressed content:= Converter(ficheiroin); Form1.Memo4.Lines.Add(content); Esta função converte function Converter(P: TByteDynArray): string; var Buffer: AnsiString; begin SetLength(Buffer, Length(P)); System.Move(P[0], Buffer[1], Length(P)); Result := encodestring(Buffer); end;

Boas! Já busquei na internet e aqui no blog, e só encontrei este comentário de 2013: https://www.portugal-a-programar.pt/forums/topic/57734-utilizar-webservices-da-at/?page=108&tab=comments#comment-516188 Mas que usa o certificate store da clever internet suite. Atualmente, com os componentes nativos do Delphi, existe uma forma de carregar o certificado Sem estar instalado no HTTPRIO? Desde já, obrigado!!

EXTRAIR DADOS DO CARTÃO DE CIDADÃO

Boa tarde! Estou pela primeira vez a tentar integrar a API "netfacturação." de forma a poder faturar com uma aplicação desenvolvida em "Delphi". Está disponível toda a documentação neste site https://login.netfacturacao.pt/DocumentacaoAPI.php?s=documents Usei a ferramenta "WSDL Importer" no Delphi mas o código gerado dá erro. Alguém já utilizou esta ferramenta? Alguém pode ajudar e tentar ver qual é o problema e o que estou a fazer mal? Com os melhores cumprimentos, Nuno Lourenço

Boa tarde. Desenvolvi um programa simples para misturar ficheiros. O programa está a funcionar bem, mas as labels do form apenas mostram o último ficheiro, não vão mostrando os nomes dos ficheiros à medida que são alterados. O procedimento que trata desse ponto é o este: procedure shuffle; Var FileInfo: TSearchRec; Fich, SNum:String; Num, Erro, i:Integer; f:file; begin Randomize; if FindFirst('*.mp3', faArchive, FileInfo) = 0 then begin Repeat Fich:=FileInfo.Name; Frm_Shuffle_MP3.StrNomeOriginal.Caption:=Fich; {Aqui mostra o nome atual} Val(copy(Fich,1,4), Num, Erro); if (Erro=0) and (Fich[5]='_') then begin Delete(Fich,1,5); end; Num:=Random(9999)+1; Str(Num,SNum); For i:=length(SNum) to 3 do SNum:='0'+SNum; Fich:=SNum+'_'+Fich; AssignFile(f,FileInfo.Name); Rename(f,Fich); Frm_Shuffle_MP3.StrNovoNome.Caption:=Fich; {Aqui mostra o nome novo} until FindNext(FileInfo)<>0; FindClose(FileInfo); end; end; experimentei colocar um sleep para o processo ser mais lento e verificar se as labels realmente alteravam ou não e as labels ficam em branco até ao último ficheiro. Alguém sabe a razão deste comportamento? Obrigado

Vou fazer uma coisa que já não vejo há anos aqui no P@P: lançar um debate (ou pelo menos tentar 😐). Há quem diga que Pascal é uma linguagem morta, e alguns dos que apoiam esta frase incluem Delphi na sua opinião. Os maiores users destas linguagens no mundo estão em Portugal e no Brasil. Apesar de haver mais de 200 milhões de pessoas entre os dois países, apenas uma gota de nós programa na linguagem. As linguagens Pascal e Delphi terão futuro a médio e a longo prazo? O que poderá acontecer? Como poderá acontecer? Fica a ideia para um debate saudável. Todos nós aqui sabemos que Pascal e Delphi são potentes - Delphi então é das linguagens mais potentes da actualidade. Estando isso definido à partida, deixo o debate lançado Cumprimentos!

O recente reacender do tópico sobre o Delphi Starter, que passou a gratuito em 2016, lembrou-me que ainda não tinha aqui partilhado uma "novidade mais actual"... Recentemente a Idera, actual detentora da Embarcadero que faz o desenvolvimento, substituiu o produto Delphi Starter pelo novo Delphi Community Edition (CE). Este é basicamente a edição Delphi Professional (incluindo os módulos mobile), apenas com algumas diferenças: Licença comercial limitada a facturação anual de até 5000€ Código fonte da VCL apenas parcial Face à versão Architect, existem algumas diferenças (tal como existem na versão Professional), sendo que a mais sonante é a ausência de compilador para Linux. A Idera prometeu abrir mais o Delphi à comunidade, e esta excelente notícia parece confirmar isso, ainda que possam ainda fazer melhor. Feature Matrix: https://www.embarcadero.com/features/feature-matrix Download do produto: https://www.embarcadero.com/products/delphi/starter/free-download

Até 9 de Setembro a Embarcadero está a oferecer o Delphi 10.1 Berlin Starter. Basta ir ao site, registar, e fazer o download: https://www.embarcadero.com/br/products/delphi/starter/promotional-download Boa programação...

Exmos Estou tentando encerrar meu programa em Lazarus por inatividade. Agradeço orientações.

procedure TfrmCADEXE.BtnIncluirClick(Sender: TObject); begin pilha := Nil; begin if (pilha = Nil) then begin new(pilha); pilha^.Autor := EdtNome_Autor.Text; pilha^.Nome_da_Obra := EdtNome_Obra.Text; pilha^.QTD_Pg := EdtQtd_Pag.Text; pilha^.CEP_Autor := EdtCEP_Autor.Text; pilha^.proximo := nil; end else begin aux := pilha; while (aux^.proximo <> Nil) do new(novo); novo^.Autor := EdtNome_Autor.Text; novo^.Nome_da_Obra := EdtNome_Obra.Text; novo^.QTD_Pg := EdtQtd_Pag.Text; novo^.CEP_Autor := EdtCEP_Autor.Text; novo^.proximo := Nil; aux^.proximo := novo; end; end; ListBox1.Items.Add(pilha^.Autor + ' - ' + pilha^.Nome_da_Obra + ' - ' + pilha^.QTD_Pg + ' - ' + pilha^.CEP_Autor); EdtNome_Autor.Clear; EdtNome_Obra.Clear; EdtQtd_Pag.Clear; EdtCEP_Autor.Clear; end; procedure TfrmCADEXE.BtnRetirarClick(Sender: TObject); begin if (pilha = nil) then begin ShowMessage('Sem Livros para Retirar'); end; if (pilha <> nil) then begin aux := pilha; While(aux^.proximo <> nil) do begin penultimo := aux; aux := aux^.proximo; end; penultimo^.proximo := nil; // O erro é apontado aqui.//Não está excluindo no topo como gostaria. Dispose(aux); end; end; Estou tentando implementar um projeto de empilhar livros. Não esta desempilhando. Help - me.

Olá a todos. É minha primeira postagem no fórum. Fiz um esboço de um projeto onde utiliza estrutura de dados (pilha) utilizando ponteiros. Agora vem o problema, gostaria de fazer este mesmo projeto utilizando componentes visual(botões,edit,memo,mais de um form), Não estou conseguindo desenvolver a lógica. Alguém poderia me dar uma luz? Grato. Program project1; USES crt; Type livro = record nome_livro : String; quant_pag : Integer; autor_livro : String; proximo : ^livro; end; Var n_livro, top, pegar_livro : ^livro; opc : Integer; Begin top := nil; WHILE opc <> 3 DO begin writeln('---------MENU---------'); writeln('|1 - Inserir livro. |'); writeln('|2 - Pegar livro. |'); writeln('|3 - Sair |'); writeln('----------------------'); writeln('Digite a opção: '); readln(opc); writeln; CASE opc OF 1 : begin new(n_livro); writeln('----CADASTRAR LIVROS----'); writeln('Nome do livro: '); readln(n_livro^.nome_livro); writeln('Quantidade de páginas: '); readln(n_livro^.quant_pag); writeln('Nome do autor: '); readln(n_livro^.autor_livro); n_livro^.proximo := top; top := n_livro; end; 2 : begin IF top = nil THEN begin writeln('Acabou os livros.'); readln; end ELSE begin writeln('----LIVRO RETIRADO----'); writeln('Nome do livro: ', top^.nome_livro); writeln('Quantidade de páginas: ', top^.quant_pag); writeln('Autor: ', top^.autor_livro); pegar_livro := top; top := top^.proximo; dispose(pegar_livro); readln; end; end; 3 : opc := 3; ELSE begin writeln('Opção inválida.'); readln; end; end; clrscr; end; End.

Boas é o seguinte estou a usar um webservice em modo de testes queria saber como é que envio o batchid , já importei o wsdl. Sei que o batchList é um objecto do tipo array mas nao encontro a propriedade batchID <v1:getBatches> <v1:batchIdList> <v1:batchId>17727028</v1:batchId> </v1:batchIdList> </v1:getBatches> link: https://www.fidelidade.pt/b2b/PT/b2bplatform/servicesb2b/BrokersIntegration/Paginas/getBatches.aspx já depois de ter o header enviado, da me erro de memoria algum consegue dar uma ajuda.. obrigado var lService: BrokerIntegrationSoap; // pedido Lpedido: getbatches; begi HTTPRIO2.HTTPWebNode.UseUTF8InHeader:=True ; lService := GetBrokerIntegrationSoap(False, '', HTTPRIO2); Lpedido := getBatches.Create; Lpedido.batchIdList.batchId[1]:=337433239; lService.getBatches(Lpedido); end; PAS da importação ******************************************************************** // unit BrokerIntegration; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; const IS_OPTN = $0001; IS_UNBD = $0002; IS_NLBL = $0004; IS_UNQL = $0008; IS_REF = $0080; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Embarcadero types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:anyType - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:date - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:int - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:base64Binary - "http://www.w3.org/2001/XMLSchema"[Gbl] getBatches = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } searchBatchesResponse = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } getBatchesResponse = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } BatchIdListType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } ArrayOfApplicationalUser = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } ArrayOfApplicationalUserSystem = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } ArrayOfSystemUser = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } ArrayOfSystemUserSystem = class; { "urn:/microsoft/multichannelframework/"[GblCplx] } OperationResultType = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblCplx] } operationResult = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblElm] } ErrorNativeEntryType = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblCplx] } ErrorType = class; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblCplx] } searchBatches = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[Lit][GblElm] } AxisValues2 = class; { "urn:/microsoft/multichannelframework/"[Hdr][GblCplx] } AxisValues = class; { "urn:/microsoft/multichannelframework/"[Hdr][GblElm] } BatchInfoType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } BatchDataListType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } BatchListType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } BatchDataType = class; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblCplx] } {$SCOPEDENUMS ON} { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblSmpl] } DeliveredType = (YES, NO); { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblSmpl] } BatchDataFormatType = (CSV, XML); {$SCOPEDENUMS OFF} // ************************************************************************ // // XML : getBatches, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // getBatches = class(TRemotable) private FbatchIdList: BatchIdListType; public constructor Create; override; destructor Destroy; override; published property batchIdList: BatchIdListType read FbatchIdList write FbatchIdList; end; // ************************************************************************ // // XML : searchBatchesResponse, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // searchBatchesResponse = class(TRemotable) private FoperationResult: operationResult; FbatchList: BatchListType; FbatchList_Specified: boolean; procedure SetbatchList(Index: Integer; const ABatchListType: BatchListType); function batchList_Specified(Index: Integer): boolean; public constructor Create; override; destructor Destroy; override; published property operationResult: operationResult Index (IS_REF) read FoperationResult write FoperationResult; property batchList: BatchListType Index (IS_OPTN) read FbatchList write SetbatchList stored batchList_Specified; end; // ************************************************************************ // // XML : getBatchesResponse, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // getBatchesResponse = class(TRemotable) private FoperationResult: operationResult; FbatchDataList: BatchDataListType; FbatchDataList_Specified: boolean; procedure SetbatchDataList(Index: Integer; const ABatchDataListType: BatchDataListType); function batchDataList_Specified(Index: Integer): boolean; public constructor Create; override; destructor Destroy; override; published property operationResult: operationResult Index (IS_REF) read FoperationResult write FoperationResult; property batchDataList: BatchDataListType Index (IS_OPTN) read FbatchDataList write SetbatchDataList stored batchDataList_Specified; end; Array_Of_ErrorNativeEntryType = array of ErrorNativeEntryType; { "urn:fidelidade.com/schema/SharedResources/OperationResult/V1"[GblUbnd] } Array_Of_BatchDataType = array of BatchDataType; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblUbnd] } Array_Of_BatchInfoType = array of BatchInfoType; { "urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1"[GblUbnd] } Array_Of_long = array of Int64; { "http://www.w3.org/2001/XMLSchema"[GblUbnd] } // ************************************************************************ // // XML : BatchIdListType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchIdListType = class(TRemotable) private FbatchId: Array_Of_long; public function GetInt64Array(Index: Integer): Int64; procedure SetInt64Array(Index: Integer; const Item: Int64); function GetInt64ArrayLength: Integer; procedure SetInt64ArrayLength(Len: Integer); property Int64Array[Index: Integer]: Int64 read GetInt64Array write SetInt64Array; default; property Len: Integer read GetInt64ArrayLength write SetInt64ArrayLength; published property batchId: Array_Of_long Index (IS_UNBD) read FbatchId write FbatchId; end; Array_Of_string = array of string; { "http://www.w3.org/2001/XMLSchema"[GblUbnd] } // ************************************************************************ // // XML : ArrayOfApplicationalUser, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfApplicationalUser = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : ArrayOfApplicationalUserSystem, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfApplicationalUserSystem = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : ArrayOfSystemUser, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfSystemUser = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : ArrayOfSystemUserSystem, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // ************************************************************************ // ArrayOfSystemUserSystem = class(TRemotable) private FItem: Array_Of_string; FItem_Specified: boolean; procedure SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); function Item_Specified(Index: Integer): boolean; public function GetstringArray(Index: Integer): string; procedure SetstringArray(Index: Integer; const Item: string); function GetstringArrayLength: Integer; procedure SetstringArrayLength(Len: Integer); property stringArray[Index: Integer]: string read GetstringArray write SetstringArray; default; property Len: Integer read GetstringArrayLength write SetstringArrayLength; published property Item: Array_Of_string Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read FItem write SetItem stored Item_Specified; end; // ************************************************************************ // // XML : OperationResultType, global, <complexType> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // OperationResultType = class(TRemotable) private Fsucceeded: Boolean; Ferror: ErrorType; Ferror_Specified: boolean; procedure Seterror(Index: Integer; const AErrorType: ErrorType); function error_Specified(Index: Integer): boolean; public destructor Destroy; override; published property succeeded: Boolean read Fsucceeded write Fsucceeded; property error: ErrorType Index (IS_OPTN) read Ferror write Seterror stored error_Specified; end; // ************************************************************************ // // XML : operationResult, global, <element> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // operationResult = class(OperationResultType) private published end; // ************************************************************************ // // XML : ErrorNativeEntryType, global, <complexType> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // ErrorNativeEntryType = class(TRemotable) private Fcode: string; Fmessage_: string; Fdetail: Variant; Fdetail_Specified: boolean; Fsource: string; Fsource_Specified: boolean; procedure Setdetail(Index: Integer; const AVariant: Variant); function detail_Specified(Index: Integer): boolean; procedure Setsource(Index: Integer; const Astring: string); function source_Specified(Index: Integer): boolean; published property code: string read Fcode write Fcode; property message_: string read Fmessage_ write Fmessage_; property detail: Variant Index (IS_OPTN) read Fdetail write Setdetail stored detail_Specified; property source: string Index (IS_OPTN) read Fsource write Setsource stored source_Specified; end; // ************************************************************************ // // XML : ErrorType, global, <complexType> // Namespace : urn:fidelidade.com/schema/SharedResources/OperationResult/V1 // ************************************************************************ // ErrorType = class(TRemotable) private Fcode: string; Fmessage_: string; Fdetail: Variant; Fdetail_Specified: boolean; Fsource: string; Fsource_Specified: boolean; Fnative: Array_Of_ErrorNativeEntryType; Fnative_Specified: boolean; procedure Setdetail(Index: Integer; const AVariant: Variant); function detail_Specified(Index: Integer): boolean; procedure Setsource(Index: Integer; const Astring: string); function source_Specified(Index: Integer): boolean; procedure Setnative(Index: Integer; const AArray_Of_ErrorNativeEntryType: Array_Of_ErrorNativeEntryType); function native_Specified(Index: Integer): boolean; public destructor Destroy; override; published property code: string read Fcode write Fcode; property message_: string read Fmessage_ write Fmessage_; property detail: Variant Index (IS_OPTN) read Fdetail write Setdetail stored detail_Specified; property source: string Index (IS_OPTN) read Fsource write Setsource stored source_Specified; property native: Array_Of_ErrorNativeEntryType Index (IS_OPTN or IS_UNBD) read Fnative write Setnative stored native_Specified; end; // ************************************************************************ // // XML : searchBatches, global, <element> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // searchBatches = class(TRemotable) private FfromDate: TXSDate; FtoDate: TXSDate; Ftype_: string; Ftype__Specified: boolean; Fdelivered: DeliveredType; Fdelivered_Specified: boolean; procedure Settype_(Index: Integer; const Astring: string); function type__Specified(Index: Integer): boolean; procedure Setdelivered(Index: Integer; const ADeliveredType: DeliveredType); function delivered_Specified(Index: Integer): boolean; public constructor Create; override; destructor Destroy; override; published property fromDate: TXSDate read FfromDate write FfromDate; property toDate: TXSDate read FtoDate write FtoDate; property type_: string Index (IS_OPTN) read Ftype_ write Settype_ stored type__Specified; property delivered: DeliveredType Index (IS_OPTN) read Fdelivered write Setdelivered stored delivered_Specified; end; // ************************************************************************ // // XML : AxisValues, global, <complexType> // Namespace : urn:/microsoft/multichannelframework/ // Info : Header // ************************************************************************ // AxisValues2 = class(TSOAPHeader) private FUser: string; FSolution: string; FSolutionUser: string; FSolutionUser_Specified: boolean; FBusinessTarget: string; FBusinessTarget_Specified: boolean; FSaF: string; FSaF_Specified: boolean; FSolutionSession: string; FSolutionSession_Specified: boolean; FDelegation: string; FDelegation_Specified: boolean; FCommercialChannel: string; FCommercialChannel_Specified: boolean; FCommunicationsProtocol: string; FCommunicationsProtocol_Specified: boolean; FApplicationalUser: ArrayOfApplicationalUser; FApplicationalUser_Specified: boolean; FApplicationalUserSystem: ArrayOfApplicationalUserSystem; FApplicationalUserSystem_Specified: boolean; FSystemUser: ArrayOfSystemUser; FSystemUser_Specified: boolean; FSystemUserSystem: ArrayOfSystemUserSystem; FSystemUserSystem_Specified: boolean; FProxy: Integer; procedure SetSolutionUser(Index: Integer; const Astring: string); function SolutionUser_Specified(Index: Integer): boolean; procedure SetBusinessTarget(Index: Integer; const Astring: string); function BusinessTarget_Specified(Index: Integer): boolean; procedure SetSaF(Index: Integer; const Astring: string); function SaF_Specified(Index: Integer): boolean; procedure SetSolutionSession(Index: Integer; const Astring: string); function SolutionSession_Specified(Index: Integer): boolean; procedure SetDelegation(Index: Integer; const Astring: string); function Delegation_Specified(Index: Integer): boolean; procedure SetCommercialChannel(Index: Integer; const Astring: string); function CommercialChannel_Specified(Index: Integer): boolean; procedure SetCommunicationsProtocol(Index: Integer; const Astring: string); function CommunicationsProtocol_Specified(Index: Integer): boolean; procedure SetApplicationalUser(Index: Integer; const AArrayOfApplicationalUser: ArrayOfApplicationalUser); function ApplicationalUser_Specified(Index: Integer): boolean; procedure SetApplicationalUserSystem(Index: Integer; const AArrayOfApplicationalUserSystem: ArrayOfApplicationalUserSystem); function ApplicationalUserSystem_Specified(Index: Integer): boolean; procedure SetSystemUser(Index: Integer; const AArrayOfSystemUser: ArrayOfSystemUser); function SystemUser_Specified(Index: Integer): boolean; procedure SetSystemUserSystem(Index: Integer; const AArrayOfSystemUserSystem: ArrayOfSystemUserSystem); function SystemUserSystem_Specified(Index: Integer): boolean; public destructor Destroy; override; published property User: string Index (IS_UNQL) read FUser write FUser; property Solution: string Index (IS_UNQL) read FSolution write FSolution; property SolutionUser: string Index (IS_OPTN or IS_UNQL) read FSolutionUser write SetSolutionUser stored SolutionUser_Specified; property BusinessTarget: string Index (IS_OPTN or IS_UNQL) read FBusinessTarget write SetBusinessTarget stored BusinessTarget_Specified; property SaF: string Index (IS_OPTN or IS_UNQL) read FSaF write SetSaF stored SaF_Specified; property SolutionSession: string Index (IS_OPTN or IS_UNQL) read FSolutionSession write SetSolutionSession stored SolutionSession_Specified; property Delegation: string Index (IS_OPTN or IS_UNQL) read FDelegation write SetDelegation stored Delegation_Specified; property CommercialChannel: string Index (IS_OPTN or IS_UNQL) read FCommercialChannel write SetCommercialChannel stored CommercialChannel_Specified; property CommunicationsProtocol: string Index (IS_OPTN or IS_UNQL) read FCommunicationsProtocol write SetCommunicationsProtocol stored CommunicationsProtocol_Specified; property ApplicationalUser: ArrayOfApplicationalUser Index (IS_OPTN or IS_UNQL) read FApplicationalUser write SetApplicationalUser stored ApplicationalUser_Specified; property ApplicationalUserSystem: ArrayOfApplicationalUserSystem Index (IS_OPTN or IS_UNQL) read FApplicationalUserSystem write SetApplicationalUserSystem stored ApplicationalUserSystem_Specified; property SystemUser: ArrayOfSystemUser Index (IS_OPTN or IS_UNQL) read FSystemUser write SetSystemUser stored SystemUser_Specified; property SystemUserSystem: ArrayOfSystemUserSystem Index (IS_OPTN or IS_UNQL) read FSystemUserSystem write SetSystemUserSystem stored SystemUserSystem_Specified; property Proxy: Integer Index (IS_UNQL) read FProxy write FProxy; end; // ************************************************************************ // // XML : AxisValues, global, <element> // Namespace : urn:/microsoft/multichannelframework/ // Info : Header // ************************************************************************ // AxisValues = class(AxisValues2) private published end; // ************************************************************************ // // XML : BatchInfoType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchInfoType = class(TRemotable) private FbatchId: Int64; Fdate: TXSDate; Ftype_: string; Fdelivered: DeliveredType; FbatchDataFormat: BatchDataFormatType; FbatchDataFormatVersion: string; FtotalRecords: Integer; public destructor Destroy; override; published property batchId: Int64 read FbatchId write FbatchId; property date: TXSDate read Fdate write Fdate; property type_: string read Ftype_ write Ftype_; property delivered: DeliveredType read Fdelivered write Fdelivered; property batchDataFormat: BatchDataFormatType read FbatchDataFormat write FbatchDataFormat; property batchDataFormatVersion: string read FbatchDataFormatVersion write FbatchDataFormatVersion; property totalRecords: Integer read FtotalRecords write FtotalRecords; end; // ************************************************************************ // // XML : BatchDataListType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchDataListType = class(TRemotable) private FbatchData: Array_Of_BatchDataType; FbatchData_Specified: boolean; procedure SetbatchData(Index: Integer; const AArray_Of_BatchDataType: Array_Of_BatchDataType); function batchData_Specified(Index: Integer): boolean; public destructor Destroy; override; function GetBatchDataTypeArray(Index: Integer): BatchDataType; procedure SetBatchDataTypeArray(Index: Integer; const Item: BatchDataType); function GetBatchDataTypeArrayLength: Integer; procedure SetBatchDataTypeArrayLength(Len: Integer); property BatchDataTypeArray[Index: Integer]: BatchDataType read GetBatchDataTypeArray write SetBatchDataTypeArray; default; property Len: Integer read GetBatchDataTypeArrayLength write SetBatchDataTypeArrayLength; published property batchData: Array_Of_BatchDataType Index (IS_OPTN or IS_UNBD) read FbatchData write SetbatchData stored batchData_Specified; end; // ************************************************************************ // // XML : BatchListType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchListType = class(TRemotable) private Fbatch: Array_Of_BatchInfoType; Fbatch_Specified: boolean; procedure Setbatch(Index: Integer; const AArray_Of_BatchInfoType: Array_Of_BatchInfoType); function batch_Specified(Index: Integer): boolean; public destructor Destroy; override; function GetBatchInfoTypeArray(Index: Integer): BatchInfoType; procedure SetBatchInfoTypeArray(Index: Integer; const Item: BatchInfoType); function GetBatchInfoTypeArrayLength: Integer; procedure SetBatchInfoTypeArrayLength(Len: Integer); property BatchInfoTypeArray[Index: Integer]: BatchInfoType read GetBatchInfoTypeArray write SetBatchInfoTypeArray; default; property Len: Integer read GetBatchInfoTypeArrayLength write SetBatchInfoTypeArrayLength; published property batch: Array_Of_BatchInfoType Index (IS_OPTN or IS_UNBD) read Fbatch write Setbatch stored batch_Specified; end; // ************************************************************************ // // XML : BatchDataType, global, <complexType> // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BatchDataType = class(TRemotable) private FbatchId: Int64; FbatchData: TByteDynArray; published property batchId: Int64 read FbatchId write FbatchId; property batchData: TByteDynArray read FbatchData write FbatchData; end; // ************************************************************************ // // Namespace : urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1 // soapAction: urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1/%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : document // use : literal // binding : BrokerIntegrationSoap11 // service : BrokerIntegrationService // port : BrokerIntegrationSoap11 // URL : https://sbxb2bconnect.fidelidade.pt/B2B/Integration/BrokerIntegration/V1 // ************************************************************************ // BrokerIntegrationSoap = interface(IInvokable) ['{2592F4A0-3ADE-CEC4-3FBF-90C224FB2BEB}'] // Cannot unwrap: // - More than one strictly out element was found // Headers: AxisValuesMsgPart:pIn function searchBatches(const parameters: searchBatches): searchBatchesResponse; stdcall; // Cannot unwrap: // - More than one strictly out element was found // Headers: AxisValuesMsgPart:pIn function getBatches(const parameters: getBatches): getBatchesResponse; stdcall; end; function GetBrokerIntegrationSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): BrokerIntegrationSoap; implementation uses SysUtils; function GetBrokerIntegrationSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): BrokerIntegrationSoap; const defWSDL = 'C:\Users\Downloads\BrokerIntegrationWSDL\BrokerIntegration.wsdl'; defURL = 'https://sbxb2bconnect.fidelidade.pt/B2B/Integration/BrokerIntegration/V1'; defSvc = 'BrokerIntegrationService'; defPrt = 'BrokerIntegrationSoap11'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as BrokerIntegrationSoap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; constructor getBatches.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getBatches.Destroy; begin SysUtils.FreeAndNil(FbatchIdList); inherited Destroy; end; constructor searchBatchesResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor searchBatchesResponse.Destroy; begin SysUtils.FreeAndNil(FoperationResult); SysUtils.FreeAndNil(FbatchList); inherited Destroy; end; procedure searchBatchesResponse.SetbatchList(Index: Integer; const ABatchListType: BatchListType); begin FbatchList := ABatchListType; FbatchList_Specified := True; end; function searchBatchesResponse.batchList_Specified(Index: Integer): boolean; begin Result := FbatchList_Specified; end; constructor getBatchesResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getBatchesResponse.Destroy; begin SysUtils.FreeAndNil(FoperationResult); SysUtils.FreeAndNil(FbatchDataList); inherited Destroy; end; procedure getBatchesResponse.SetbatchDataList(Index: Integer; const ABatchDataListType: BatchDataListType); begin FbatchDataList := ABatchDataListType; FbatchDataList_Specified := True; end; function getBatchesResponse.batchDataList_Specified(Index: Integer): boolean; begin Result := FbatchDataList_Specified; end; function BatchIdListType.GetInt64Array(Index: Integer): Int64; begin Result := FbatchId[Index]; end; procedure BatchIdListType.SetInt64Array(Index: Integer; const Item: Int64); begin FbatchId[Index] := Item; end; function BatchIdListType.GetInt64ArrayLength: Integer; begin if Assigned(FbatchId) then Result := System.Length(FbatchId) else Result := 0; end; procedure BatchIdListType.SetInt64ArrayLength(Len: Integer); begin System.SetLength(FbatchId, Len); end; function ArrayOfApplicationalUser.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfApplicationalUser.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfApplicationalUser.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfApplicationalUser.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfApplicationalUser.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfApplicationalUser.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; function ArrayOfApplicationalUserSystem.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfApplicationalUserSystem.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfApplicationalUserSystem.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfApplicationalUserSystem.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfApplicationalUserSystem.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfApplicationalUserSystem.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; function ArrayOfSystemUser.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfSystemUser.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfSystemUser.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfSystemUser.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfSystemUser.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfSystemUser.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; function ArrayOfSystemUserSystem.GetstringArray(Index: Integer): string; begin Result := FItem[Index]; end; procedure ArrayOfSystemUserSystem.SetstringArray(Index: Integer; const Item: string); begin FItem[Index] := Item; end; function ArrayOfSystemUserSystem.GetstringArrayLength: Integer; begin if Assigned(FItem) then Result := System.Length(FItem) else Result := 0; end; procedure ArrayOfSystemUserSystem.SetstringArrayLength(Len: Integer); begin System.SetLength(FItem, Len); end; procedure ArrayOfSystemUserSystem.SetItem(Index: Integer; const AArray_Of_string: Array_Of_string); begin FItem := AArray_Of_string; FItem_Specified := True; end; function ArrayOfSystemUserSystem.Item_Specified(Index: Integer): boolean; begin Result := FItem_Specified; end; destructor OperationResultType.Destroy; begin SysUtils.FreeAndNil(Ferror); inherited Destroy; end; procedure OperationResultType.Seterror(Index: Integer; const AErrorType: ErrorType); begin Ferror := AErrorType; Ferror_Specified := True; end; function OperationResultType.error_Specified(Index: Integer): boolean; begin Result := Ferror_Specified; end; procedure ErrorNativeEntryType.Setdetail(Index: Integer; const AVariant: Variant); begin Fdetail := AVariant; Fdetail_Specified := True; end; function ErrorNativeEntryType.detail_Specified(Index: Integer): boolean; begin Result := Fdetail_Specified; end; procedure ErrorNativeEntryType.Setsource(Index: Integer; const Astring: string); begin Fsource := Astring; Fsource_Specified := True; end; function ErrorNativeEntryType.source_Specified(Index: Integer): boolean; begin Result := Fsource_Specified; end; destructor ErrorType.Destroy; var I: Integer; begin for I := 0 to System.Length(Fnative)-1 do SysUtils.FreeAndNil(Fnative[I]); System.SetLength(Fnative, 0); inherited Destroy; end; procedure ErrorType.Setdetail(Index: Integer; const AVariant: Variant); begin Fdetail := AVariant; Fdetail_Specified := True; end; function ErrorType.detail_Specified(Index: Integer): boolean; begin Result := Fdetail_Specified; end; procedure ErrorType.Setsource(Index: Integer; const Astring: string); begin Fsource := Astring; Fsource_Specified := True; end; function ErrorType.source_Specified(Index: Integer): boolean; begin Result := Fsource_Specified; end; procedure ErrorType.Setnative(Index: Integer; const AArray_Of_ErrorNativeEntryType: Array_Of_ErrorNativeEntryType); begin Fnative := AArray_Of_ErrorNativeEntryType; Fnative_Specified := True; end; function ErrorType.native_Specified(Index: Integer): boolean; begin Result := Fnative_Specified; end; constructor searchBatches.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor searchBatches.Destroy; begin SysUtils.FreeAndNil(FfromDate); SysUtils.FreeAndNil(FtoDate); inherited Destroy; end; procedure searchBatches.Settype_(Index: Integer; const Astring: string); begin Ftype_ := Astring; Ftype__Specified := True; end; function searchBatches.type__Specified(Index: Integer): boolean; begin Result := Ftype__Specified; end; procedure searchBatches.Setdelivered(Index: Integer; const ADeliveredType: DeliveredType); begin Fdelivered := ADeliveredType; Fdelivered_Specified := True; end; function searchBatches.delivered_Specified(Index: Integer): boolean; begin Result := Fdelivered_Specified; end; destructor AxisValues2.Destroy; begin SysUtils.FreeAndNil(FApplicationalUser); SysUtils.FreeAndNil(FApplicationalUserSystem); SysUtils.FreeAndNil(FSystemUser); SysUtils.FreeAndNil(FSystemUserSystem); inherited Destroy; end; procedure AxisValues2.SetSolutionUser(Index: Integer; const Astring: string); begin FSolutionUser := Astring; FSolutionUser_Specified := True; end; function AxisValues2.SolutionUser_Specified(Index: Integer): boolean; begin Result := FSolutionUser_Specified; end; procedure AxisValues2.SetBusinessTarget(Index: Integer; const Astring: string); begin FBusinessTarget := Astring; FBusinessTarget_Specified := True; end; function AxisValues2.BusinessTarget_Specified(Index: Integer): boolean; begin Result := FBusinessTarget_Specified; end; procedure AxisValues2.SetSaF(Index: Integer; const Astring: string); begin FSaF := Astring; FSaF_Specified := True; end; function AxisValues2.SaF_Specified(Index: Integer): boolean; begin Result := FSaF_Specified; end; procedure AxisValues2.SetSolutionSession(Index: Integer; const Astring: string); begin FSolutionSession := Astring; FSolutionSession_Specified := True; end; function AxisValues2.SolutionSession_Specified(Index: Integer): boolean; begin Result := FSolutionSession_Specified; end; procedure AxisValues2.SetDelegation(Index: Integer; const Astring: string); begin FDelegation := Astring; FDelegation_Specified := True; end; function AxisValues2.Delegation_Specified(Index: Integer): boolean; begin Result := FDelegation_Specified; end; procedure AxisValues2.SetCommercialChannel(Index: Integer; const Astring: string); begin FCommercialChannel := Astring; FCommercialChannel_Specified := True; end; function AxisValues2.CommercialChannel_Specified(Index: Integer): boolean; begin Result := FCommercialChannel_Specified; end; procedure AxisValues2.SetCommunicationsProtocol(Index: Integer; const Astring: string); begin FCommunicationsProtocol := Astring; FCommunicationsProtocol_Specified := True; end; function AxisValues2.CommunicationsProtocol_Specified(Index: Integer): boolean; begin Result := FCommunicationsProtocol_Specified; end; procedure AxisValues2.SetApplicationalUser(Index: Integer; const AArrayOfApplicationalUser: ArrayOfApplicationalUser); begin FApplicationalUser := AArrayOfApplicationalUser; FApplicationalUser_Specified := True; end; function AxisValues2.ApplicationalUser_Specified(Index: Integer): boolean; begin Result := FApplicationalUser_Specified; end; procedure AxisValues2.SetApplicationalUserSystem(Index: Integer; const AArrayOfApplicationalUserSystem: ArrayOfApplicationalUserSystem); begin FApplicationalUserSystem := AArrayOfApplicationalUserSystem; FApplicationalUserSystem_Specified := True; end; function AxisValues2.ApplicationalUserSystem_Specified(Index: Integer): boolean; begin Result := FApplicationalUserSystem_Specified; end; procedure AxisValues2.SetSystemUser(Index: Integer; const AArrayOfSystemUser: ArrayOfSystemUser); begin FSystemUser := AArrayOfSystemUser; FSystemUser_Specified := True; end; function AxisValues2.SystemUser_Specified(Index: Integer): boolean; begin Result := FSystemUser_Specified; end; procedure AxisValues2.SetSystemUserSystem(Index: Integer; const AArrayOfSystemUserSystem: ArrayOfSystemUserSystem); begin FSystemUserSystem := AArrayOfSystemUserSystem; FSystemUserSystem_Specified := True; end; function AxisValues2.SystemUserSystem_Specified(Index: Integer): boolean; begin Result := FSystemUserSystem_Specified; end; destructor BatchInfoType.Destroy; begin SysUtils.FreeAndNil(Fdate); inherited Destroy; end; destructor BatchDataListType.Destroy; var I: Integer; begin for I := 0 to System.Length(FbatchData)-1 do SysUtils.FreeAndNil(FbatchData[I]); System.SetLength(FbatchData, 0); inherited Destroy; end; function BatchDataListType.GetBatchDataTypeArray(Index: Integer): BatchDataType; begin Result := FbatchData[Index]; end; procedure BatchDataListType.SetBatchDataTypeArray(Index: Integer; const Item: BatchDataType); begin FbatchData[Index] := Item; end; function BatchDataListType.GetBatchDataTypeArrayLength: Integer; begin if Assigned(FbatchData) then Result := System.Length(FbatchData) else Result := 0; end; procedure BatchDataListType.SetBatchDataTypeArrayLength(Len: Integer); begin System.SetLength(FbatchData, Len); end; procedure BatchDataListType.SetbatchData(Index: Integer; const AArray_Of_BatchDataType: Array_Of_BatchDataType); begin FbatchData := AArray_Of_BatchDataType; FbatchData_Specified := True; end; function BatchDataListType.batchData_Specified(Index: Integer): boolean; begin Result := FbatchData_Specified; end; destructor BatchListType.Destroy; var I: Integer; begin for I := 0 to System.Length(Fbatch)-1 do SysUtils.FreeAndNil(Fbatch[I]); System.SetLength(Fbatch, 0); inherited Destroy; end; function BatchListType.GetBatchInfoTypeArray(Index: Integer): BatchInfoType; begin Result := Fbatch[Index]; end; procedure BatchListType.SetBatchInfoTypeArray(Index: Integer; const Item: BatchInfoType); begin Fbatch[Index] := Item; end; function BatchListType.GetBatchInfoTypeArrayLength: Integer; begin if Assigned(Fbatch) then Result := System.Length(Fbatch) else Result := 0; end; procedure BatchListType.SetBatchInfoTypeArrayLength(Len: Integer); begin System.SetLength(Fbatch, Len); end; procedure BatchListType.Setbatch(Index: Integer; const AArray_Of_BatchInfoType: Array_Of_BatchInfoType); begin Fbatch := AArray_Of_BatchInfoType; Fbatch_Specified := True; end; function BatchListType.batch_Specified(Index: Integer): boolean; begin Result := Fbatch_Specified; end; initialization { BrokerIntegrationSoap } InvRegistry.RegisterInterface(TypeInfo(BrokerIntegrationSoap), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(BrokerIntegrationSoap), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1/%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(BrokerIntegrationSoap), ioDocument); InvRegistry.RegisterInvokeOptions(TypeInfo(BrokerIntegrationSoap), ioLiteral); InvRegistry.RegisterHeaderClass(TypeInfo(BrokerIntegrationSoap), AxisValues, 'AxisValuesMsgPart', 'urn:/microsoft/multichannelframework/'); RemClassRegistry.RegisterXSClass(getBatches, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'getBatches'); RemClassRegistry.RegisterSerializeOptions(getBatches, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(searchBatchesResponse, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'searchBatchesResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(searchBatchesResponse), 'operationResult', '[Namespace="urn:fidelidade.com/schema/SharedResources/OperationResult/V1"]'); RemClassRegistry.RegisterSerializeOptions(searchBatchesResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getBatchesResponse, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'getBatchesResponse'); RemClassRegistry.RegisterExternalPropName(TypeInfo(getBatchesResponse), 'operationResult', '[Namespace="urn:fidelidade.com/schema/SharedResources/OperationResult/V1"]'); RemClassRegistry.RegisterSerializeOptions(getBatchesResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_ErrorNativeEntryType), 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'Array_Of_ErrorNativeEntryType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_BatchDataType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'Array_Of_BatchDataType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_BatchInfoType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'Array_Of_BatchInfoType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_long), 'http://www.w3.org/2001/XMLSchema', 'Array_Of_long'); RemClassRegistry.RegisterXSClass(BatchIdListType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchIdListType'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_string), 'http://www.w3.org/2001/XMLSchema', 'Array_Of_string'); RemClassRegistry.RegisterXSClass(ArrayOfApplicationalUser, 'urn:/microsoft/multichannelframework/', 'ArrayOfApplicationalUser'); RemClassRegistry.RegisterXSClass(ArrayOfApplicationalUserSystem, 'urn:/microsoft/multichannelframework/', 'ArrayOfApplicationalUserSystem'); RemClassRegistry.RegisterXSClass(ArrayOfSystemUser, 'urn:/microsoft/multichannelframework/', 'ArrayOfSystemUser'); RemClassRegistry.RegisterXSClass(ArrayOfSystemUserSystem, 'urn:/microsoft/multichannelframework/', 'ArrayOfSystemUserSystem'); RemClassRegistry.RegisterXSClass(OperationResultType, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'OperationResultType'); RemClassRegistry.RegisterXSClass(operationResult, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'operationResult'); RemClassRegistry.RegisterXSClass(ErrorNativeEntryType, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'ErrorNativeEntryType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ErrorNativeEntryType), 'message_', '[ExtName="message"]'); RemClassRegistry.RegisterXSClass(ErrorType, 'urn:fidelidade.com/schema/SharedResources/OperationResult/V1', 'ErrorType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ErrorType), 'message_', '[ExtName="message"]'); RemClassRegistry.RegisterXSInfo(TypeInfo(DeliveredType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'DeliveredType'); RemClassRegistry.RegisterXSClass(searchBatches, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'searchBatches'); RemClassRegistry.RegisterExternalPropName(TypeInfo(searchBatches), 'type_', '[ExtName="type"]'); RemClassRegistry.RegisterSerializeOptions(searchBatches, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(AxisValues2, 'urn:/microsoft/multichannelframework/', 'AxisValues2', 'AxisValues'); RemClassRegistry.RegisterXSClass(AxisValues, 'urn:/microsoft/multichannelframework/', 'AxisValues'); RemClassRegistry.RegisterXSInfo(TypeInfo(BatchDataFormatType), 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchDataFormatType'); RemClassRegistry.RegisterXSClass(BatchInfoType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchInfoType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(BatchInfoType), 'type_', '[ExtName="type"]'); RemClassRegistry.RegisterXSClass(BatchDataListType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchDataListType'); RemClassRegistry.RegisterXSClass(BatchListType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchListType'); RemClassRegistry.RegisterXSClass(BatchDataType, 'urn:fidelidade.com/ws/B2B/Integration/BrokerIntegration/V1', 'BatchDataType'); end.

Embarcadero esta a matar o Datasnap e a tentar enviar os utilizadores para RadServer. Vejam o que o Datasnap deveria ser, a facilidade com que se faz aplicações 3 camadas com RestDataware REST FULL o unico produto no mercado Rest FULL na integra, completamente gratuito. Esta deichando MVP de Embarcadero de boca aberta. RestDataware IntensiveDelphi Não percam dia 21 RESTDATAWARE com Gilberto Rocha as 15H https://thuliobittencourt.kpages.online/intensivedelphi

Fazemos: StringConexao ="ATDT"+numeroTelefone+ #13#10; E fazemos WriteFile( hCommFile, PChar(StringConexao)[0], Length(s), NumberWritten, nil); E a mágica é feita! E o modem liga para um número. Agora preciso fazer o contrário: Ao receber um chamada, SIM, meu modem está recebendo chamadas quando alguém liga para o meu telefone, qual o comando, e em que situação chamar o comando para saber o número do telefone que está me ligando? Se WriteFile() É a responsável por fazer/receber as ligações, então de qual parâmetro eu retiro o número da ligação? Então, No endereço: Comandos Placa Nas últimas 2 linhas, estão os últimos 2 comandos que são: AT&Zn=s Armazenar número telefônico AT&Zn? Exibir número telefônico Como fazer para capturar então o número do telefone na estrutura da minha aplicação? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, spBina; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Memo1: TMemo; RadioButton1: TRadioButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; hCommFile: THandle; Status: LongBool; NumberWritten: DWORD; Buf : array[0..1023] of Byte; s :string; implementation uses ConvUtils; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin //Testa os valores necessários begin //Abre a porta de comunicação s:='COM3'; hCommFile := CreateFile ( PChar(s), GENERIC_WRITE, 0, // não compartilhado nil, // sem segurança OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); // Verifica a abertura da porta if hCommFile = INVALID_HANDLE_VALUE then begin memo1.lines.clear; memo1.lines.add('Não foi possível abrir a porta selecionada.'); memo1.lines.add('Discagem não efetuada'); CloseHandle(hCommFile); end else begin memo1.lines.clear;memo1.lines.add('Discando...'); //Cria a string de comando if radiobutton1.checked then s:='ATDT' else s:='ATDP'; s := s + Edit1.Text + #13#10; //s := 'ATS'+#13#10; memo1.lines.add(s); //Envia a String de Comando NumberWritten:=0; WriteFile( hCommFile, PChar(s)[0], Length(s), NumberWritten, nil); memo1.lines.add('Aguardando Atendimento ...'); MessageDlg('Retire o telefone do gancho e clique OK para desligar o modem',mtInformation,[mbok], 0); //Desconecta a ligação WriteFile(hCommFile,'ATH',5,NumberWritten, nil); //Fecha a porta de comunicação CloseHandle(hCommFile);memo1.lines.add('Modem Desconectado.'#13#10); end; end; end; end. Descobri que fazendo: s := 'ATA+ #13#10; Recebe a ligação: Mas vem junto o barulho do modem E ainda não consigo pegar o número do telefone

estou a tentar salvar uma tmemorystrem mas preciso de fazer o download apenas do que esta no content id se alguem me ajudar pago um café codigo IdSSLIOHandlerSocketOpenSSL1.SSLOptions.KeyFile:= appDir + AllianzKey; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.CertFile:= appDir + AllianzCertificado; IdHTTP1.Request.ContentType := 'application/xop+xml'; IdHTTP1.Request.UserAgent := 'User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36'; IdHTTP1.HandleRedirects := true; IdHTTP1.Request.RawHeaders.Text; try WorkStream:=TMemoryStream.Create; IdHTTP1.Post(URL, Entrada, WorkStream); RichEdit1.Lines.LoadFromStream( WorkStream); // load stream contents into rich WorkStream.Seek(1,soFromCurrent); try finally end; // WorkStream.SaveToFile('c:\temp\test.txt'); // WorkStream.Free; finally WorkStream.SaveToFile('c:\temp\t.zip'); WorkStream.Position := 1; xml da resposta --MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3 Content-Type: application/xop+xml; charset=UTF-8; type="text/xml" Content-Transfer-Encoding: binary Content-ID: <0.8398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org> <?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Body><ns:getFileResponse xmlns:ns="http://ws.allianz.com"><ns:return><swa:DownFileServiceResponse xmlns:swa="http://ws.allianz.com"><swa:msg>&lt;?xml version="1.0" encoding="ISO-8859-1"?>&lt;DownFileResponse>&lt;ReturnCode>0&lt;/ReturnCode>&lt;ReturnText>&lt;/ReturnText>&lt;/DownFileResponse></swa:msg><swa:file href="idfile:PMTP.O0002878.F171031.ZIP"><xop:Include xmlns:xop="http://www.w3.org/2004/08/xop/include" href="cid:1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org"/></swa:file></swa:DownFileServiceResponse></ns:return></ns:getFileResponse></soapenv:Body></soapenv:Envelope> --MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3 Content-Type: application/octet-stream Content-Transfer-Encoding: binary Content-ID: <1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org> PK r_K POLIZA.CSVìK#É‘ û¼ÀþGŸÙYñ~@§H’™Í¾$s{ûVê.µJº…ªja~Óü„¹ :#@'Ýö6˜ÃbìiÿÀ~fô2˜LV¦˜UÅÌ`ø#Ì=,üannnnþål<š£Eùå/¾.¦Åõ¢¬Be1[Y,ÿ>ÇâW–¨ùb66ëŬœ-Ê«mhxµ\¬ÖÅÔ˜.†Åt2*FnªõôÆ™OÜв\ÜLV¼Ì]Í‹Õp2Ï׋Vô°(×….æ£+'^q$Ÿe9¯ÿTNoA´Õ`Û‰wPî<¼;Q‚|'Š`õø¥Øú÷¡>s?fçáx¦…¢€“ùd¨5ºº™ÌŒýÓ'Å|3-þ¢5Ú”•ïæjYÜZx iá\ó¡”Êðï#Sû‹Û¿Î‡“BÃW )ÙúÙèo·Šž‚^—‹©¤\O–â,®_Ž‡ëÅ‹ëñ̬Ʒ›R"‡‹‘Ym®¥™•OVËò?f“õ4»Òp è H¸v $Ls’ßõ¸4CyÃ]1]à]4.€äØ@rlH„B@"\€¸ .@Ò íH„u$¢ê¡RÜ«5 ô3é:”þj-•8¡‰¾ž¹›õ¢œ|«Íâ¿ÿ·/}Ïý0äùRˆ®„<þ‚ öj?îÿÏ_NŠ¹Á½µííÀøÑbF¥ã×îĆm* ¢4ñ¼LÞz7™f¾¸+4⦘A.†Å@ r?ó‚, <C ð‚(ÌOy^ôÂK^øy*õé/<Ÿ@.Ð<€.IÏŒ_ æçI%û`ž¼è¤v)„êeú6”µñlPÅÃ…¹^NfUTÑ[‡žçkqQ­„?ñ²4ô¼<'”Ém±¡[¯HC„á%˱™ñºñÔ¬&³Åxe‚0æ)×ÀÄfd¤òŒÙ©8RWMH¹ÂlàGÄòbA@¢äç lõÍC‰‘_;ûéWo~ÿæ?ß¾ùÉ,_½•6,Á ô¢vš7?þæõ›·?i´1Ûh±` eø¯×ïªç†ñÒÚy_ p÷æûWfùöÍ_}ÿjÀO?ÿªÎŸ´ LæÃé†aŒdX¾y÷ÝOïÌø÷ÿç»÷oß4H?öøà¯_ÿøΔ¯ýöÍ¯ß --MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3 Content-Type: application/xop+xml; charset=UTF-8; type="text/xml" Content-Transfer-Encoding: binary Content-ID: <0.8398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org> <?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Body><ns:getFileResponse xmlns:ns="http://ws.allianz.com"><ns:return><swa:DownFileServiceResponse xmlns:swa="http://ws.allianz.com"><swa:msg>&lt;?xml version="1.0" encoding="ISO-8859-1"?>&lt;DownFileResponse>&lt;ReturnCode>0&lt;/ReturnCode>&lt;ReturnText>&lt;/ReturnText>&lt;/DownFileResponse></swa:msg><swa:file href="idfile:PMTP.O0002878.F171031.ZIP"><xop:Include xmlns:xop="http://www.w3.org/2004/08/xop/include" href="cid:1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org"/></swa:file></swa:DownFileServiceResponse></ns:return></ns:getFileResponse></soapenv:Body></soapenv:Envelope> --MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3 Content-Type: application/octet-stream Content-Transfer-Encoding: binary Content-ID: <1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org> PK r_K POLIZA.CSVìK#É‘ û¼ÀþGŸÙYñ~@§H’™Í¾$s{ûVê.µJº…ªja~Óü„¹ :#@'Ýö6˜ÃbìiÿÀ~fô2˜LV¦˜UÅÌ`ø#Ì=,üannnnþål<š£Eùå/¾.¦Åõ¢¬Be1[Y,ÿ>ÇâW–¨ùb66ëŬœ-Ê«mhxµ\¬ÖÅÔ˜.†Åt2*FnªõôÆ™OÜв\ÜLV¼Ì]Í‹Õp2Ï׋Vô°(×….æ£+'^q$Ÿe9¯ÿTNoA´Õ`Û‰wPî<¼;Q‚|'Š`õø¥Øú÷¡>s?fçáx¦…¢€“ùd¨5ºº™ÌŒýÓ'Å|3-þ¢5Ú”•ïæjYÜZx iá\ó¡”Êðï#Sû‹Û¿Î‡“BÃW )ÙúÙèo·Šž‚^—‹©¤\O–â,®_Ž‡ëÅ‹ëñ̬Ʒ›R"‡‹‘Ym®¥™•OVËò?f“õ4»Òp è H¸v $Ls’ßõ¸4CyÃ]1]à]4.€äØ@rlH„B@"\€¸ .@Ò íH„u$¢ê¡RÜ«5 ô3é:”þj-•8¡‰¾ž¹›õ¢œ|«Íâ¿ÿ·/}Ïý0äùRˆ®„<þ‚ öj?îÿÏ_NŠ¹Á½µííÀøÑbF¥ã×îĆm* ¢4ñ¼LÞz7™f¾¸+4⦘A.†Å@ r?ó‚, <C ð‚(ÌOy^ôÂK^øy*õé/<Ÿ@.Ð<€.IÏŒ_ æçI%û`ž¼è¤v)„êeú6”µñlPÅÃ…¹^NfUTÑ[‡žçkqQ­„?ñ²4ô¼<'”Ém±¡[¯HC„á%˱™ñºñÔ¬&³Åxe‚0æ)×ÀÄfd¤òŒÙ©8RWMH¹ÂlàGÄòbA@¢äç lõÍC‰‘_;ûéWo~ÿæ?ß¾ùÉ,_½•6,Á ô¢vš7?þæõ›·?i´1Ûh±` eø¯×ïªç†ñÒÚy_ p÷æûWfùöÍ_}ÿjÀO?ÿªÎŸ´ LæÃé†aŒdX¾y÷ÝOïÌø÷ÿç»÷oß4H?öøà¯_ÿøΔ¯ýöͯß

boas alguem sabe como posso fazer o download deste tipo de ficheiros em delphi download xml <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> <soapenv:Body> <ns:getFileResponse xmlns:ns="http://ws.allianz.com"> <ns:return> <swa:DownFileServiceResponse xmlns:swa="http://ws.allianz.com"> <swa:msg><![CDATA[<?xml version="1.0" encoding="ISO-8859-1"?><DownFileResponse><ReturnCode>0</ReturnCode><ReturnText></ReturnText></DownFileResponse>]]></swa:msg> <swa:file href="idfile:PMTP.O31.ZIP"> <xop:Include href="cid:1.4d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org" xmlns:xop="http://www.w3.org/2004/08/xop/include"/> </swa:file> </swa:DownFileServiceResponse> </ns:return> </ns:getFileResponse> </soapenv:Body> </soapenv:Envelope> o ficheiro em raw pelo soap ui --MIMEBoundary_6d44449543e7a99b3a238816e4dc50c08847d77a7729c904 Content-Type: application/xop+xml; charset=UTF-8; type="text/xml" Content-Transfer-Encoding: binary Content-ID: <0.7d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org> <?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Body><ns:getFileResponse xmlns:ns="http://ws.allianz.com"><ns:return><swa:DownFileServiceResponse xmlns:swa="http://ws.allianz.com"><swa:msg><?xml version="1.0" encoding="ISO-8859-1"?><DownFileResponse><ReturnCode>0</ReturnCode><ReturnText></ReturnText></DownFileResponse></swa:msg><swa:file href="idfile:PMTP.O31.ZI"><xop:Include xmlns:xop="http://www.w3.org/2004/08/xop/include" href="cid:1.4d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org"/></swa:file></swa:DownFileServiceResponse></ns:return></ns:getFileResponse></soapenv:Body></soapenv:Envelope> --MIMEBoundary_6d44449543e7a99b3a238816e4dc50c08847d77a7729c904 Content-Type: application/octet-stream Content-Transfer-Encoding: binary Content-ID: <1.4d44449543e7a99b3a238816e4dc50c08847d77a7729c904@apache.org> PK���

Como faço pra instalar/ativar o firedac no delphi xe10? Está dando erro de configuração no DataExplorer quando tento criar um banco E dentro do caminho C:\Users\Public\Documents\Embarcadero\Studio\FireDAC só encontro dois arquivos: FDConnectionDefs.ini FDDrivers.ini Será que o firedac não foi instlado junto com o delphi???

Estou tentando criar um WEB SERVICE porém ao criar uma conexão e um banco de dados no Data Explorer dá um erro "DBX error: Driver could not be prperly initializaed" Informando ue está faltando um driver no delphi 10 seattle. O que será isso? Tenho que instalr ou o Firedac ou o dbexpress? Já procurei na internet por download deles mas naõ acho para delphi 10 seattle... alguma luz???

Estou num projeto de aplicativo android... e quando vou digitar algo dentro da Edit ela parece estar bloqueada e não dá pra digitar nada... Obs.: A propriedade Readonly está como false e a propriedade enabled da Edit está como true.

boas preciso de converter este codigo em delphi alguem consegue ajudar-me O web service tem autenticacao por ntlm em php funciona bem porem não consigo fazer o pedido atraves do metodo tenho de por o xml todo...não é normal pois nao

Estoudesenvolvendo um app em delphi xe5 paraandroid só que quando abro no meu tablet e digito algo na edit ele repete o que eu digito.... Ex.: digito N e quando digito A depois aparece na Edit NNA ao invés de NA... Alguém me ajuda ai???

Boas, não consigo abrir meu app Android que criei no DELPHI XE5 no aparelho dá a mensagem O "aplicativo" parou... Alguém sabe o que é??

Olá à todos, Gostaria de me apresentar, Meu nome é José Henrique, sou desenvolvedor Delphi há vários anos ( desde o Delphi 3), sou brasileiro, carioca(nascido no Rio de Janeiro), porém moro no interior de São Paulo, entre as cidades do Rio de Janeiro e São Paulo, tenho 43 anos, casado, tenho uma linda filha de 8 anos. Trabalho numa rede de supermercados no setor de desenvolvimento, onde temos por volta de 20 lojas cada uma com uma média de 25 PDVs, estou focado no sistema de frente de caixa das lojas, o qual é integrado ao Sistema de retaguarda. Tenho uma grande experiência com Delphi win32, e estou a aprender o mundo mobile, Delphi e Lazarus estão na minha zona de conforto, contudo, conheço linguagens como .Net , Java, SQLServer, Oracle. Pretendo participar do fórum com minha experiência e através dele conhecer um pouco mais o mercado de Portugal (um sonho que está florescendo), suas demandas, e suas particularidades, no que diz respeito à Delhi/Lazarus. Sendo assim, espero poder contribuir e usufruir também, trocando conhecimento com todos. Um forte abraço !