(DataFlex) Emit JSON Array to StringBuilder

See more JSON Examples

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoA
    Boolean iSuccess
    String s
    Variant vSb
    Handle hoSb

    Get Create (RefClass(cComChilkatJsonArray)) To hoA
    If (Not(IsComObjectCreated(hoA))) Begin
        Send CreateComObject of hoA
    End
    Get ComLoad Of a "[ 1,2,3,4 ]" To iSuccess

    // We could get the JSON array as a string...
    Get ComEmit Of a To s
    Showln 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
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End
    Get pvComObject of hoSb to vSb
    Get ComEmitSb Of a vSb To iSuccess

    // 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..
    Get ComWriteFile Of hoSb "c:/temp/qa_output/a.json" "utf-8" False To iSuccess


End_Procedure