(PureBasic) Emit JSON Array to StringBuilder

See more JSON Examples

Demonstrates how to write a JSON array to a Chilkat StringBuilder object.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonArray.pb"

Procedure ChilkatExample()

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

    success.i = CkJsonArray::ckLoad(a,"[ 1,2,3,4 ]")

    ; We could get the JSON array as a string...
    s.s = CkJsonArray::ckEmit(a)
    Debug s

    ; But what if the JSON array contains a huge amount of data,
    ; and we don't want to marshal it all from Chilkat's internal
    ; native code to a string in our programming language?

    ; You can instead emit to a Chilkat StringBuilder
    sb.i = CkStringBuilder::ckCreate()
    If sb.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonArray::ckEmitSb(a,sb)

    ; Perhaps the StringBuilder object can be passed to other methods..
    ; Chilkat typically provides methods where a potentially large string
    ; can be passed in via a StringBuilder object..

    ; Or perhaps you wish to save to a file..
    success = CkStringBuilder::ckWriteFile(sb,"c:/temp/qa_output/a.json","utf-8",0)


    CkJsonArray::ckDispose(a)
    CkStringBuilder::ckDispose(sb)


    ProcedureReturn
EndProcedure