Tcl Requires Chilkat v11.0.0+

Send SOAP 1.2 Request to Web Service Requiring Authentication

See more HTTP Examples

This example demonstrates sending a SOAP 1.2 request to a web service that requires both HTTP authentication in the Authorization request header, as well as a service-defined password in the XML body of the request. Tcl

load ./chilkat.dll

set success 0

#  This example assumes the Chilkat HTTP 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]

#  We are sending the following POST:

#  POST /wsSome_Testes/Service.asmx HTTP/1.1
#  Host: www.something.com
#  Content-Type: application/soap+xml; charset=utf-8
#  Content-Length: length
#  
#  <?xml version="1.0" encoding="utf-8"?>
#  <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
#    <soap12:Body>
#      <GetXYZbyABC xmlns="http://tempuri.org/">
#        <ABCBEN>string</ABCBEN>
#        <ABC>string</ABC>
#        <NumLocal>int</NumLocal>
#        <Password>string</Password>
#        <MsgErro>string</MsgErro>
#      </GetXYZbyABC>
#    </soap12:Body>
#  </soap12:Envelope>
#  

#  First, specify the login/password for the Authorization request header (not shown in the headers above).
CkHttp_put_Login $http "YOUR_LOGIN"
#  The need for a login domain depends on the web service..
CkHttp_put_LoginDomain $http "YOUR_DOMAIN"
CkHttp_put_Password $http "YOUR_PASSWORD"

#  Build the SOAP XML shown above:
#  Replace VAL_ABCBEN, VAL_ABC, VAL_NUMLOCAL, and YOUR_SOAP_BODY_PASSWORD with actual values..
set xml [new_CkXml]

CkXml_put_Tag $xml "soap12:Envelope"
CkXml_AddAttribute $xml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance"
CkXml_AddAttribute $xml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema"
CkXml_AddAttribute $xml "xmlns:soap12" "http://www.w3.org/2003/05/soap-envelope"
CkXml_UpdateAttrAt $xml "soap12:Body|GetXYZbyABC" 1 "xmlns" "http://tempuri.org/"
CkXml_UpdateChildContent $xml "soap12:Body|GetXYZbyABC|ABCBEN" "VAL_ABCBEN"
CkXml_UpdateChildContent $xml "soap12:Body|GetXYZbyABC|ABC" "VAL_ABC"
CkXml_UpdateChildContent $xml "soap12:Body|GetXYZbyABC|NumLocal" "VAL_NUMLOCAL"
CkXml_UpdateChildContent $xml "soap12:Body|GetXYZbyABC|Password" "YOUR_SOAP_BODY_PASSWORD"
CkXml_UpdateChildContent $xml "soap12:Body|GetXYZbyABC|MsgErro" "x"

#  We don't need to specify the Content-Length or Host headers.  Chilkat automatically adds them.

#  Send the request...
set resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "POST" "https://www.something.com/wsSome_Testes/Service.asmx" [CkXml_getXml $xml] "utf-8" "application/soap+xml" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkXml $xml
    delete_CkHttpResponse $resp
    exit
}

puts "Response Status Code = [CkHttpResponse_get_StatusCode $resp]"

set respXml [new_CkXml]

CkXml_LoadXml $respXml [CkHttpResponse_bodyStr $resp]

puts "Response XML:"
puts [CkXml_getXml $respXml]

#  The response XML should look like this:

#  <?xml version="1.0" encoding="utf-8"?>
#  <soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
#    <soap12:Body>
#      <GetXYZbyABCResponse xmlns="http://tempuri.org/">
#        <GetXYZbyABCResult>int</GetXYZbyABCResult>
#        <MsgErro>string</MsgErro>
#      </GetXYZbyABCResponse>
#    </soap12:Body>
#  </soap12:Envelope>

delete_CkHttp $http
delete_CkXml $xml
delete_CkHttpResponse $resp
delete_CkXml $respXml