Visual FoxPro

Load JSON Array from HTTP Response Body

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJarr

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("GET","https://www.chilkatsoft.com/exampledata/sampleArray.json","","","",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

* A JSON array is JSON that begins with "[" and ends with "]"
loJarr = 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.
loResp.UncommonOptions = "TakeResponseBody"

loResp.GetBodyJarr(loJarr)

? loJarr.Emit()

* Note: If UncommonOptions contained "TakeResponseBody", then the response BodyStr will now be empty:
? "----"
? loResp.BodyStr

RELEASE loHttp
RELEASE loResp
RELEASE loJarr