(Delphi DLL) 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..

Note: This example requires Chilkat v11.0.0 or greater.

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, JsonObject;

...

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

begin
// Imagine we have two separate JSON objects.
jsonA := CkJsonObject_Create();
CkJsonObject_UpdateString(jsonA,'animal','zebra');
CkJsonObject_UpdateString(jsonA,'colors[0]','white');
CkJsonObject_UpdateString(jsonA,'colors[1]','black');

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

// jsonA contains:

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

jsonB := CkJsonObject_Create();
CkJsonObject_UpdateString(jsonB,'type','mammal');
CkJsonObject_UpdateBool(jsonB,'carnivore',False);

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

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

CkJsonObject_AddObjectCopyAt(jsonA,1,'info',jsonB);

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

// The result is this:

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

CkJsonObject_Dispose(jsonA);
CkJsonObject_Dispose(jsonB);

end;