(Visual FoxPro) JSON: Nested Objects

Here we have a JSON object that contains nested JSON objects. This example demonstrates how to access the contents of the nested objects.

{
  "name": "donut",
  "image":
    {
    "fname": "donut.jpg",
    "w": 200,
    "h": 200
    },
  "thumbnail":
    {
    "fname": "donutThumb.jpg",
    "w": 32,
    "h": 32
    }
}

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loJson
LOCAL lcJsonStr
LOCAL loImageObj
LOCAL loThumbObj

lnSuccess = 0

loJson = CreateObject('Chilkat.JsonObject')

* This is the above JSON with whitespace chars removed (SPACE, TAB, CR, and LF chars).
* The presence of whitespace chars for pretty-printing makes no difference to the Load
* method. 
lcJsonStr = '{"name": "donut","image":{"fname": "donut.jpg","w": 200,"h": 200},"thumbnail":{"fname": "donutThumb.jpg","w": 32,"h": 32}}'

lnSuccess = loJson.Load(lcJsonStr)
IF (lnSuccess = 0) THEN
    ? loJson.LastErrorText
    RELEASE loJson
    CANCEL
ENDIF

* Get the "image" object.
loImageObj = CreateObject('Chilkat.JsonObject')
loJson.ObjectOf2("image",loImageObj)

? "image: fname=" + loImageObj.StringOf("fname") + ", width=" + STR(loImageObj.IntOf("w")) + ", height=" + STR(loImageObj.IntOf("h"))

* Get the "thumbnail" object.
loThumbObj = CreateObject('Chilkat.JsonObject')
loJson.ObjectOf2("thumbnail",loThumbObj)

? "thumbnail: fname=" + loThumbObj.StringOf("fname") + ", width=" + STR(loThumbObj.IntOf("w")) + ", height=" + STR(loThumbObj.IntOf("h"))

RELEASE loJson
RELEASE loImageObj
RELEASE loThumbObj