(Visual FoxPro) 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

LOCAL loJson
LOCAL loJson2

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load('{ "name": "John", "marbles": 100 }')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson2 = CreateObject('Chilkat.JsonObject')
loJson2.Load('{"street":"1200 Elm St.","city":"Springfield","zip":60606}')

* Copy the contents of json2 to a new member object named "addr".
loJson.AppendObjectCopy("addr",loJson2)

? loJson.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:
loJson.UpdateString("addr.street","1000 Oak St.")
? loJson.Emit()
* Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606}}

? loJson2.Emit()
* Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}

RELEASE loJson
RELEASE loJson2