(Delphi ActiveX) Search for Files in Google Drive

This example follows the same methodology for listing all files in Google Drive in pages, but applies a search filter. It shows how to apply a query parameter for filtering the file results. See the Google Drive Files list for more optional HTTP parameters.

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
success: Integer;
gAuth: TChilkatAuthGoogle;
rest: TChilkatRest;
bAutoReconnect: Integer;
json: TChilkatJsonObject;
i: Integer;
numFiles: Integer;
jsonResponse: WideString;
pageNumber: Integer;
pageToken: WideString;
bContinueLoop: Integer;
bHasMorePages: Integer;

begin
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);

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

// Our search filter is to list all files containing ".jpg" (i.e. all JPG image files)
rest.AddQueryParam('q','name contains ''.jpg''');

json := TChilkatJsonObject.Create(Self);

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

pageNumber := 1;

bContinueLoop := rest.LastMethodSuccess and (rest.ResponseStatusCode = 200);

while bContinueLoop = 1 do
  begin

    Memo1.Lines.Add('---- Page ' + IntToStr(pageNumber) + ' ----');

    // Iterate over each file in the response and show the name, id, and mimeType.
    json.Load(jsonResponse);

    numFiles := json.SizeOfArray('files');
    i := 0;
    while i < numFiles do
      begin
        json.I := i;
        Memo1.Lines.Add('name: ' + json.StringOf('files[i].name'));
        Memo1.Lines.Add('id: ' + json.StringOf('files[i].id'));
        Memo1.Lines.Add('mimeType: ' + json.StringOf('files[i].mimeType'));
        Memo1.Lines.Add('-');
        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 := json.StringOf('nextPageToken');
    bContinueLoop := 0;
    bHasMorePages := json.LastMethodSuccess;
    if (bHasMorePages = 1) then
      begin
        rest.ClearAllQueryParams();
        rest.AddQueryParam('pageSize','5');
        rest.AddQueryParam('pageToken',pageToken);
        rest.AddQueryParam('q','name contains ''.jpg''');

        jsonResponse := rest.FullRequestNoBody('GET','/drive/v3/files');
        bContinueLoop := rest.LastMethodSuccess and (rest.ResponseStatusCode = 200);
        pageNumber := pageNumber + 1;
      end;

  end;

if (rest.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// A successful response will have a status code equal to 200.
if (rest.ResponseStatusCode <> 200) 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;
end;