Delphi ActiveX

Empty Trash

See more Google Drive Examples

Permanently deletes all of the user's trashed files. Delphi ActiveX

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
success: Integer;
gAuth: TChilkatAuthGoogle;
rest: TChilkatRest;
bAutoReconnect: Integer;
jsonResponse: WideString;

begin
success := 0;

success := 1;

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

// This example uses a previously obtained access token having permission for the 
// Google Drive scope.

gAuth := TChilkatAuthGoogle.Create(Self);
gAuth.AccessToken := 'GOOGLE-DRIVE-ACCESS-TOKEN';

rest := TChilkatRest.Create(Self);

// Connect using TLS.
bAutoReconnect := 1;
success := rest.Connect('www.googleapis.com',443,1,bAutoReconnect);

// Provide the authentication credentials (i.e. the access token)
rest.SetAuthGoogle(gAuth.ControlInterface);

jsonResponse := rest.FullRequestNoBody('DELETE','/drive/v3/files/trash');
if (rest.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// A successful response will have a status code equal to 204 and the response body is empty.
// (If not successful, then there should be a JSON response body with information..)
if (rest.ResponseStatusCode <> 204) then
  begin
    Memo1.Lines.Add('response status code = ' + IntToStr(rest.ResponseStatusCode));
    Memo1.Lines.Add('response status text = ' + rest.ResponseStatusText);
    Memo1.Lines.Add('response header: ' + rest.ResponseHeader);
    Memo1.Lines.Add('response JSON: ' + jsonResponse);
    Exit;
  end;

Memo1.Lines.Add('Trash Emptied!');
end;