(DataFlex) Insert JSON Object into another JSON Object

Demonstrates how to insert one JSON object into another. Effectively, the JSON object must be copied into the other..

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoJsonA
    Handle hoJsonB
    Variant vJsonInfo
    Handle hoJsonInfo
    String sTemp1

    //  Imagine we have two separate JSON objects.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonA
    If (Not(IsComObjectCreated(hoJsonA))) Begin
        Send CreateComObject of hoJsonA
    End
    Get ComUpdateString Of hoJsonA "animal" "zebra" To iSuccess
    Get ComUpdateString Of hoJsonA "colors[0]" "white" To iSuccess
    Get ComUpdateString Of hoJsonA "colors[1]" "black" To iSuccess

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

    //  jsonA contains:

    //  {
    //    "animal": "zebra",
    //    "colors": [
    //      "white",
    //      "black"
    //    ]
    //  }

    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonB
    If (Not(IsComObjectCreated(hoJsonB))) Begin
        Send CreateComObject of hoJsonB
    End
    Get ComUpdateString Of hoJsonB "type" "mammal" To iSuccess
    Get ComUpdateBool Of hoJsonB "carnivore" False To iSuccess

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

    //  jsonB contains:

    //  {
    //    "type": "mammal",
    //    "carnivore": false
    //  }

    //  Let's say we want to insert jsonB into jsonA to get this:

    //  {
    //    "animal": "zebra",
    //    "info" " { 
//       "type": "mammal",
    //        "carnivore": false
    //  	},
    //    "colors": [
    //      "white",
    //      "black"
    //    ]
    //  }

    //  First add an empty object at the desired location:
    Get ComAddObjectAt Of hoJsonA 1 "info" To iSuccess

    //  Get the JSON object at that location, and load the JSON..
    Get ComObjectOf Of hoJsonA "info" To vJsonInfo
    If (IsComObject(vJsonInfo)) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoJsonInfo
        Set pvComObject Of hoJsonInfo To vJsonInfo
    End
    Get ComEmit Of hoJsonB To sTemp1
    Get ComLoad Of hoJsonInfo sTemp1 To iSuccess
    Send Destroy of hoJsonInfo

    Get ComEmit Of hoJsonA To sTemp1
    Showln sTemp1

    //  The end result is this:

    //  {
    //    "animal": "zebra",
    //    "info": {
    //      "type": "mammal",
    //      "carnivore": false
    //    },
    //    "colors": [
    //      "white",
    //      "black"
    //    ]
    //  }


End_Procedure