(Xojo Plugin) 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 v11.0.0 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
success = False

Dim http As New Chilkat.Http

Dim resp As New Chilkat.HttpResponse
success = http.HttpStr("GET","https://www.chilkatsoft.com/exampledata/sample.json","","","",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

// A JSON object is JSON that begins with "{" and ends with "}"
Dim json As New Chilkat.JsonObject

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

success = resp.GetBodyJson(json)

json.EmitCompact = False
System.DebugLog(json.Emit())

// Note: If UncommonOptions contained "TakeResponseBody", then the response BodyStr will now be empty:
System.DebugLog("----")
System.DebugLog(resp.BodyStr)