(DataFlex) JSON AppendObject Example

Demonstrates the AppendObject function.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJson
    Boolean iSuccess
    Variant vJObj
    Handle hoJObj
    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 object named "addr"
    Get ComAppendObject Of hoJson "addr" To vJObj
    If (IsComObject(vJObj)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoJObj
        Set pvComObject Of hoJObj To vJObj
    End

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

    // Add members to the object.
    Get ComAppendString Of hoJObj "street" "1200 Elm St." To iSuccess
    Get ComAppendString Of hoJObj "city" "Springfield" To iSuccess
    Get ComAppendInt Of hoJObj "zip" 60606 To iSuccess

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1
    // Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}}

    Send Destroy of hoJObj


End_Procedure