Ir para o conteúdo

Pesquisar na Comunidade

A mostrar resultados para tags ''delphi''.



Mais opções de pesquisa

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categorias

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Procurar resultados em...

Pesquisar conteúdos que contêm...


Data de Publicação

  • Início

    Fim


Última Actualização

  • Início

    Fim


Filtrar por número de...

106 resultados

  1. pessantiago

    HTTPRIO DELPHI

    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.
  2. abrito

    DATASNAP (MORREU)

    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
  3. 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
  4. 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?öøà¯_ÿøΔ¯ýöͯß
  5. 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���
  6. nunopicado

    WS-Dll.zip

    Versão 2017.10.27

    827 downloads

    DLL com as funções de encriptação e envio por webservices de documentos de transporte para o servidor da AT Programa demonstração de como usar a DLL ALERTA NOVA VERSÃO: AtWS: Desde 2017-08-23 este projecto está marcado como obsoleto, e não terá nenhum tipo de apoio nesta versão. O projecto segue com o nome AtWS, que pode ser encontrado em github.com/nunopicado/AtWS A nova versão quebra a compatibilidade com a antiga, pela necessidade de melhorar a estrutura do código. No entanto, a compatibilização de código que esteja a usar a WS-DLL não é difícil, já que os parâmetros necessários são os mesmos e no mesmo formato, apenas indicados em locais ligeiramente diferentes. NOTAS: Requer instalação da biblioteca da Microsoft CAPICOM 2.0 (http://www.microsoft.com/pt-pt/download/details.aspx?id=25281) Requer que o certificado esteja instalado no Windows ATENÇÃO: Esta é uma DLL de testes para fins meramente didáticos. Não foi alvo de testes intensivos que seriam necessários para ambiente de produção. Usem por vosso risco. Funções: ValidadePFX (PFXFile,PFXPass:WideString):WideString; Retorna a data de expiração do certificado. Aceita por parâmetro duas strings, em formato UniCode, e retorna uma no mesmo formato. O primeiro parâmetro é o caminho completo para o ficheiro do certificado (Extensão PFX), o segundo leva a password do certificado. A Naming Convention é StdCall, standard do Windows. InitWS(SoapURL,SoapAction:WideString;TimeOut:Integer); Inicializa a DLL. Deve ser chamada antes de qualquer envio de documentos (não precisa ser chamada se for apenas para verificar a validade). Aceita por parâmetro duas strings, em formato UniCode, e um valor inteiro. O primeiro parâmetro é o URL do serviço AT, o segundo é a SOAP Action a usar, o terceiro é o número de segundos para o Timeout. Normalmente, 10 segundos é suficiente. Em máquinas lentas/net lenta, subir um pouco pode ser necessário. A Naming Convention é StdCall, standard do Windows. ValidaTDoc(XMLData,PFXFile,PFXPass:WideString):WideString; Envia um documento de transporte para a AT. Aceita por parâmetro três strings, em formato UniCode. O primeiro parâmetro é o documento a enviar, em formato XML, de acordo com as indicações da AT. As excepções são os campos Password (que deve ir em texto simples, e não encriptado), e os campos Nonce e Created, que devem ir vazios. A DLL encarrega-se de encriptar a password e criar os campos Nonce e Created. Os segundo e terceiro parâmetros são os dados do certificado (caminho completo e password). Retorna uma string, UniCode também, com o XML de resposta da AT, ou uma string vazia caso não haja resposta. A Naming Convention é StdCall, standard do Windows. Requisitos: Para funcionar, é necessário instalar no PC um pacote da Microsoft, chamado CAPICOM v2.0. Este tem também uma dll (capicom.dll) que deve ser registada no Windows (regsvr32 capicom.dll). É necessário também que, no Internet Explorer (mesmo que este não seja usado) se defina nas opções avançadas o TLS 1.2 como desabilitado. Por regra, este protocolo já vinha desabilitado, mas no Windows 8.1, ou no Windows 7/8 com o IE 11 instalado, este protocolo é activado. Deve-se desactivar. É preciso ainda o certificado, de produção ou de testes, atribuído pela AT. O ficheiro ChavePublicaAT, ao contrário do que é costume, aqui não é necessário, pois a chave da AT está embutida no código. AVISO: De notar que esta DLL não foi alvo de testes extensivos, pelo que o seu uso é por conta e risco do utilizador. Eu uso-a, com algumas alterações para fazer face às minhas necessidades, e nunca me deu problema, mas ainda assim, não posso garantir nada.
  7. clovisystem

    Instalar/ativar o firedac no delphi xe10

    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???
  8. 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???
  9. clovisystem

    Não consigo digitar nada dentro da EDIT

    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.
  10. pessantiago

    Como fazer um pedido SOAP em Delphi

    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
  11. clovisystem

    Edit repete caracteres

    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???
  12. clovisystem

    Instalação de app Android

    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 é??
  13. nunopicado

    SendEmail.zip

    Versão v1

    193 downloads

    Miniprograma de demonstração de envio de email, via Delphi, através dos componentes Indy (v9).
  14. josehenrique

    Apresentação - novo no fórum

    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 !
  15. CrominhO

    Delphi e C#

    Fantastico, nas Tags não dá para meter C#, diz caracter invalido lol Anyway, não percebo porque algumas pessoas se afligem quando se trata de comparar Linguagens, pelo contrário, aflige-me exactamente não as comparar, não discutir e passar uma vida inteira a programar na mesma LP sem sequer "olhar para os lados". Há uns tempos um amigo disse-me, sim porque eu não sabia, que o pai do C# era o pai do Delphi, e eu, a programar em Delphi há 20 anitos claro que fiquei logo curioso. Entretanto pesquisei, experimentei e fiz algumas avaliações de APPs desenvolvidas em C# e tenho a dizer que ao contrario daquilo que esperava inicialmente, até gostei. Simples, Clean, agradável. Claro que achei o Studio 2017 demasiadamente parecido com o DX, mas penso que isso faz parte, se um faz bem feito os outros replicam. Se alguém tiver experiencias ou quiser mandar vir a dizer que o Delphi ou o C# é melhor por um ou outro motivo é bem vindo :-) ... o que pretendo é exactamente isso, tentar perceber no que é cada uma das LPs é melhor ou pior e o que isso pode no desenvolvimento. Ja agora deixo um Link com algumas respostas do Anders Hejlsberg porque claro, tive de começar por ele :-) https://jonlennartaasenden.wordpress.com/2016/10/18/why-c-coders-should-shut-up-about-delphi/
  16. celiojedi

    Vagas em Portugal

    Bom dia sou brasileiro, sou programador Delphi aqui no Brasil. Como e o mercado português? Quanto e o ordenado base ? E fácil arrumar empregos ?
  17. Estou tentando fazer essa consulta com ACCESS via ADOQuery pelo Delphi e dá erro na linha ParamByName... O engraçado é que com os outros bancos de dados não dá esse erro ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('SELECT Valor FROM PRODUTOS WHERE MarcaProduto =:Combo2' ); ADOQuery2.ParamByName('Combo2').Value:=ComboBox2.Text; ADOQuery2.Open;
  18. Olá Comunidade P@P, Estou a realizar um projecto de PAP e decidi criar um programa de Gestão de correspondência para a minha escola, e é necessário criar o Manual para o Programa. Meu problema é: Criei um botão para abrir o Manual, e nunca consegui que ele abri-se o manual em formato PDF, deixo aqui algum código que já experimentei: WinExec('C:\Manual.PDF', SW_SHOW); WinExec('C:\Manual.PDF', SW_SHOWNORMAL); Também é possível que o caminho seja o mesmo que está o programa instalado, independentemente onde o usuário coloque ?? OPS: Estou a usar o Delphin 7, numa maquina virtual com o Windows 7. Aguardo pela Resposta!!!
  19. clovisystem

    Erro na instalação de programa Delphi

    Pessoal ao instalar umm programa que desenvolvi em delphi dá erro de banco de dados o err é: ISC ERROR MESSAGE: unavailable database iSC ERROR CODE:335544375 O que faço pra minha aplicação conectar ao banco? utilizei o innosetup pra gerar o pacote de instalação.
  20. Tenho que fazer a exclusão de registro porém um só registro entre vários dup´licados no DELPHI estou usando o Interbase estou usando esse código mas não funciona... IBOQuery5.SQL.Add('DELETE FROM Produtos WHERE (MarcaProduto=(SELECT FIRST 1 TipoProduto FROM Produtos WHERE (MarcaProduto= :Combo2)'); Onde: IBOQuery5é o componente query do Delphi MarcaProdutoé o campo que quero excluir :Combo2é o "ParambyName" do ComboBox.text que retorna o nome do registro pra selecionar e excluir através do código acima. Sugestões??
  21. clovisystem

    DBNavigator vs Query no DELPHI

    O componente DBNavigator funciona com o componente Query no Delphi? Não estou conseguindo deixar o dbnavigator como enabled quando ligo a um Query só fica ativo quando ligo a um Table.. Mas preciso fazer uma consulta e excluir por ele.
  22. clovisystem

    Erro Token Not Found

    Pessoal agora o problema é que ele dá erro de TOKEN NOT FOUND ao realizar esta consulta SQL no Delphi... Quando tiro o LIMIT :Edit1 do código abaixo ele executa bem mais com ele dá esse erro... Alguma sugestão? procedure TForm4.Button1Click(Sender: TObject); begin Try Query5.Close; Query5.SQL.Clear; Query5.SQL.Add('DELETE FROM Produtos WHERE MarcaProduto = :Combo2 LIMIT :Edit1'); Query5.ParamByName('Combo2').Value:=ComboBox2.Text; Query5.ParamByName('Edit1').Value:=StrToInt(Edit); Query5.ExecSQL; //Query5.Open; ShowMessage('Compra finalizada!'); Except Showmessage('Aconteceu um erro...'); end; end;
  23. Ola, Estou enviando a vocês o link da comunidade Dexcommunity.com.br, Telegram Link. https://t.me/DexCommunity a maior e mais ativa comunidade de desenvolvedores Delphi do brasil, temos eventos constantemente programados, um chat legal e descontraído com programadores de todo o Brasil, Mvp´s da embarcadero, universitários e Autodidatas. Quer compartilhar conhecimento, venha fazer parte dessa comunidade. Apoiamos 100% os projetos e os canais dos amigos. https://regys.com.br/ https://www.facebook.com/MVCBr.amarildolacerda/ http://www.ormbr.com.br/ http://www.tireideletra.com.br/ http://www.juliomarmarchetti.com.br/ Junte-se a nós. www.dexcommunity.com.br Telegram Link. https://t.me/DexCommunity
  24. clovisystem

    Consulta personalizada na ComboBox

    Pessoal, criei um form em Delphi e quando tento buscar os dados do banco de dados pra inserir numa ComboBox (combobox3)não aparece os dados... Sendo que esses dados obedecem uma consulta onde escolho o produto e na combo(combobox2) deve aparecer o valor dele no banco de dados. Alguém ajuda??? O código do erro está em destaque Aí vai o código do Button: procedure TForm4.Button5Click(Sender: TObject); begin DBEdit1.Visible:=true; ComboBox3.Visible:=true; Query2.close; Query2.Open; if Query2.IsEmpty then begin ShowMessage('Nenhum valor encontrado'); exit; end else begin Query2.SQL.Add('SELECT DISTINCT Valor FROM Produtos WHERE MarcaProduto = ' + ComboBox2.Text ); ComboBox3.Items.Add(Query1.FieldByName('Valor').AsString); Query2.Next; end end;
  25. tenho um resultado de um web service que vem numa string tenho de converter o mesmo e guardar em zip o resultado isto em delphi estou a tentar fazer assim mas da-me sempre o resultado corrompido . ZipFile := TZipFile.Create; // Indica o diretório e nome do arquivo Zip que será criado ZipFile.Open(GetCurrentDir + '\ArquivosCompactados.zip', zmWrite); // Compacta os arquivos // ZipFile.Add(files); ZipFile.Add('file.zip',decodeBase64(files)); ZipFile.Close; Como me sinto mais a vontade em php tentei isto e funciona se poderem ajudar em delphi agradeço pois não é a minha praia... $zipStr = 'UEsDBBQACAAIABprdEEAAAAAAAAAAAAAAAAWAAAAb2JqZWN0cy9Db250YWN0Lm9iamVjdI2SX0vDMBTF3/cpSt9NOhERyTJCl+Gga6VNBZ9GlmWuI21mk0799ka7P50TXR4C9+R3L5ecg4bvpfK2sjaFrgZ+HwS+JyuhF0X1MvBzNr6684e4h8LGWF0m87UU1nMtlRn4K2s39xAazTfALHUtJBC6hNdBcAuDG1hKyxfcch/3PHeQKox9KuSbaetvbdkoFfNSYqEry4WdpXxdzBE86EdUaNWUlcHjPIpmMZlSBPfSOUTCMMljBv7jwiRmJGSATVh0Efj4kMS0fwlJp2QS/Q2mFOQZTTNAognJfmOXhbKyzoTeSEydSx925Yxx/9PRf9Kd/p0q1eKwVphSwuhoNnL315yvt1Pezay5dXHAShqT1PS14QrBo3yKb7lqJGbJiDwj2BbHjeDZSkjxuVR7v72d363Y5gR2goJgN3i49wlQSwcI3kTEMT8BAACvAgAAUEsDBBQACAAIABprdEEAAAAAAAAAAAAAAAALAAAAcGFja2FnZS54bWxNj00LwjAMhu/7FaN3lzpkiHTdQfDkQUS9StbFWbXtWIsf/96xDzSX5CF53ySieJtH/KTWa2dzNk84i8kqV2lb5+x42MyWrJCR2KG6Y01xN219zq4hNCsA77BJ/MW1ihLlDKScZ8AXYChghQGZjOIuRPg05Ie6Z0Om7FbKtbMBVei0fT7v8aZLAVP7J7BoSG61DydNLwE9Dtbw5y3GP2SaJVzARJGA8XwZfQFQSwcIaf0pNKsAAADwAAAAUEsBAhQAFAAIAAgAGmt0Qd5ExDE/AQAArwIAABYAAAAAAAAAAAAAAAAAAAAAAG9iamVjdHMvQ29udGFjdC5vYmplY3RQSwECFAAUAAgACAAaa3RBaf0pNKsAAADwAAAACwAAAAAAAAAAAAAAAACDAQAAcGFja2FnZS54bWxQSwUGAAAAAAIAAgB9AAAAZwIAAAAA'; // Prepare Tmp File for Zip archive $file = tempnam("tmp", "zip"); $zip = new ZipArchive(); $zip->open($file, ZipArchive::OVERWRITE); // Add contents $zip->addFromString('file.zip', base64_decode($zipStr)); // Close and send to users $zip->close(); header('Content-Type: application/zip'); header('Content-Length: ' . filesize($file)); header('Content-Disposition: attachment; filename="fileaaaa.zip"'); readfile($file); unlink($file);
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.