Cloud Demo - Force Logout

VCL TMS VCL Cloud Pack
1

I see that someone mentioned this a little while ago, but I can't make it work



Using the CloudStorage demo (In this case Google), when I Disconnect, I want to log out completely, so that when I Connect again I am forced to re-enter my username and password.



If I clear the Tokens it just asks for Authorization and not a re-login. I added the first line in the DoDisconnect, but this makes no difference.



procedure TForm4.DoDisconnect;

begin

Storage.Logout; //Added this but to no avail



if clrAccess.Checked then

    Storage.ClearTokens;



Authenticated := false;

TreeView1.Items.Clear;



Any clues?



2

Storage.Logout calls this:



procedure TCloudBase.Logout;

begin

//defined descendant class

end;



So not a lot of functionality here.



Any suggestions as to what we have to do to log out?

3

Hi,


Each storage API service has a specific logout call, so simply using Storage.Logout will not work.
Example for SkyDrive:
  AdvSkyDrive1.Logout;

Please note that Logout is currently not implemented for Google Drive.
This will however be available with the next update of the TMS Cloud Pack.
As a workaround you can use the following code:
  AdvGDrive1.HttpsGet('https://accounts.google.com/logout');
4

OK, that seems to be a fix.



How about DropBox?



Is there a fix for that as well?

5

So far, we haven't found Dropbox offers an API to force this. We'll keep investigating this.

6

This seems to work:



   AdvDropBox1.HttpsGet ('https://www.dropbox.com/logout');



Got this from the DropBox forums.

7

Hi,


Thank you for your suggestion.
We'll considder adding this to TAdvDropBox in the next version.