Tcl

HTTP POST with XML Body

Demonstrates sending an HTTP POST with a XML body. Tcl

load ./chilkat.dll

set success 0

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

# Implements the following CURL command:

# curl -X POST https://example.com/StockQuote \
#   -H "Host: www.example.org" \
#   -H "Content-Type: application/soap+xml; charset=utf-8" \
#   -H "SOAPAction: http://www.example.org/StockPrice" \
#   -d '<?xml version="1.0"?>
# 
# <soap:Envelope
# xmlns:soap="http://www.w3.org/2003/05/soap-envelope/"
# soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
# 
# <soap:Body xmlns:m="http://www.example.org/stock">
#   <m:GetStockPrice>
#     <m:StockName>IBM</m:StockName>
#   </m:GetStockPrice>
# </soap:Body>
# 
# </soap:Envelope>'

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Use this online tool to generate code from sample XML:
# Generate Code to Create XML

# --------------------------------------------------------------------------------
# Also see Chilkat's Online WSDL Code Generator
# to generate code and SOAP Request and Response XML for each operation in a WSDL.
# --------------------------------------------------------------------------------

# The following XML is sent in the request body.

# <?xml version="1.0" encoding="utf-8"?>
# <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope/" soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
#     <soap:Body xmlns:m="http://www.example.org/stock">
#         <m:GetStockPrice>
#             <m:StockName>IBM</m:StockName>
#         </m:GetStockPrice>
#     </soap:Body>
# </soap:Envelope>
# 

set xml [new_CkXml]

CkXml_put_Tag $xml "soap:Envelope"
CkXml_AddAttribute $xml "xmlns:soap" "http://www.w3.org/2003/05/soap-envelope/"
CkXml_AddAttribute $xml "soap:encodingStyle" "http://www.w3.org/2003/05/soap-encoding"
CkXml_UpdateAttrAt $xml "soap:Body" 1 "xmlns:m" "http://www.example.org/stock"
CkXml_UpdateChildContent $xml "soap:Body|m:GetStockPrice|m:StockName" "IBM"

CkHttp_SetRequestHeader $http "SOAPAction" "http://www.example.org/StockPrice"
CkHttp_SetRequestHeader $http "Host" "www.example.org"
CkHttp_SetRequestHeader $http "Content-Type" "application/soap+xml; charset=utf-8"

set sbRequestBody [new_CkStringBuilder]

CkXml_GetXmlSb $xml $sbRequestBody

set resp [new_CkHttpResponse]

set success [CkHttp_HttpSb $http "POST" "https://example.com/StockQuote" $sbRequestBody "utf-8" "application/soap+xml; charset=utf-8" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkXml $xml
    delete_CkStringBuilder $sbRequestBody
    delete_CkHttpResponse $resp
    exit
}

puts [CkHttpResponse_get_StatusCode $resp]
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttp $http
delete_CkXml $xml
delete_CkStringBuilder $sbRequestBody
delete_CkHttpResponse $resp