Delphi DLL

JSON PathPrefix Example

Demonstrates the JSON object's PathPrefix property. Delphi 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
success: Boolean;
json: HCkJsonObject;
city: PWideChar;

begin
success := False;

json := CkJsonObject_Create();

CkJsonObject_putPathPrefix(json,'company.billing.');

CkJsonObject_UpdateString(json,'company_name','TechNova Solutions Inc.');
CkJsonObject_UpdateString(json,'address_line_1','123 Innovation Drive');
CkJsonObject_UpdateString(json,'address_line_2','Suite 450');
CkJsonObject_UpdateString(json,'city','Seattle');
CkJsonObject_UpdateString(json,'state_province','WA');
CkJsonObject_UpdateString(json,'postal_code','98101');
CkJsonObject_UpdateString(json,'country','USA');

CkJsonObject_putEmitCompact(json,False);

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

// Result:

// {
//   "company": {
//     "billing": {
//       "company_name": "TechNova Solutions Inc.",
//       "address_line_1": "123 Innovation Drive",
//       "address_line_2": "Suite 450",
//       "city": "Seattle",
//       "state_province": "WA",
//       "postal_code": "98101",
//       "country": "USA"
//     }
//   }
// }

city := CkJsonObject__stringOf(json,'city');
Memo1.Lines.Add('city = ' + city);

CkJsonObject_Dispose(json);

end;