(PowerBuilder) Insert JSON Object into another JSON Object

Demonstrates how to insert one JSON object into another. Effectively, the JSON object must be copied into the other..

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

integer li_rc
oleobject loo_JsonA
oleobject loo_JsonB
oleobject loo_JsonInfo

// Imagine we have two separate JSON objects.
loo_JsonA = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonA.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_JsonA
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_JsonA.UpdateString("animal","zebra")
loo_JsonA.UpdateString("colors[0]","white")
loo_JsonA.UpdateString("colors[1]","black")

loo_JsonA.EmitCompact = 0
Write-Debug loo_JsonA.Emit()

// jsonA contains:

// {
//   "animal": "zebra",
//   "colors": [
//     "white",
//     "black"
//   ]
// }

loo_JsonB = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonB.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonB.UpdateString("type","mammal")
loo_JsonB.UpdateBool("carnivore",0)

loo_JsonB.EmitCompact = 0
Write-Debug loo_JsonB.Emit()

// jsonB contains:

// {
//   "type": "mammal",
//   "carnivore": false
// }

// Let's say we want to insert jsonB into jsonA to get this:

// {
//   "animal": "zebra",
//   "info" " {
//       "type": "mammal",
//       "carnivore": false
// 	},
//   "colors": [
//     "white",
//     "black"
//   ]
// }

// First add an empty object at the desired location:
loo_JsonA.AddObjectAt(1,"info")

// Get the JSON object at that location, and load the JSON..
loo_JsonInfo = loo_JsonA.ObjectOf("info")
loo_JsonInfo.Load(loo_JsonB.Emit())
destroy loo_JsonInfo

Write-Debug loo_JsonA.Emit()

// The end result is this:

// {
//   "animal": "zebra",
//   "info": {
//     "type": "mammal",
//     "carnivore": false
//   },
//   "colors": [
//     "white",
//     "black"
//   ]
// }


destroy loo_JsonA
destroy loo_JsonB