(Delphi DLL) Delete All Files

Permanently deletes all files owned by the user without moving it to the trash.

This example works by first getting a list of all fileIds, and then iterating over the list to delete each file.

See Google Drive Files delete for more information.

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringArray, AuthGoogle, StringBuilder, JsonObject, Rest;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
gAuth: HCkAuthGoogle;
rest: HCkRest;
bAutoReconnect: Boolean;
json: HCkJsonObject;
i: Integer;
numFiles: Integer;
jsonResponse: PWideChar;
pageNumber: Integer;
pageToken: PWideChar;
bContinueLoop: Boolean;
fileId: PWideChar;
saFileIds: HCkStringArray;
bHasMorePages: Boolean;
sbPath: HCkStringBuilder;

begin
success := True;

// 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 := CkAuthGoogle_Create();
CkAuthGoogle_putAccessToken(gAuth,'GOOGLE-DRIVE-ACCESS-TOKEN');

rest := CkRest_Create();

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

// Provide the authentication credentials (i.e. the access token)
CkRest_SetAuthGoogle(rest,gAuth);

// Get 10 results per page for testing.  (The default page size is 100, with a max of 1000.
CkRest_AddQueryParam(rest,'pageSize','10');

json := CkJsonObject_Create();

// Send the request for the 1st page.
jsonResponse := CkRest__fullRequestNoBody(rest,'GET','/drive/v3/files');

pageNumber := 1;

bContinueLoop := CkRest_getLastMethodSuccess(rest) and (CkRest_getResponseStatusCode(rest) = 200);

saFileIds := CkStringArray_Create();

while bContinueLoop = True do
  begin

    Memo1.Lines.Add('---- Page ' + IntToStr(pageNumber) + ' ----');
    CkJsonObject_Load(json,jsonResponse);

    numFiles := CkJsonObject_SizeOfArray(json,'files');
    i := 0;
    while i < numFiles do
      begin
        CkJsonObject_putI(json,i);
        fileId := CkJsonObject__stringOf(json,'files[i].id');
        Memo1.Lines.Add('name: ' + CkJsonObject__stringOf(json,'files[i].name'));
        Memo1.Lines.Add('id: ' + fileId);
        CkStringArray_Append(saFileIds,fileId);
        i := i + 1;
      end;

    // Get the next page of files.
    // If the "nextPageToken" is present in the JSON response, then use it in the "pageToken" parameter
    // for the next request.   If no "nextPageToken" was present, then this was the last page of files.
    pageToken := CkJsonObject__stringOf(json,'nextPageToken');
    bContinueLoop := False;
    bHasMorePages := CkJsonObject_getLastMethodSuccess(json);
    if (bHasMorePages = True) then
      begin
        CkRest_ClearAllQueryParams(rest);
        CkRest_AddQueryParam(rest,'pageSize','10');
        CkRest_AddQueryParam(rest,'pageToken',pageToken);
        jsonResponse := CkRest__fullRequestNoBody(rest,'GET','/drive/v3/files');
        bContinueLoop := CkRest_getLastMethodSuccess(rest) and (CkRest_getResponseStatusCode(rest) = 200);
        pageNumber := pageNumber + 1;
      end;

  end;

// Before actually deleting, check for errors...
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// A successful response will have a status code equal to 200.
if (CkRest_getResponseStatusCode(rest) <> 200) then
  begin
    Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest)));
    Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest));
    Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest));
    Memo1.Lines.Add('response JSON: ' + jsonResponse);
    Exit;
  end;

// OK, we have the full list of files.  Delete each..
sbPath := CkStringBuilder_Create();
numFiles := CkStringArray_getCount(saFileIds);
i := 0;
while i < numFiles do
  begin
    fileId := CkStringArray__getString(saFileIds,i);

    CkRest_ClearAllQueryParams(rest);

    CkStringBuilder_Clear(sbPath);
    CkStringBuilder_Append(sbPath,'/drive/v3/files/');
    CkStringBuilder_Append(sbPath,fileId);

    jsonResponse := CkRest__fullRequestNoBody(rest,'DELETE',CkStringBuilder__getAsString(sbPath));
    if (CkRest_getLastMethodSuccess(rest) <> True) then
      begin
        Memo1.Lines.Add(CkRest__lastErrorText(rest));
        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 (CkRest_getResponseStatusCode(rest) <> 204) then
      begin
        Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest)));
        Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest));
        Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest));
        Memo1.Lines.Add('response JSON: ' + jsonResponse);
        Exit;
      end;

    i := i + 1;
    Memo1.Lines.Add(IntToStr(i) + ': Deleted ' + fileId);
  end;

Memo1.Lines.Add('All Files Deleted.');

CkAuthGoogle_Dispose(gAuth);
CkRest_Dispose(rest);
CkJsonObject_Dispose(json);
CkStringArray_Dispose(saFileIds);
CkStringBuilder_Dispose(sbPath);

end;