Delphi ActiveX

Insert JSON Array into another JSON Object

See more JSON Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
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
//     }
//   ]
// }
end;