Tcl Requires Chilkat v11.0.0+

HTTP SOAP 1.1 Request and Response using POST

See more HTTP Examples

Demonstrates a working SOAP 1.1 request and response using POST with a live server. You may try running this example with the URLs and data provided. See http://secure.smartbearsoftware.com/samples/testcomplete10/webservices/Service.asmx?WSDL for details Tcl

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]

#  Generate the following XML:

#  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:smar="http://smartbear.com">
#     <soapenv:Header/>
#     <soapenv:Body>
#        <smar:HelloWorld/>
#     </soapenv:Body>
#  </soapenv:Envelope>

set soapXml [new_CkXml]

CkXml_put_Tag $soapXml "soapenv:Envelope"
CkXml_AddAttribute $soapXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/"
CkXml_AddAttribute $soapXml "xmlns:smar" "http://smartbear.com"
CkXml_UpdateChildContent $soapXml "soapenv:Header" ""
CkXml_UpdateChildContent $soapXml "soapenv:Body|smar:HelloWorld" ""

puts [CkXml_getXml $soapXml]

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_SendCharset $req 0
CkHttpRequest_AddHeader $req "Content-Type" "text/xml; charset=utf-8"
CkHttpRequest_AddHeader $req "SOAPAction" "http://smartbear.com/HelloWorld"
CkHttpRequest_put_Path $req "/samples/testcomplete10/webservices/Service.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 "secure.smartbearsoftware.com" 443 1 $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]

#  A successful XML response:

#  <?xml version="1.0" encoding="utf-8" ?>
#  <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
#      <soap:Body>
#          <HelloWorldResponse xmlns="http://smartbear.com">
#              <HelloWorldResult>Hello World</HelloWorldResult>
#          </HelloWorldResponse>
#      </soap:Body>
#  </soap:Envelope>

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