(PureBasic) Create JSON Document

Sample code to create the following JSON document:

{
  "Title": "Pan's Labyrinth",
  "Director": "Guillermo del Toro",
  "Original_Title": "El laberinto del fauno",
  "Year_Released": 2006
}

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    success.i

    ; The only reason for failure in the following lines of code would be an out-of-memory condition..

    ; An index value of -1 is used to append at the end.
    success = CkJsonObject::ckAddStringAt(json,-1,"Title","Pan's Labyrinth")
    success = CkJsonObject::ckAddStringAt(json,-1,"Director","Guillermo del Toro")
    success = CkJsonObject::ckAddStringAt(json,-1,"Original_Title","El laberinto del fauno")
    success = CkJsonObject::ckAddIntAt(json,-1,"Year_Released",2006)

    CkJsonObject::setCkEmitCompact(json, 0)
    Debug CkJsonObject::ckEmit(json)


    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure