(Delphi DLL) Load JSON Data at Path

Demonstrates how to load JSON data into a path within a JSON database. For example, we begin with this JSON:

{
  "a": 1,
  "b": 2,
  "c": {
    "x": 1,
    "y": 2
  }
}

{
  "a": 1,
  "b": 2,
  "c": {
    "mm": 11,
    "nn": 22
  }
}

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
p: PWideChar;
json: HCkJsonObject;
q: PWideChar;
c: HCkJsonObject;

begin
// Demonstrates how to load replace the data at a location within a JSON database.

p := '{"a": 1, "b": 2, "c": { "x": 1, "y": 2 } }';

json := CkJsonObject_Create();
CkJsonObject_Load(json,p);
CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

q := '{"mm": 11, "nn": 22}';

c := CkJsonObject_Create();
CkJsonObject_ObjectOf2(json,'c',c);
CkJsonObject_Load(c,q);

// See that x and y are replaced with mm and nn.
Memo1.Lines.Add(CkJsonObject__emit(json));

CkJsonObject_Dispose(json);
CkJsonObject_Dispose(c);

end;