mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: MacCloud/Box: TCloudDriverOAuth2SecretSession.clone()

Browse source
This commit is contained in:
rich2014 2025-04-24 23:33:27 +08:00
commit f6063ca243
1 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

27
plugins/wfx/MacCloud/src/drivers/uclouddriver.pas
View file

@ -211,7 +211,7 @@ type
public
constructor Create( const driver: TCloudDriver; const params: TCloudDriverOAuth2SessionParams );
destructor Destroy; override;
function clone( const driver: TCloudDriver ): TCloudDriverOAuth2Session;
function clone( const driver: TCloudDriver ): TCloudDriverOAuth2Session; virtual; abstract;
public
function authorize: Boolean;
procedure unauthorize;
@ -231,6 +231,8 @@ type
procedure onRequestToken( const queryItems: TQueryItemsDictonary ); override;
procedure onRefreshToken( const queryItems: TQueryItemsDictonary ); override;
procedure onRevokeToken( const http: TMiniHttpClient ); override;
public
function clone(const driver: TCloudDriver): TCloudDriverOAuth2Session; override;
end;
{ TCloudDriverOAuth2SecretSession }
@ -241,6 +243,8 @@ type
procedure onRequestToken( const queryItems: TQueryItemsDictonary ); override;
procedure onRefreshToken( const queryItems: TQueryItemsDictonary ); override;
procedure onRevokeToken( const http: TMiniHttpClient ); override;
public
function clone(const driver: TCloudDriver): TCloudDriverOAuth2Session; override;
end;
{ TCloudDriverListFolderSession }
@ -796,13 +800,6 @@ begin
FreeAndNil( _lockObject );
end;
function TCloudDriverOAuth2Session.clone( const driver: TCloudDriver ): TCloudDriverOAuth2Session;
begin
Result:= TCloudDriverOAuth2PKCESession.Create( driver, _params );
Result._accountID:= _accountID;
Result._token:= _token.clone;
end;
function TCloudDriverOAuth2Session.authorize: Boolean;
begin
_lockObject.Acquire;
@ -881,6 +878,13 @@ procedure TCloudDriverOAuth2PKCESession.onRevokeToken( const http: TMiniHttpClie
begin
end;
function TCloudDriverOAuth2PKCESession.clone( const driver: TCloudDriver ): TCloudDriverOAuth2Session;
begin
Result:= TCloudDriverOAuth2PKCESession.Create( driver, _params );
Result._accountID:= _accountID;
Result._token:= _token.clone;
end;
{ TCloudDriverOAuth2SecretSession }
procedure TCloudDriverOAuth2SecretSession.onAuthorize(
@ -916,6 +920,13 @@ begin
http.setQueryParams( queryItems );
end;
function TCloudDriverOAuth2SecretSession.clone( const driver: TCloudDriver ): TCloudDriverOAuth2Session;
begin
Result:= TCloudDriverOAuth2SecretSession.Create( driver, _params );
Result._accountID:= _accountID;
Result._token:= _token.clone;
end;
{ TCloudDriverManager }
constructor TCloudDriverManager.Create;