Visual FoxPro Requires Chilkat v11.1.0+

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