(PureBasic) Load JSON Array from HTTP Response Body

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

Note: This example requires Chilkat v9.5.0.89 or greater because it uses the GetBodyJarr 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 JsonArray by calling JsonArray.LoadSb.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonArray.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/sampleArray.json","","","",0,0)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        ProcedureReturn
    EndIf

    ; A JSON array is JSON that begins with "[" and ends with "]"
    jarr.i = CkJsonArray::ckCreate()
    If jarr.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; If we wish to transfer (instead of copy) the JSON from the HttpResponse to the JsonArray, then add the keyword "TakeResponseBody" to UncommonOptions
    ; This could save memory for extremely large JSON responses.
    CkHttpResponse::setCkUncommonOptions(resp, "TakeResponseBody")

    CkHttpResponse::ckGetBodyJarr(resp,jarr)

    Debug CkJsonArray::ckEmit(jarr)

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

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkJsonArray::ckDispose(jarr)


    ProcedureReturn
EndProcedure