(PowerBuilder) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

Note: This example requires Chilkat v11.1.0 or greater.

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

integer li_rc
integer li_Success
oleobject loo_Arr
oleobject loo_Obj

li_Success = 0

loo_Arr = create oleobject
li_rc = loo_Arr.ConnectToNewObject("Chilkat.JsonArray")
if li_rc < 0 then
    destroy loo_Arr
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Obj = create oleobject
li_rc = loo_Obj.ConnectToNewObject("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.
loo_Arr.AddObjectAt2(0,loo_Obj)
loo_Obj.UpdateString("Name","Otto")
loo_Obj.UpdateInt("Age",29)
loo_Obj.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.
loo_Arr.AddObjectAt2(1,loo_Obj)
loo_Obj.UpdateString("Name","Connor")
loo_Obj.UpdateInt("Age",43)
loo_Obj.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.
loo_Arr.AddObjectAt2(2,loo_Obj)
loo_Obj.UpdateString("Name","Ramona")
loo_Obj.UpdateInt("Age",34)
loo_Obj.UpdateBool("Married",1)

// Examine what we have:
loo_Arr.EmitCompact = 0
Write-Debug loo_Arr.Emit()

// The output is:

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


destroy loo_Arr
destroy loo_Obj