Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) SOAP demoemision.thefactoryhka.com.pa DescargaPDFMake a SOAP call to http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc with SOAPAction http://tempuri.org/IService/DescargaPDF
Use ChilkatAx-win32.pkg Procedure Test Handle hoHttp Boolean iSuccess Handle hoXml String sStrXml String sEndPoint Variant vResp Handle hoResp Integer iStatusCode Handle hoXmlResp String sTemp1 Boolean bTemp1 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // -------------------------------------------------------------------------------- // Also see Chilkat's Online WSDL Code Generator // to generate code and SOAP Request and Response XML for each operation in a WSDL. // -------------------------------------------------------------------------------- Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // First build this SOAP XML request body: // Use this online tool to generate the code from sample XML: // Generate Code to Create XML // <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:ser="http://schemas.datacontract.org/2004/07/Services.Model"> // <soapenv:Header/> // <soapenv:Body> // <tem:DescargaPDF> // <tem:tokenEmpresa>?</tem:tokenEmpresa> // <tem:tokenPassword>?</tem:tokenPassword> // <tem:datosDocumento> // <ser:codigoSucursalEmisor>?</ser:codigoSucursalEmisor> // <ser:numeroDocumentoFiscal>?</ser:numeroDocumentoFiscal> // <ser:puntoFacturacionFiscal>?</ser:puntoFacturacionFiscal> // <ser:serialDispositivo>?</ser:serialDispositivo> // <ser:tipoDocumento>?</ser:tipoDocumento> // <ser:tipoEmision>?</ser:tipoEmision> // </tem:datosDocumento> // </tem:DescargaPDF> // </soapenv:Body> // </soapenv:Envelope> Get Create (RefClass(cComChilkatXml)) To hoXml If (Not(IsComObjectCreated(hoXml))) Begin Send CreateComObject of hoXml End Set ComTag Of hoXml To "soapenv:Envelope" Get ComAddAttribute Of hoXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess Get ComAddAttribute Of hoXml "xmlns:tem" "http://tempuri.org/" To iSuccess Get ComAddAttribute Of hoXml "xmlns:ser" "http://schemas.datacontract.org/2004/07/Services.Model" To iSuccess Send ComUpdateChildContent To hoXml "soapenv:Header" "" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:tokenEmpresa" "?" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:tokenPassword" "?" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:codigoSucursalEmisor" "?" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:numeroDocumentoFiscal" "?" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:puntoFacturacionFiscal" "?" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:serialDispositivo" "?" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoDocumento" "?" Send ComUpdateChildContent To hoXml "soapenv:Body|tem:DescargaPDF|tem:datosDocumento|ser:tipoEmision" "?" Get ComGetXml Of hoXml To sStrXml Send ComSetRequestHeader To hoHttp "SOAPAction" "http://tempuri.org/IService/DescargaPDF" Send ComSetRequestHeader To hoHttp "Content-Type" "text/xml; charset=utf-8" Move "http://demoemision.thefactoryhka.com.pa/ws/obj/v1.0/Service.svc" To sEndPoint Get ComPostXml Of hoHttp sEndPoint sStrXml "utf-8" To vResp If (IsComObject(vResp)) Begin Get Create (RefClass(cComChilkatHttpResponse)) To hoResp Set pvComObject Of hoResp To vResp End Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get ComStatusCode Of hoResp To iStatusCode If (iStatusCode <> 200) Begin Showln "Non-success status code: " iStatusCode Get ComHeader Of hoResp To sTemp1 Showln "Response header: " sTemp1 Get ComBodyStr Of hoResp To sTemp1 Showln "Response body: " sTemp1 Showln "Unsuccessful." Send Destroy of hoResp Procedure_Return End Get Create (RefClass(cComChilkatXml)) To hoXmlResp If (Not(IsComObjectCreated(hoXmlResp))) Begin Send CreateComObject of hoXmlResp End Get ComBodyStr Of hoResp To sTemp1 Get ComLoadXml Of hoXmlResp sTemp1 To iSuccess Send Destroy of hoResp Get ComGetXml Of hoXmlResp To sTemp1 Showln sTemp1 // Use this online tool to generate parsing code from sample XML: // Generate Parsing Code from XML End_Procedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.