(Tcl) HTTP SOAP 1.2 Request and Response using POST

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.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set 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.
# --------------------------------------------------------------------------------

set http [new_CkHttp]

set soapXml [new_CkXml]

CkXml_put_Tag $soapXml "soap12:Envelope"
set success [CkXml_AddAttribute $soapXml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance"]
set success [CkXml_AddAttribute $soapXml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema"]
set success [CkXml_AddAttribute $soapXml "xmlns:soap12" "http://www.w3.org/2003/05/soap-envelope"]

CkXml_NewChild2 $soapXml "soap12:Body" ""
set success [CkXml_GetChild2 $soapXml 0]
CkXml_NewChild2 $soapXml "GetCityWeatherByZIP" ""
set success [CkXml_GetChild2 $soapXml 0]
set success [CkXml_AddAttribute $soapXml "xmlns" "http://ws.cdyne.com/WeatherWS/"]
CkXml_NewChild2 $soapXml "ZIP" "60187"
CkXml_GetRoot2 $soapXml

puts [CkXml_getXml $soapXml]

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_SendCharset $req 0
CkHttpRequest_AddHeader $req "Content-Type" "application/soap+xml; charset=utf-8"
CkHttpRequest_AddHeader $req "SOAPAction" "http://ws.cdyne.com/WeatherWS/GetCityWeatherByZIP"
CkHttpRequest_put_Path $req "/WeatherWS/Weather.asmx"
set success [CkHttpRequest_LoadBodyFromString $req [CkXml_getXml $soapXml] "utf-8"]

CkHttp_put_FollowRedirects $http 1

set resp [new_CkHttpResponse]

set success [CkHttp_HttpSReq $http "wsf.cdyne.com" 80 0 $req $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkXml $soapXml
    delete_CkHttpRequest $req
    delete_CkHttpResponse $resp
    exit
}

set xmlResponse [new_CkXml]

set success [CkXml_LoadXml $xmlResponse [CkHttpResponse_bodyStr $resp]]
puts [CkXml_getXml $xmlResponse]

delete_CkHttp $http
delete_CkXml $soapXml
delete_CkHttpRequest $req
delete_CkHttpResponse $resp
delete_CkXml $xmlResponse