(PureBasic) JSON UpdateNumber vs UpdateInt

Demonstrates UpdateNumber vs UpdateString.

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

    ; If a number is too large for a 32-bit signed integer, then call UpdateNumber instead of UpdateInt.
    ; The large integer is passed to UpdateNumber as a string, but in the JSON it will be an integer.

    ; For example:
    CkJsonObject::ckUpdateNumber(json,"largeNumber","6884556842")

    ; If the integer is small enough for a 32-bit signed integer, then use UpdateInt:
    CkJsonObject::ckUpdateInt(json,"reasonableInt",123456)

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

    ; The output:
    ; Notice the large number passed as a string does not have quotes in the JSON

    ; {
    ;   "largeNumber": 6884556842,
    ;   "reasonableInt": 123456
    ; }


    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure