Xbase++ Requires Chilkat v11.1.0+

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. Xbase++

LOCAL nSuccess
LOCAL oArr
LOCAL oObj

nSuccess := 0

oArr := CreateObject("Chilkat.JsonArray")

oObj := 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.
oArr:AddObjectAt2(0, oObj)
oObj:UpdateString("Name", "Otto")
oObj:UpdateInt("Age", 29)
oObj: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.
oArr:AddObjectAt2(1, oObj)
oObj:UpdateString("Name", "Connor")
oObj:UpdateInt("Age", 43)
oObj: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.
oArr:AddObjectAt2(2, oObj)
oObj:UpdateString("Name", "Ramona")
oObj:UpdateInt("Age", 34)
oObj:UpdateBool("Married", 1)

//  Examine what we have:
oArr:EmitCompact := 0
? oArr:Emit()

//  The output is:

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

oArr:destroy()
oObj:destroy()