(Tcl) Load JSON Object from HTTP Response Body

Demonstrates how to load the HTTP response body directly into a JSON object.

Note: This example requires Chilkat v9.5.0.89 or greater because it uses the GetBodyJson method. Prior to v9.5.0.89, and application would need to first copy the HTTP response body to a Chilkat StringBuilder object by calling GetBodySb, and then load the JSON object by calling LoadSb.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set http [new_CkHttp]

# resp is a CkHttpResponse
set resp [CkHttp_PText $http "GET" "https://www.chilkatsoft.com/exampledata/sample.json" "" "" "" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

# A JSON object is JSON that begins with "{" and ends with "}"
set json [new_CkJsonObject]

# If we wish to transfer (instead of copy) the JSON from the HttpResponse to the JsonObject, then add the keyword "TakeResponseBody" to UncommonOptions
# This could save memory for extremely large JSON responses.
CkHttpResponse_put_UncommonOptions $resp "TakeResponseBody"

CkHttpResponse_GetBodyJson $resp $json

CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

# Note: If UncommonOptions contained "TakeResponseBody", then the response BodyStr will now be empty:
puts "----"
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkJsonObject $json