Delphi DLL 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 DLL

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

//  The destination is the empty "users" array, the source is the populated "users" array in jsonB.
jsonUsersDest := CkJsonArray_Create();
CkJsonObject_AppendArray2(jsonA,'users',jsonUsersDest);

jsonUsersSrc := CkJsonArray_Create();
CkJsonObject_ArrayOf2(jsonB,'users',jsonUsersSrc);

//  Copy the array items from source to dest
CkJsonArray_AppendArrayItems(jsonUsersDest,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);
CkJsonArray_Dispose(jsonUsersDest);
CkJsonArray_Dispose(jsonUsersSrc);