DataFlex

JSON AppendArray2 Example

Demonstrates the AppendArray2 function. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJson
    Boolean iSuccess
    Variant vJarr
    Handle hoJarr
    String sTemp1

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComLoad Of hoJson '{ "name": "John", "marbles": 100 }' To iSuccess

    // Append an empty array named "xyz"
    Get Create (RefClass(cComChilkatJsonArray)) To hoJarr
    If (Not(IsComObjectCreated(hoJarr))) Begin
        Send CreateComObject of hoJarr
    End
    Get pvComObject of hoJarr to vJarr
    Get ComAppendArray2 Of hoJson "xyz" vJarr To iSuccess

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1
    // Expected output is:   {"name":"John","marbles":100,"xyz":[]}

    // Add elements to the array.
    Get ComAddStringAt Of hoJarr -1 "hello" To iSuccess
    Get ComAddIntAt Of hoJarr -1 256 To iSuccess

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1
    // Expected output is:  {"name":"John","marbles":100,"xyz":["hello",256]}


End_Procedure