mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: MacCloud/DropBox step-27: implement DropBox revoke token

Browse source
This commit is contained in:
rich2014 2025-04-06 16:28:24 +08:00
commit ca3dfa26f2
2 changed files with 41 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

27
plugins/wfx/MacCloud/src/dropbox/udropboxclient.pas
View file

@ -82,6 +82,7 @@ type
procedure waitAuthorizationAndPrompt;
procedure closePrompt;
procedure requestToken;
procedure revokeToken;
procedure refreshToken;
procedure onRedirect( const url: NSURL );
function getAccessToken: String;
@ -236,6 +237,7 @@ type
TDropBoxConstURI = record
OAUTH2: String;
TOKEN: String;
REVOKE_TOKEN: String;
LIST_FOLDER: String;
LIST_FOLDER_CONTINUE: String;
DOWNLOAD: String;
@ -271,6 +273,7 @@ const
URI: (
OAUTH2: 'https://www.dropbox.com/oauth2/authorize';
TOKEN: 'https://api.dropbox.com/oauth2/token';
REVOKE_TOKEN: 'https://api.dropboxapi.com/2/auth/token/revoke';
LIST_FOLDER: 'https://api.dropboxapi.com/2/files/list_folder';
LIST_FOLDER_CONTINUE: 'https://api.dropboxapi.com/2/files/list_folder/continue';
DOWNLOAD: 'https://content.dropboxapi.com/2/files/download';
@ -518,6 +521,20 @@ begin
end;
end;
procedure TDropBoxAuthPKCESession.revokeToken;
var
http: TMiniHttpClient;
begin
try
http:= TMiniHttpClient.Create;
self.setAuthHeader( http );
http.post( DropBoxConst.URI.REVOKE_TOKEN, nil );
finally
_token.invalid;
FreeAndNil( http );
end;
end;
procedure TDropBoxAuthPKCESession.refreshToken;
var
http: TMiniHttpClient;
@ -633,13 +650,21 @@ begin
requestToken;
Result:= self.authorized;
finally
_codeVerifier:= EmptyStr;
_state:= EmptyStr;
_code:= EmptyStr;
_lockObject.Release;
end;
end;
procedure TDropBoxAuthPKCESession.unauthorize;
begin
_token.invalid;
_lockObject.Acquire;
try
revokeToken;
finally
_lockObject.Release;
end;
end;
function TDropBoxAuthPKCESession.authorized: Boolean;

23
plugins/wfx/MacCloud/src/umaccloudoptions.pas
View file

@ -8,7 +8,8 @@ interface
uses
Classes, SysUtils,
CocoaAll, uMiniCocoa,
uMacCloudCore;
uMacCloudCore,
uMiniUtil;
type
@ -299,13 +300,19 @@ var
configItem: TConnectionConfigItem;
driver: TCloudDriver;
begin
configItem:= self.currentConfigItem;
driver:= configItem.driver;
if driver.authorized then
driver.unauthorize
else
driver.authorize;
self.propertyView.updateConnectStatus;
try
configItem:= self.currentConfigItem;
driver:= configItem.driver;
if driver.authorized then
driver.unauthorize
else
driver.authorize;
self.propertyView.updateConnectStatus;
except
on e: Exception do begin
TLogUtil.log( 6, 'in TCloudOptionsWindow: ' + e.Message );
end;
end;
end;
function TCloudOptionsWindow.currentConfigItem: TConnectionConfigItem;