(Visual FoxPro) Load a JsonArray

Demonstrates how to load a JsonArray.

Note: This example requires Chilkat v9.5.0.64 or greater.

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

LOCAL a
LOCAL loJson
LOCAL loAbc

* This example requires Chilkat v9.5.0.64 or greater.

* Loading into a new JSON array is simple and straightforward.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonArray')
a = CreateObject('Chilkat.JsonArray')
a.Load("[ 1,2,3,4 ]")

* Output:  [1,2,3,4]
? a.Emit()
? "--------"

* The JsonArray's Load and LoadSb methods have a peculiar behavior when
* it is already part of a JSON document.  In this case, the JsonArray
* becomes detached, and the original document remains unchanged.
* This is intentional due to the nature of the internal implementation.
* For example:

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load('{ "abc": [ 1,2,3,4 ] }')

* Output:  (json) {"abc":[1,2,3,4]}
? "(json) " + loJson.Emit()
? "--------"

loAbc = loJson.ArrayOf("abc")
* When Load is called, abc becomes it's own document, and the original is not modified.
loAbc.Load("[ 5,6,7,8 ]")

* Output: (abc) [5,6,7,8]
? "(abc) " + loAbc.Emit()
? "--------"

* Output: (json) {"abc":[1,2,3,4]}
? "(json) " + loJson.Emit()
? "--------"
RELEASE loAbc

RELEASE a
RELEASE loJson