(PureBasic) JSON Add Large Integer or Double

Demonstrates how to add a large number (larger than what can be held in an integer), or a double/float value to a JSON document.

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

    ; To add a large integer, use AddNumberAt.

    ; (an index of -1 indicates append).
    index.i = -1
    CkJsonObject::ckAddNumberAt(json,index,"bignum","8239845689346587465826345892644873453634563456")

    ; Do the same for a double..
    CkJsonObject::ckAddNumberAt(json,index,"double","-153634.295")

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

    ; Output:

    ; 	{
    ; 	  "bignum": 8239845689346587465826345892644873453634563456,
    ; 	  "double": -153634.295
    ; 	}


    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure