DataFlex

Example: JsonObject.NewArrayOf method

See more JSON Examples

Demonstrates the NewArrayOf method. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    String sBig_cats
    Handle hoJson
    String sTemp1

    Move False To iSuccess

    Move '["lion","tiger","leopard","jaguar","cheetah","snow leopard","clouded leopard","cougar","puma","panther"]' To sBig_cats

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End

    Get ComUpdateString Of hoJson "test" "abc" To iSuccess

    Get ComNewArrayOf Of hoJson "big_cats" sBig_cats To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoJson To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Set ComEmitCompact Of hoJson To False
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    // Result:

    // {
    //   "test": "abc",
    //   "big_cats": [
    //     "lion",
    //     "tiger",
    //     "leopard",
    //     "jaguar",
    //     "cheetah",
    //     "snow leopard",
    //     "clouded leopard",
    //     "cougar",
    //     "puma",
    //     "panther"
    //   ]
    // }


End_Procedure