Visual FoxPro

JSON AppendObject2 Example

Demonstrates the AppendObject2 function. Visual FoxPro

LOCAL loJson
LOCAL loJObj

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load('{ "name": "John", "marbles": 100 }')

* Append an empty object named "addr"
loJObj = CreateObject('Chilkat.JsonObject')
loJson.AppendObject2("addr",loJObj)

? loJson.Emit()
* Expected output is:   {"name":"John","marbles":100,"addr":{}}

* Add members to the object.
loJObj.AppendString("street","1200 Elm St.")
loJObj.AppendString("city","Springfield")
loJObj.AppendInt("zip",60606)

? loJson.Emit()
* Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}}

RELEASE loJson
RELEASE loJObj