Delphi ActiveX Requires Chilkat v11.0.0+

Insert JSON Array into another JSON Object

See more JSON Examples

Demonstrates how to insert a JSON array into a JSON object. Delphi ActiveX

var
jsonA: TChilkatJsonObject;
jsonB: TChilkatJsonObject;
jsonUsersDest: TChilkatJsonArray;
jsonUsersSrc: TChilkatJsonArray;

begin
//  Imagine we have two separate JSON objects.
jsonA := TChilkatJsonObject.Create(Self);
jsonA.UpdateString('ciphertext','encryptedData');
jsonA.UpdateInt('status',200);
jsonA.UpdateString('error','errorMsg');

jsonA.EmitCompact := 0;
Memo1.Lines.Add(jsonA.Emit());

//  jsonA contains:

//  {
//    "ciphertext": "encryptedData",
//    "status": 200,
//    "error": "errorMsg"
//  }

jsonB := TChilkatJsonObject.Create(Self);
jsonB.UpdateString('users[0].role','Surgeon');
jsonB.UpdateNewArray('users[0].sub_roles');
jsonB.UpdateBool('users[0].viewable_for_sharing',1);
jsonB.UpdateInt('users[0].eula_create_date',123);
jsonB.UpdateString('users[1].role','Support');
jsonB.UpdateString('users[1].sub_roles[0]','Tech');
jsonB.UpdateString('users[1].sub_roles[1]','Service');
jsonB.UpdateBool('users[1].viewable_for_sharing',1);
jsonB.UpdateInt('users[1].eula_create_date',123);

jsonB.EmitCompact := 0;
Memo1.Lines.Add(jsonB.Emit());

//  jsonB contains:

//  {
//    "users": [
//      {
//        "role": "Surgeon",
//        "sub_roles": [],
//        "viewable_for_sharing": true,
//        "eula_create_date": 1649108922482
//      },
//      {
//        "role": "Support",
//        "sub_roles": [
//          "Tech",
//          "Service"
//        ],
//        "viewable_for_sharing": true,
//        "eula_create_date": 1649108951523
//      }
//    ]
//  }

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

//  {
//    "ciphertext": "encryptedData",
//    "status": 200,
//    "error": "errorMsg",
//    "users": [
//      {
//        "role": "Surgeon",
//        "sub_roles": [],
//        "viewable_for_sharing": true,
//        "eula_create_date": 1649108922482
//      },
//      {
//        "role": "Support",
//        "sub_roles": [
//          "Tech",
//          "Service"
//        ],
//        "viewable_for_sharing": true,
//        "eula_create_date": 1649108951523
//      }
//    ]
//  }

//  The destination is the empty "users" array, the source is the populated "users" array in jsonB.
jsonUsersDest := TChilkatJsonArray.Create(Self);
jsonA.AppendArray2('users',jsonUsersDest.ControlInterface);

jsonUsersSrc := TChilkatJsonArray.Create(Self);
jsonB.ArrayOf2('users',jsonUsersSrc.ControlInterface);

//  Copy the array items from source to dest
jsonUsersDest.AppendArrayItems(jsonUsersSrc.ControlInterface);

Memo1.Lines.Add(jsonA.Emit());

//  The end result is this:

//  {
//    "ciphertext": "encryptedData",
//    "status": 200,
//    "error": "errorMsg",
//    "users": [
//      {
//        "role": "Surgeon",
//        "sub_roles": [
//        ],
//        "viewable_for_sharing": true,
//        "eula_create_date": 123
//      },
//      {
//        "role": "Support",
//        "sub_roles": [
//          "Tech",
//          "Service"
//        ],
//        "viewable_for_sharing": true,
//        "eula_create_date": 123
//      }
//    ]
//  }