(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    resp.i = CkHttp::ckPText(http,"GET","https://www.chilkatsoft.com/exampledata/sample.json","","","",0,0)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; A JSON object is JSON that begins with "{" and ends with "}"
    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; 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::setCkUncommonOptions(resp, "TakeResponseBody")

    CkHttpResponse::ckGetBodyJson(resp,json)

    CkJsonObject::setCkEmitCompact(json, 0)
    Debug CkJsonObject::ckEmit(json)

    ; Note: If UncommonOptions contained "TakeResponseBody", then the response BodyStr will now be empty:
    Debug "----"
    Debug CkHttpResponse::ckBodyStr(resp)

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure