(PureBasic) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

Chilkat PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

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

    success.i

    ; Add an empty object at the 1st JSON array position.
    CkJsonArray::ckAddObjectAt(arr,0)
    ; Get the object we just created.
    obj.i = CkJsonArray::ckObjectAt(arr,0)
    CkJsonObject::ckUpdateString(obj,"Name","Otto")
    CkJsonObject::ckUpdateInt(obj,"Age",29)
    CkJsonObject::ckUpdateBool(obj,"Married",0)
    CkJsonObject::ckDispose(obj)

    ; Add an empty object at the 2nd JSON array position.
    CkJsonArray::ckAddObjectAt(arr,1)
    obj = CkJsonArray::ckObjectAt(arr,1)
    CkJsonObject::ckUpdateString(obj,"Name","Connor")
    CkJsonObject::ckUpdateInt(obj,"Age",43)
    CkJsonObject::ckUpdateBool(obj,"Married",1)
    CkJsonObject::ckDispose(obj)

    ; Add an empty object at the 3rd JSON array position.
    CkJsonArray::ckAddObjectAt(arr,2)
    obj = CkJsonArray::ckObjectAt(arr,2)
    CkJsonObject::ckUpdateString(obj,"Name","Ramona")
    CkJsonObject::ckUpdateInt(obj,"Age",34)
    CkJsonObject::ckUpdateBool(obj,"Married",1)
    CkJsonObject::ckDispose(obj)

    ; Examine what we have:
    CkJsonArray::setCkEmitCompact(arr, 0)
    Debug CkJsonArray::ckEmit(arr)

    ; The output is:

    ; [
    ;   {
    ;     "Name": "Otto",
    ;     "Age": 29,
    ;     "Married": false
    ;   },
    ;   {
    ;     "Name": "Connor",
    ;     "Age": 43,
    ;     "Married": true
    ;   },
    ;   {
    ;     "Name": "Ramona",
    ;     "Age": 34,
    ;     "Married": true
    ;   }
    ; ]


    CkJsonArray::ckDispose(arr)


    ProcedureReturn
EndProcedure