Google Drive shows no files when running CloudStorageServiceDemo

Running the CloudStorageServiceDemo project in Delphi 11 seems to connect with Google Drive but no files appear.

procedure TForm1.FormCreate(Sender: TObject);
begin
  GoogleClientID := '2167***rt.apps.googleusercontent.com';
  GoogleSecret := 'GOCSP*****';
  GoogleURL := 'http://127.0.0.1:8888';

end;

Does something else need to be done to get it to access files?

Hi,

I'm not sure what is going wrong as we are not aware of any issues with connecting to Google Drive.
Can you please try to use Fiddler or enable logging to provide more info about what is going wrong?

Enable logging in TTMSFNCCloudStorageServices:
TMSFNCCloudStorageServices1.Storage.Logging := True;

I've added this line to the top of the FormCreate() method:

TMSFNCCloudStorageServices1.Storage.Logging := True;

It creates the expected .INI file in the Documents folder but I can find no log file.

Could the issue possibly be related to which APIs are selected in Google Drive? I'd like to select the one(s) that allow access to just the folder used by my app, similar to the Dropbox way.

The issue went away when I moved the app from the testing phase to the review phase in Google.

Thank you for notifying the issue was resolved!