(Visual FoxPro) Load a JSON Array

The Chilkat JSON API requires the top-level JSON to be an object. Therefore, to load an array requires that it first be wrapped as an object.

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

LOCAL lnSuccess
LOCAL lcJsonArrayStr
LOCAL loSbJson
LOCAL loJson
LOCAL loJArray
LOCAL loJObjId

* Imagine we want to load this JSON array for parsing:
lcJsonArrayStr = '[{"id":200},{"id":196}]'

* First wrap it in a JSON object by prepending "{ "array":" and appending "}"
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJson = CreateObject('Chilkat.StringBuilder')
loSbJson.Append('{"array":')
loSbJson.Append(lcJsonArrayStr)
loSbJson.Append("}")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loSbJson.GetAsString())

* Now we can get the JSON array
loJArray = loJson.ArrayAt(0)

* Do what you want with the JSON array...
* For example:
loJObjId = loJArray.ObjectAt(0)
? STR(loJObjId.IntOf("id"))
RELEASE loJObjId

RELEASE loJArray

RELEASE loSbJson
RELEASE loJson