(PureBasic) JSON AppendArrayCopy Example

Demonstrates the AppendArrayCopy function.

Note: This example requires Chilkat v9.5.0.82 or above.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonArray.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoad(json,"{ " + Chr(34) + "name" + Chr(34) + ": " + Chr(34) + "John" + Chr(34) + ", " + Chr(34) + "marbles" + Chr(34) + ": 100 }")

    jarr.i = CkJsonArray::ckCreate()
    If jarr.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonArray::ckLoad(jarr,"[ 1, 2, 3, " + Chr(34) + "apple" + Chr(34) + ", " + Chr(34) + "orange" + Chr(34) + ", [ 10, 20, 30 ], { " + Chr(34) + "name" + Chr(34) + ": " + Chr(34) + "Alfred" + Chr(34) + "} ]")

    ; Copy the contents of jar to a new array member named "stuff".
    CkJsonObject::ckAppendArrayCopy(json,"stuff",jarr)

    Debug CkJsonObject::ckEmit(json)
    ; Expected output is:  {"name":"John","marbles":100,"stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Alfred"}]}

    ; Note: The contents of the array were copied.
    ; If we modify the contents of jarr, it does not modify the array contained within "json" because it is a separate copy.
    ; For example:
    CkJsonArray::ckAddIntAt(jarr,-1,2020)
    Debug CkJsonArray::ckEmit(jarr)
    ; Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Alfred"},2020]

    Debug CkJsonObject::ckEmit(json)
    ; Remains unchanged: {"name":"John","marbles":100,"stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Alfred"}]}


    CkJsonObject::ckDispose(json)
    CkJsonArray::ckDispose(jarr)


    ProcedureReturn
EndProcedure