Xbase++

HTTP SOAP 1.2 Request and Response using POST

See more HTTP Examples

Demonstrates a working SOAP 1.2 request and response using POST with a live server. You may try running this example with the URLs and data provided. See http://wsf.cdyne.com/WeatherWS/Weather.asmx?op=GetCityWeatherByZIP for details.

Note: This example is correct in theory, but no longer works for live testing because the SOAP service provider (cdyne.com) has made changes or discontinued the free service.

Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oSoapXml
LOCAL oReq
LOCAL oResp
LOCAL oXmlResponse

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

oSoapXml := CreateObject("Chilkat.Xml")

oSoapXml:Tag := "soap12:Envelope"
nSuccess := oSoapXml:AddAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
nSuccess := oSoapXml:AddAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema")
nSuccess := oSoapXml:AddAttribute("xmlns:soap12", "http://www.w3.org/2003/05/soap-envelope")

oSoapXml:NewChild2("soap12:Body", "")
nSuccess := oSoapXml:GetChild2(0)
oSoapXml:NewChild2("GetCityWeatherByZIP", "")
nSuccess := oSoapXml:GetChild2(0)
nSuccess := oSoapXml:AddAttribute("xmlns", "http://ws.cdyne.com/WeatherWS/")
oSoapXml:NewChild2("ZIP", "60187")
oSoapXml:GetRoot2()

? oSoapXml:GetXml()

oReq := CreateObject("Chilkat.HttpRequest")
oReq:HttpVerb := "POST"
oReq:SendCharset := 0
oReq:AddHeader("Content-Type", "application/soap+xml; charset=utf-8")
oReq:AddHeader("SOAPAction", "http://ws.cdyne.com/WeatherWS/GetCityWeatherByZIP")
oReq:Path := "/WeatherWS/Weather.asmx"
nSuccess := oReq:LoadBodyFromString(oSoapXml:GetXml(), "utf-8")

oHttp:FollowRedirects := 1

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("wsf.cdyne.com", 80, 0, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSoapXml:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

oXmlResponse := CreateObject("Chilkat.Xml")
nSuccess := oXmlResponse:LoadXml(oResp:BodyStr)
? oXmlResponse:GetXml()

oHttp:destroy()
oSoapXml:destroy()
oReq:destroy()
oResp:destroy()
oXmlResponse:destroy()