Xbase++ Requires Chilkat v11.0.0+

Load JSON Array from HTTP Response Body

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

LOCAL nSuccess
LOCAL oHttp
LOCAL oResp
LOCAL oJarr

nSuccess := 0

oHttp := CreateObject("Chilkat.Http")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("GET", "https://www.chilkatsoft.com/exampledata/sampleArray.json", "", "", "", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  A JSON array is JSON that begins with "[" and ends with "]"
oJarr := CreateObject("Chilkat.JsonArray")

//  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.
oResp:UncommonOptions := "TakeResponseBody"

oResp:GetBodyJarr(oJarr)

? oJarr:Emit()

//  Note: If UncommonOptions contained "TakeResponseBody", then the response BodyStr will now be empty:
? "----"
? oResp:BodyStr

oHttp:destroy()
oResp:destroy()
oJarr:destroy()