Delphi DLL Requires Chilkat v11.4.0+

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. Delphi DLL

var
success: Boolean;
car: PWideChar;
json: HCkJsonObject;

begin
success := False;

car := '{"make":"Toyota","model":"Camry","year":2022,"color":"silver","engine":{"type":"inline-4","fuel":"gasoline","horsepower":203},"features":["bluetooth","backup camera","adaptive cruise control","lane assist"],"isElectric":false}';

json := CkJsonObject_Create();

CkJsonObject_UpdateString(json,'test','abc');

success := CkJsonObject_NewObjectOf(json,'car',car);
if (success = False) then
  begin
    Memo1.Lines.Add(CkJsonObject__lastErrorText(json));
    Exit;
  end;

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

//  Result:

//  {
//    "test": "abc",
//    "car": {
//      "make": "Toyota",
//      "model": "Camry",
//      "year": 2022,
//      "color": "silver",
//      "engine": {
//        "type": "inline-4",
//        "fuel": "gasoline",
//        "horsepower": 203
//      },
//      "features": [
//        "bluetooth",
//        "backup camera",
//        "adaptive cruise control",
//        "lane assist"
//      ],
//      "isElectric": false
//    }
//  }

CkJsonObject_Dispose(json);