(Delphi ActiveX) Firebase PATCH - Updating Data

Uses the PATCH method to update record with new information. The data used in this example is at Chilkat Firebase Pigs Database, and is shown here:

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
fac: TCkFileAccess;
accessToken: WideString;
rest: TChilkatRest;
success: Integer;
authGoogle: TChilkatAuthGoogle;
pigNameUpdate: TChilkatJsonObject;
jsonResponse: WideString;

begin
// Uses the PATCH method to update a Firebase record.

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// This example assumes a JWT authentication token, if required, has been previously obtained.
// See Get Firebase Access Token from JSON Service Account Private Key for sample code.

// Load the previously obtained Firebase access token into a string.
fac := TCkFileAccess.Create(Self);
accessToken := fac.ReadEntireTextFile('qa_data/tokens/firebaseToken.txt','utf-8');
if (fac.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(fac.LastErrorText);
    Exit;
  end;

rest := TChilkatRest.Create(Self);

// Make the initial connection (without sending a request yet).
// Once connected, any number of requests may be sent.  It is not necessary to explicitly
// call Connect before each request.  
success := rest.Connect('chilkat.firebaseio.com',443,1,1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;
authGoogle := TChilkatAuthGoogle.Create(Self);
authGoogle.AccessToken := accessToken;
rest.SetAuthGoogle(authGoogle.ControlInterface);

// Chilkat's sample data (pig-rescue data) is publicly readable at: https://chilkat.firebaseio.com/.json
// This data is publicly readable, but not writable.  You'll need to 
// run against your own database..

// We're going to update "Molly II" to "Molly III"
pigNameUpdate := TChilkatJsonObject.Create(Self);
pigNameUpdate.AppendString('name','Molly III');

// The string content of the last arg passed is  {"name":"Molly III"} 
jsonResponse := rest.FullRequestString('PATCH','/pig-rescue/animal/-KI3bD-FU_Dake7sYOiP.json',pigNameUpdate.Emit());
if (rest.LastMethodSuccess <> 1) then
  begin
    // Something happened in the communications (either no request was sent, or no response was received.
    // (The Chilkat REST API also has lower-level methods where an app can send the request in one call,
    // and then receive the response in another call.)
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// Check the response status code.   A 200 response status indicates success.
if (rest.ResponseStatusCode <> 200) then
  begin
    Memo1.Lines.Add(rest.ResponseStatusText);
    Memo1.Lines.Add(jsonResponse);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// When successful, the response contains the data written.
Memo1.Lines.Add(jsonResponse);
Memo1.Lines.Add('Success.');
end;