(PowerBuilder) 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

integer li_rc
oleobject a
oleobject loo_Json
oleobject loo_Abc

// This example requires Chilkat v9.5.0.64 or greater.

// Loading into a new JSON array is simple and straightforward.
a = create oleobject
// Use "Chilkat_9_5_0.JsonArray" for versions of Chilkat < 10.0.0
li_rc = a.ConnectToNewObject("Chilkat.JsonArray")
if li_rc < 0 then
    destroy a
    MessageBox("Error","Connecting to COM object failed")
    return
end if
a.Load("[ 1,2,3,4 ]")

// Output:  [1,2,3,4]
Write-Debug a.Emit()
Write-Debug "--------"

// 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:

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

loo_Json.Load("{ ~"abc~": [ 1,2,3,4 ] }")

// Output:  (json) {"abc":[1,2,3,4]}
Write-Debug "(json) " + loo_Json.Emit()
Write-Debug "--------"

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

// Output: (abc) [5,6,7,8]
Write-Debug "(abc) " + loo_Abc.Emit()
Write-Debug "--------"

// Output: (json) {"abc":[1,2,3,4]}
Write-Debug "(json) " + loo_Json.Emit()
Write-Debug "--------"
destroy loo_Abc


destroy a
destroy loo_Json