![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) palena.sii.cl getSeed SOAP RequestDemonstrates how to call getSeed SOAP request at palena.sii.cl Note: This example requires Chilkat v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoHttp Integer iResponseStatusCode String sEndPoint Handle hoXml Variant vResp Handle hoResp Handle hoXmlResp String sEmbeddedXml Handle hoXml2 String sSeed String sTemp1 Move False To iSuccess Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Set ComUncommonOptions Of hoHttp To "AllowEmptyHeaders" Send ComSetRequestHeader To hoHttp "SOAPAction" "" // The endpoint for this soap service is: Move "https://palena.sii.cl/DTEWS/CrSeed.jws" To sEndPoint // Send the following SOAP XML // <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:def="http://DefaultNamespace"> // <soapenv:Header/> // <soapenv:Body> // <def:getSeed soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/> // </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:xsi" "http://www.w3.org/2001/XMLSchema-instance" To iSuccess Get ComAddAttribute Of hoXml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema" To iSuccess Get ComAddAttribute Of hoXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess Get ComAddAttribute Of hoXml "xmlns:def" "http://DefaultNamespace" To iSuccess Send ComUpdateChildContent To hoXml "soapenv:Header" "" Get ComUpdateAttrAt Of hoXml "soapenv:Body|def:getSeed" True "soapenv:encodingStyle" "http://schemas.xmlsoap.org/soap/encoding/" To iSuccess Get Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get ComGetXml Of hoXml To sTemp1 Get pvComObject of hoResp to vResp Get ComHttpStr Of hoHttp "POST" sEndPoint sTemp1 "utf-8" "text/xml" vResp To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get ComStatusCode Of hoResp To iResponseStatusCode Showln "Response Status Code: " iResponseStatusCode // You may examine the exact HTTP header sent with the POST like this: Showln "LastHeader:" Get ComLastHeader Of hoHttp To sTemp1 Showln sTemp1 // Examine the XML returned by the web service: Showln "XML Response:" 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 Get ComGetXml Of hoXmlResp To sTemp1 Showln sTemp1 // Use this online tool to generate parsing code from response XML: // Generate Parsing Code from XML // The response is: // <?xml version="1.0" encoding="UTF-8"?> // <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> // <soapenv:Body> // <ns1:getSeedResponse soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="http://DefaultNamespace"> // <ns1:getSeedReturn xsi:type="xsd:string"><?xml version="1.0" encoding="UTF-8"?><SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema"><SII:RESP_BODY><SEMILLA>039159253918</SEMILLA></SII:RESP_BODY><SII:RESP_HDR><ESTADO>00</ESTADO></SII:RESP_HDR></SII:RESPUESTA></ns1:getSeedReturn> // </ns1:getSeedResponse> // </soapenv:Body> // </soapenv:Envelope> // Get the XML contained in the getSeedReturn element: Get ComGetChildContent Of hoXmlResp "soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn" To sEmbeddedXml Showln sEmbeddedXml // The embedded XML is: // <?xml version="1.0" encoding="UTF-8"?> // <SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema"> // <SII:RESP_BODY> // <SEMILLA>039159397998</SEMILLA> // </SII:RESP_BODY> // <SII:RESP_HDR> // <ESTADO>00</ESTADO> // </SII:RESP_HDR> // </SII:RESPUESTA> // Get the seed: Get Create (RefClass(cComChilkatXml)) To hoXml2 If (Not(IsComObjectCreated(hoXml2))) Begin Send CreateComObject of hoXml2 End Get ComLoadXml Of hoXml2 sEmbeddedXml To iSuccess Get ComGetChildContent Of hoXml2 "SII:RESP_BODY|SEMILLA" To sSeed Showln "seed = " sSeed // -------------------------------------------------------------------------------- // Also see Chilkat's Online WSDL Code Generator // to generate code and SOAP Request and Response XML for each operation in a WSDL. // -------------------------------------------------------------------------------- End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.