This is likely related to the CloudStorageServiceDemo hanging on iOS.
Latest versions of Delphi and Cloud Pack.
This code hangs on an iPad (16.7.12) when Connect() is called. Delphi has to terminate debugging.
Drop the component on a blank Delphi project and have a button call this code on an iOS device:
procedure TForm1.DoConnectWithGoogleDrive;
var
spersist: string;
begin
spersist := TTMSFNCUtils.AddBackslash(TTMSFNCUtils.GetDocumentsPath) + TMSFNCCloudGoogleDrive1.ClassName;
TMSFNCCloudGoogleDrive1.Logging := True;
TMSFNCCloudGoogleDrive1.LogFileName := 'Mike TMS FNC Google Drive Log file.TXT';
TMSFNCCloudGoogleDrive1.Authentication.ClientID := kGoogleDriveClientID;
TMSFNCCloudGoogleDrive1.Authentication.Secret := kGoogleDriveClientSecret;
TMSFNCCloudGoogleDrive1.Authentication.CallBackURL := kGoogleDriveURL;
TMSFNCCloudGoogleDrive1.PersistTokens.Key := spersist + 'GoogleDriveLog.TXT';
TMSFNCCloudGoogleDrive1.Scopes.Clear;
TMSFNCCloudGoogleDrive1.Scopes.Add(kGoogleDriveScope);
TMSFNCCloudGoogleDrive1.Connect;
end;
This code runs as expected on Windows and on Macintosh.