(Visual FoxPro) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

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

LOCAL loArr
LOCAL lnSuccess
LOCAL loObj

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonArray')
loArr = CreateObject('Chilkat.JsonArray')

* Add an empty object at the 1st JSON array position.
loArr.AddObjectAt(0)
* Get the object we just created.
loObj = loArr.ObjectAt(0)
loObj.UpdateString("Name","Otto")
loObj.UpdateInt("Age",29)
loObj.UpdateBool("Married",0)
RELEASE loObj

* Add an empty object at the 2nd JSON array position.
loArr.AddObjectAt(1)
loObj = loArr.ObjectAt(1)
loObj.UpdateString("Name","Connor")
loObj.UpdateInt("Age",43)
loObj.UpdateBool("Married",1)
RELEASE loObj

* Add an empty object at the 3rd JSON array position.
loArr.AddObjectAt(2)
loObj = loArr.ObjectAt(2)
loObj.UpdateString("Name","Ramona")
loObj.UpdateInt("Age",34)
loObj.UpdateBool("Married",1)
RELEASE loObj

* Examine what we have:
loArr.EmitCompact = 0
? loArr.Emit()

* The output is:

* [
*   {
*     "Name": "Otto",
*     "Age": 29,
*     "Married": false
*   },
*   {
*     "Name": "Connor",
*     "Age": 43,
*     "Married": true
*   },
*   {
*     "Name": "Ramona",
*     "Age": 34,
*     "Married": true
*   }
* ]

RELEASE loArr