Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Visual FoxPro) palena.sii.cl getSeed SOAP RequestDemonstrates how to call getSeed SOAP request at palena.sii.cl
LOCAL loHttp LOCAL lnSuccess LOCAL lnResponseStatusCode LOCAL lcEndPoint LOCAL loXml LOCAL loResp LOCAL loXmlResp LOCAL lcEmbeddedXml LOCAL loXml2 LOCAL lcSeed loHttp = CreateObject('Chilkat_9_5_0.Http') * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loHttp.UncommonOptions = "AllowEmptyHeaders" loHttp.SetRequestHeader("SOAPAction","") loHttp.SetRequestHeader("Content-Type","text/xml; charset=utf-8") * The endpoint for this soap service is: lcEndPoint = "https://palena.sii.cl/DTEWS/CrSeed.jws" * 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> loXml = CreateObject('Chilkat_9_5_0.Xml') loXml.Tag = "soapenv:Envelope" loXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") loXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema") loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") loXml.AddAttribute("xmlns:def","http://DefaultNamespace") loXml.UpdateChildContent("soapenv:Header","") loXml.UpdateAttrAt("soapenv:Body|def:getSeed",1,"soapenv:encodingStyle","http://schemas.xmlsoap.org/soap/encoding/") loResp = loHttp.PostXml(lcEndPoint,loXml.GetXml(),"utf-8") IF (loHttp.LastMethodSuccess <> 1) THEN ? loHttp.LastErrorText ? "LastHeader:" ? loHttp.LastHeader RELEASE loHttp RELEASE loXml CANCEL ENDIF lnResponseStatusCode = loResp.StatusCode ? "Response Status Code: " + STR(lnResponseStatusCode) * You may examine the exact HTTP header sent with the POST like this: ? "LastHeader:" ? loHttp.LastHeader * Examine the XML returned by the web service: ? "XML Response:" loXmlResp = CreateObject('Chilkat_9_5_0.Xml') loXmlResp.LoadXml(loResp.BodyStr) ? loXmlResp.GetXml() * 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: lcEmbeddedXml = loXmlResp.GetChildContent("soapenv:Body|ns1:getSeedResponse|ns1:getSeedReturn") ? lcEmbeddedXml * 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: loXml2 = CreateObject('Chilkat_9_5_0.Xml') loXml2.LoadXml(lcEmbeddedXml) lcSeed = loXml2.GetChildContent("SII:RESP_BODY|SEMILLA") ? "seed = " + lcSeed RELEASE loResp RELEASE loHttp RELEASE loXml RELEASE loXmlResp RELEASE loXml2 |
© 2000-2021 Chilkat Software, Inc. All Rights Reserved.