(Tcl) HTTP POST JSON
Demonstrates how to send a JSON POST and get the JSON response. Note: This example requires Chilkat v11.0.0 or greater.
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
|