(Delphi ActiveX) Firebase JSON Put and Patch

Demonstrates how to apply Firebase put and patch events to a JSON database.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json1: WideString;
json: TChilkatJsonObject;

begin
json1 := '{"a": 1, "b": 2}';

json := TChilkatJsonObject.Create(Self);

// Use Firebase delimiters for JSON paths.
json.DelimiterChar := '/';

json.Load(json1);
json.FirebasePut('/c','{"foo": true, "bar": false}');
// Output should be: {"a":1,"b":2,"c":{"foo":true,"bar":false}}
Memo1.Lines.Add('1) ' + json.Emit());

json.FirebasePut('/c','"hello world"');
// Output should be: {"a":1,"b":2,"c":"hello world"}
Memo1.Lines.Add('2) ' + json.Emit());

json.FirebasePut('/c','{"foo": "abc", "bar": 123}');
// Output should be: {"a":1,"b":2,"c":{"foo":"abc","bar":123}}
Memo1.Lines.Add('3) ' + json.Emit());

// Back to the original..
json.FirebasePut('/','{"a": 1, "b": 2}');
Memo1.Lines.Add('4) ' + json.Emit());

json.FirebasePut('/c','{"foo": true, "bar": false}');
json.FirebasePatch('/c','{"foo": 3, "baz": 4}');
// Output should be: {"a":1,"b":2,"c":{"foo":3,"bar":false,"baz":4}}
Memo1.Lines.Add('5) ' + json.Emit());

json.FirebasePatch('/c','{"foo": "abc123", "baz": {"foo": true, "bar": false}, "bax": {"foo": 200, "bar": 400} }');
// Output should be: {"a":1,"b":2,"c":{"foo":"abc123","bar":false,"baz":{"foo":true,"bar":false},"bax":{"foo":200,"bar":400}}}
Memo1.Lines.Add('6) ' + json.Emit());
end;