(Visual FoxPro) Get the Root of a JSON Document

Demonstrates how to get back to the JSON root object from anywhere in the JSON document. This example uses the following JSON document:

{
  "flower": "tulip",
  "abc":
    {
    "x": [
       { "a" : 1 },
       { "b1" : 100, "b2" : 200 },
       { "c" : 3 }
    ],
    "y": 200,
    "z": 200
    }
}

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 loAbcObj
LOCAL loXArray
LOCAL loBObj
LOCAL loDocRoot

lnSuccess = 0

loJson = CreateObject('Chilkat.JsonObject')

lcJsonStr = '{"flower": "tulip","abc":{"x": [{ "a" : 1 },{ "b1" : 100, "b2" : 200 },{ "c" : 3 }],"y": 200,"z": 200}}'

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

* Get the "abc" object.
loAbcObj = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.ObjectOf2("abc",loAbcObj)
IF (lnSuccess = 0) THEN
    ? loJson.LastErrorText
    RELEASE loJson
    RELEASE loAbcObj
    CANCEL
ENDIF

* Side note: The JSON of a sub-part of the document can be emitted from any JSON object:
loAbcObj.EmitCompact = 0
? loAbcObj.Emit()

* Navigate to the "x" array
loXArray = CreateObject('Chilkat.JsonArray')
loAbcObj.ArrayOf2("x",loXArray)

* Navigate to the 2nd object contained within the array.  This contains members b1 and b2
loBObj = CreateObject('Chilkat.JsonObject')
loXArray.ObjectAt2(1,loBObj)

* Show that we're at "b1/b2".
* The value of "b1" should be "200"
? "b2 = " + STR(loBObj.IntOf("b2"))

* Now go back to the JSON doc root:
loDocRoot = CreateObject('Chilkat.JsonObject')
loBObj.GetDocRoot2(loDocRoot)

* We'll skip the null check and assume it's non-null...

* Pretty-print the JSON doc from the root to show that this is indeed the root.
loDocRoot.EmitCompact = 0
? loDocRoot.Emit()

RELEASE loJson
RELEASE loAbcObj
RELEASE loXArray
RELEASE loBObj
RELEASE loDocRoot