(Lianja) 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
    }
}

Chilkat Lianja Extension Download Chilkat Lianja Extension

loJson = createobject("CkJsonObject")

// 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}}'

llSuccess = loJson.Load(lcJsonStr)
if (llSuccess <> .T.) then
    ? loJson.LastErrorText
    release loJson
    return
endif

// Get the "image" object.
loImageObj = loJson.ObjectOf("image")
if (loJson.LastMethodSuccess = .F.) then
    ? "image object not found."
    release loJson
    return
endif

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

release loImageObj

// Get the "thumbnail" object.
loThumbObj = loJson.ObjectOf("thumbnail")
if (loJson.LastMethodSuccess = .F.) then
    ? "thumbnail object not found."
    release loJson
    return
endif

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

release loThumbObj


release loJson