Lianja

JSON: Nested Objects

See more JSON Examples

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

Lianja

llSuccess = .F.

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 = .F.) then
    ? loJson.LastErrorText
    release loJson
    return
endif

// Get the "image" object.
loImageObj = createobject("CkJsonObject")
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("CkJsonObject")
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