PowerBuilder

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.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_SoapXml
oleobject loo_Req
oleobject loo_Resp
oleobject loo_XmlResponse

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_SoapXml = create oleobject
li_rc = loo_SoapXml.ConnectToNewObject("Chilkat.Xml")

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

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

Write-Debug loo_SoapXml.GetXml()

loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

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

loo_Http.FollowRedirects = 1

loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpSReq("wsf.cdyne.com",80,0,loo_Req,loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_SoapXml
    destroy loo_Req
    destroy loo_Resp
    return
end if

loo_XmlResponse = create oleobject
li_rc = loo_XmlResponse.ConnectToNewObject("Chilkat.Xml")

li_Success = loo_XmlResponse.LoadXml(loo_Resp.BodyStr)
Write-Debug loo_XmlResponse.GetXml()


destroy loo_Http
destroy loo_SoapXml
destroy loo_Req
destroy loo_Resp
destroy loo_XmlResponse