Tcl

HTTP POST JSON

See more HTTP Examples

Demonstrates how to send a JSON POST and get the JSON response. Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

set jsonText "{\"user\":\"doctoravatar@penzance.com\",\"forecast\":7,\"t\":\"vlIj\",\"zip\":94089}"

# IMPORTANT: Make sure to change the URL, JSON text,
# and other data items to your own values.  The URL used
# in this example will not actually work.

set resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "POST" "https://json.penzance.org/request" $jsonText "utf-8" "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

# Display the JSON response.
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttp $http
delete_CkHttpResponse $resp