AutoIt

SOAP Web Service (HTTP POST)

Demonstrates how to call PostXml to call a SOAP web service. AutoIt

Local $bSuccess = False

; 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.
; --------------------------------------------------------------------------------

; This example uses a live web service at:
; http://www.webservicex.net/uklocation.asmx
; It gets the UK town,Postcode and County by Postcode(First Section of Post Code)

; The SOAP XML will look like this:
; <?xml version="1.0" encoding="utf-8"?>
; <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
;   <soap:Body>
;     <GetUKLocationByPostCode xmlns="http://www.webserviceX.NET">
;       <PostCode>string</PostCode>
;     </GetUKLocationByPostCode>
;   </soap:Body>
; </soap:Envelope>

; For this example's sake, we'll load the XML from a file.  We'll test using PostCode "E3".  
; The SOAP XML for this example may be downloaded from:
; http://www.chilkatsoft.com/testData/ukPostCodeSoap.xml
$oXml = ObjCreate("Chilkat.Xml")
$bSuccess = $oXml.LoadXmlFile("ukPostCodeSoap.xml")
If ($bSuccess = False) Then
    ConsoleWrite($oXml.LastErrorText & @CRLF)
    Exit
EndIf

Local $strXml = $oXml.GetXml()

Local $iResponseStatusCode
$oHttp = ObjCreate("Chilkat.Http")

; We'll need to add this in the HTTP header:
; SOAPAction: "http://www.webserviceX.NET/GetUKLocationByPostCode"
$oHttp.SetRequestHeader "SOAPAction","http://www.webserviceX.NET/GetUKLocationByPostCode"

; The endpoint for this soap service is:
Local $sEndPoint = "http://www.webservicex.net/uklocation.asmx"

; Note: This particular web service was live and functioning at the time this example
; was written.  It is possible that as time progresses, this web service will no longer
; be availble...
$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpStr("POST",$sEndPoint,$strXml,"utf-8","text/xml",$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$iResponseStatusCode = $oResp.StatusCode
; You may wish to verify that the responseStatusCode equals 200...
ConsoleWrite("Response Status Code: " & $iResponseStatusCode & @CRLF)

; You may examine the exact HTTP header sent with the POST like this:
ConsoleWrite("LastHeader:" & @CRLF)
ConsoleWrite($oHttp.LastHeader & @CRLF)

; Examine the XML returned by the web service:
ConsoleWrite("XML Response:" & @CRLF)
$oXmlResp = ObjCreate("Chilkat.Xml")
$oXmlResp.LoadXml($oResp.BodyStr)
ConsoleWrite($oXmlResp.GetXml() & @CRLF)

; Use this online tool to generate parsing code from response XML: 
; Generate Parsing Code from XML