Delphi ActiveX

Delete File

See more Google Drive Examples

Permanently deletes a file owned by the user without moving it to the trash. If the target is a folder, all descendants owned by the user are also deleted.

See Google Drive Files delete for more information.

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;
fileId: WideString;
sbPath: TChilkatStringBuilder;
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);

// To delete a file, we must use the fileId.
// This must've been obtained by listing or searching for the file
// to get the metadata.
// Assume we already did that an have the fileId
fileId := '0B53Q6OSTWYoldUprZVU1ZVQ5Z0k';

sbPath := TChilkatStringBuilder.Create(Self);
sbPath.Append('/drive/v3/files/');
sbPath.Append(fileId);

jsonResponse := rest.FullRequestNoBody('DELETE',sbPath.GetAsString());
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('File deleted.');
end;