Xojo Plugin Requires Chilkat v11.1.0+

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. Xojo Plugin

Dim success As Boolean
success = False

Dim arr As New Chilkat.JsonArray

Dim obj As New 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.
success = arr.AddObjectAt2(0,obj)
success = obj.UpdateString("Name","Otto")
success = obj.UpdateInt("Age",29)
success = obj.UpdateBool("Married",False)

//  Create a new and empty JSON object in the 2nd position of the JSON array 
//  and return the reference in the last argument.
success = arr.AddObjectAt2(1,obj)
success = obj.UpdateString("Name","Connor")
success = obj.UpdateInt("Age",43)
success = obj.UpdateBool("Married",True)

//  Create a new and empty JSON object in the 3rd position of the JSON array 
//  and return the reference in the last argument.
success = arr.AddObjectAt2(2,obj)
success = obj.UpdateString("Name","Ramona")
success = obj.UpdateInt("Age",34)
success = obj.UpdateBool("Married",True)

//  Examine what we have:
arr.EmitCompact = False
System.DebugLog(arr.Emit())

//  The output is:

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