(Tcl) Send XMLHttpRequest and Get Response

Demonstrates how to send an HTTP XML request and retrieve the response.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# The XML sent in the body of the request is application
# specified -- it should contain whatever the server-side
# application is expecting..
set xmlStr "<?xml version=\"1.0\" encoding=\"UTF-8\"?><appXml><something>123</something></appXml>"

# The PostXml method may be called to send the XMLHttpRequest
# using the "POST" HTTP method (also known as "verb").
set urlEndpoint "http://www.chilkatsoft.com/xmlEcho.asp"
set xmlCharset "utf-8"

# resp is a CkHttpResponse

set resp [CkHttp_PostXml $http $urlEndpoint $xmlStr $xmlCharset]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

# The raw HTTP request sent by the above call is:

# POST /xmlEcho.asp HTTP/1.1
# Content-Type: text/xml
# Host: www.chilkatsoft.com
# Accept: */*
# Accept-Charset: ISO-8859-1,utf-8;q=0.7,*; q=0.7
# Accept-Language: en-us,en;q=0.5
# Accept-Encoding: gzip
# Content-Length: 81
# 
# <?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>

# Examine the Body of the HTTP response
# This would be the XML response sent by the server.
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpResponse $resp


delete_CkHttp $http