PureBasic

Demonstrates how to Handle Large Integers in JSON

See more JSON Examples

Demonstrates how to handle large integers in JSON. (Integers larger than what can fit in a 32-bit signed integer.) PureBasic

IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 0

    ; Let's say your JSON has this:

    ; {
    ; 	"id": 20000000001234567
    ; }

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

    success = CkJsonObject::ckLoadFile(json,"qa_data/json/large_int.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(json)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    ; The integer is too large for a 32-bit signed integer that is returned by IntOf.
    ; The result will be something that wrapped around and could be negative.
    ; In this case it would be: -543893881
    id.i = CkJsonObject::ckIntOf(json,"id")
    Debug "id: " + Str(id)

    ; The solution is to read the integer value as a string, and then use the features in your programming language
    ; to convert from a string to a 64-bit integer.
    ; 
    ; Alternatively, you may wish to simply hold the value as a string.  If, for example, the integer simply references
    ; an order ID, an account ID, etc., then there's no need to convert to an integer value.  You're not going to be doing
    ; mathematical operations on it anyway.  This is usually the case for large integers -- they typically exist
    ; in JSON as an account ID.

    ; You can get any JSON value as a string:
    accountId.s = CkJsonObject::ckStringOf(json,"id")
    Debug "accountId: " + accountId

    ; Sample output:

    ; id: -543893881
    ; accountId: 20000000001234567


    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure