Visual FoxPro

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. Visual FoxPro

LOCAL lnSuccess
LOCAL loArr
LOCAL loObj

lnSuccess = 0

loArr = CreateObject('Chilkat.JsonArray')

loObj = CreateObject('Chilkat.JsonObject')

* Create a new and empty JSON object in the 1st position of the JSON array 
* and return the reference in the last argument.
loArr.AddObjectAt2(0,loObj)
loObj.UpdateString("Name","Otto")
loObj.UpdateInt("Age",29)
loObj.UpdateBool("Married",0)

* Create a new and empty JSON object in the 2nd position of the JSON array 
* and return the reference in the last argument.
loArr.AddObjectAt2(1,loObj)
loObj.UpdateString("Name","Connor")
loObj.UpdateInt("Age",43)
loObj.UpdateBool("Married",1)

* Create a new and empty JSON object in the 3rd position of the JSON array 
* and return the reference in the last argument.
loArr.AddObjectAt2(2,loObj)
loObj.UpdateString("Name","Ramona")
loObj.UpdateInt("Age",34)
loObj.UpdateBool("Married",1)

* 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
RELEASE loObj