(PowerBuilder) JSON AppendObjectCopy Example

Demonstrates the AppendObjectCopy function.

Note: This example requires Chilkat v9.5.0.82 or above.

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

integer li_rc
oleobject loo_Json
oleobject loo_Json2

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.Load("{ ~"name~": ~"John~", ~"marbles~": 100 }")

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

loo_Json2.Load("{~"street~":~"1200 Elm St.~",~"city~":~"Springfield~",~"zip~":60606}")

// Copy the contents of json2 to a new member object named "addr".
loo_Json.AppendObjectCopy("addr",loo_Json2)

Write-Debug loo_Json.Emit()
// Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}}

// Note: Modifying the contents of json does not modify the contents of json2 (because the contents of json2 were copied).
// For example:
loo_Json.UpdateString("addr.street","1000 Oak St.")
Write-Debug loo_Json.Emit()
// Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606}}

Write-Debug loo_Json2.Emit()
// Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}


destroy loo_Json
destroy loo_Json2