(DataFlex) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoArr
    Boolean iSuccess
    Variant vObj
    Handle hoObj
    String sTemp1

    Get Create (RefClass(cComChilkatJsonArray)) To hoArr
    If (Not(IsComObjectCreated(hoArr))) Begin
        Send CreateComObject of hoArr
    End

    // Add an empty object at the 1st JSON array position.
    Get ComAddObjectAt Of hoArr 0 To iSuccess
    // Get the object we just created.
    Get ComObjectAt Of hoArr 0 To vObj
    If (IsComObject(vObj)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoObj
        Set pvComObject Of hoObj To vObj
    End
    Get ComUpdateString Of hoObj "Name" "Otto" To iSuccess
    Get ComUpdateInt Of hoObj "Age" 29 To iSuccess
    Get ComUpdateBool Of hoObj "Married" False To iSuccess
    Send Destroy of hoObj

    // Add an empty object at the 2nd JSON array position.
    Get ComAddObjectAt Of hoArr 1 To iSuccess
    Get ComObjectAt Of hoArr 1 To vObj
    If (IsComObject(vObj)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoObj
        Set pvComObject Of hoObj To vObj
    End
    Get ComUpdateString Of hoObj "Name" "Connor" To iSuccess
    Get ComUpdateInt Of hoObj "Age" 43 To iSuccess
    Get ComUpdateBool Of hoObj "Married" True To iSuccess
    Send Destroy of hoObj

    // Add an empty object at the 3rd JSON array position.
    Get ComAddObjectAt Of hoArr 2 To iSuccess
    Get ComObjectAt Of hoArr 2 To vObj
    If (IsComObject(vObj)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoObj
        Set pvComObject Of hoObj To vObj
    End
    Get ComUpdateString Of hoObj "Name" "Ramona" To iSuccess
    Get ComUpdateInt Of hoObj "Age" 34 To iSuccess
    Get ComUpdateBool Of hoObj "Married" True To iSuccess
    Send Destroy of hoObj

    // Examine what we have:
    Set ComEmitCompact Of hoArr To False
    Get ComEmit Of hoArr To sTemp1
    Showln sTemp1

    // The output is:

    // [
    //   {
    //     "Name": "Otto",
    //     "Age": 29,
    //     "Married": false
    //   },
    //   {
    //     "Name": "Connor",
    //     "Age": 43,
    //     "Married": true
    //   },
    //   {
    //     "Name": "Ramona",
    //     "Age": 34,
    //     "Married": true
    //   }
    // ]


End_Procedure