(Delphi DLL) Insert JSON Array into another JSON Object

See more JSON Examples

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

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
jsonA: HCkJsonObject;
jsonB: HCkJsonObject;
jsonUsersDest: HCkJsonArray;
jsonUsersSrc: HCkJsonArray;

begin
// Imagine we have two separate JSON objects.
jsonA := CkJsonObject_Create();
CkJsonObject_UpdateString(jsonA,'ciphertext','encryptedData');
CkJsonObject_UpdateInt(jsonA,'status',200);
CkJsonObject_UpdateString(jsonA,'error','errorMsg');

CkJsonObject_putEmitCompact(jsonA,False);
Memo1.Lines.Add(CkJsonObject__emit(jsonA));

// jsonA contains:

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

jsonB := CkJsonObject_Create();
CkJsonObject_UpdateString(jsonB,'users[0].role','Surgeon');
CkJsonObject_UpdateNewArray(jsonB,'users[0].sub_roles');
CkJsonObject_UpdateBool(jsonB,'users[0].viewable_for_sharing',True);
CkJsonObject_UpdateInt(jsonB,'users[0].eula_create_date',123);
CkJsonObject_UpdateString(jsonB,'users[1].role','Support');
CkJsonObject_UpdateString(jsonB,'users[1].sub_roles[0]','Tech');
CkJsonObject_UpdateString(jsonB,'users[1].sub_roles[1]','Service');
CkJsonObject_UpdateBool(jsonB,'users[1].viewable_for_sharing',True);
CkJsonObject_UpdateInt(jsonB,'users[1].eula_create_date',123);

CkJsonObject_putEmitCompact(jsonB,False);
Memo1.Lines.Add(CkJsonObject__emit(jsonB));

// 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
//     }
//   ]
// }

// First add an empty array at the desired location (-1 means append to end).
CkJsonObject_AddArrayAt(jsonA,-1,'users');

// The destination is the empty "users" array, the source is the populated "users" array in jsonB.
jsonUsersDest := CkJsonObject_ArrayOf(jsonA,'users');
jsonUsersSrc := CkJsonObject_ArrayOf(jsonB,'users');
// Copy the array items from source to dest
CkJsonArray_AppendArrayItems(jsonUsersDest,jsonUsersSrc);
CkJsonArray_Dispose(jsonUsersDest);
CkJsonArray_Dispose(jsonUsersSrc);

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

// 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
//     }
//   ]
// }

CkJsonObject_Dispose(jsonA);
CkJsonObject_Dispose(jsonB);

end;