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/Box: step-75: Box Config

Browse source
This commit is contained in:
rich2014 2025-04-24 23:33:15 +08:00
commit f4b2a489cc
2 changed files with 39 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
plugins/wfx/MacCloud/src/MacCloud.lpr
View file

@ -27,7 +27,6 @@
(2) avoid version hell of libcrypto, openssl, etc.
(3) minimal external dependencies, json / hash / string encoding / file utils, etc.
(4) reduce unnecessary size of plugins
3. currently implementing DropBox only
}
library MacCloud;

43
plugins/wfx/MacCloud/src/umaccloudconfig.pas
View file

@ -9,7 +9,7 @@ uses
Classes, SysUtils, Contnrs,
CocoaAll, uMiniCocoa,
uMacCloudCore,
uCloudDriver, uDropBoxClient, uYandexClient, uOneDriveClient,
uCloudDriver, uDropBoxClient, uYandexClient, uOneDriveClient, uBoxClient,
uMiniUtil;
type
@ -84,18 +84,31 @@ type
class function cloudDriverClass: TCloudDriverClass; override;
end;
{ TBoxCloudDriverConfig }
TBoxCloudDriverConfig = class( TTokenCloudDriverConfig )
class function cloudDriverConfigPtr: TCloudDriverConfigPtr; override;
class function cloudDriverClass: TCloudDriverClass; override;
end;
{ TTokenCloudDriverConfig }
class procedure TTokenCloudDriverConfig.loadCommon(const params: NSDictionary);
var
clientID: String;
clientSecret: String;
listenURI: String;
oldCloudDriverConfig: TCloudDriverConfig;
begin
clientID:= TJsonUtil.getString( params, 'clientID' );
clientSecret:= TJsonUtil.getString( params, 'clientSecret' );
listenURI:= TJsonUtil.getString( params, 'listenURI' );
oldCloudDriverConfig:= self.cloudDriverConfigPtr^;
self.cloudDriverConfigPtr^:= TCloudDriverConfig.Create( clientID, listenURI );
if clientSecret = EmptyStr then begin
self.cloudDriverConfigPtr^:= TCloudDriverConfig.Create( clientID, listenURI );
end else begin
self.cloudDriverConfigPtr^:= TCloudDriverConfigWithSecret.Create( clientID, clientSecret, listenURI );
end;
if Assigned(oldCloudDriverConfig) then
oldCloudDriverConfig.Free;
cloudDriverManager.register( self.cloudDriverClass );
@ -108,6 +121,8 @@ begin
cloudDriverConfig:= self.cloudDriverConfigPtr^;
TJsonUtil.setString( params, 'clientID', cloudDriverConfig.clientID );
TJsonUtil.setString( params, 'listenURI', cloudDriverConfig.listenURI );
if cloudDriverConfig is TCloudDriverConfigWithSecret then
TJsonUtil.setString( params, 'clientSecret', TCloudDriverConfigWithSecret(cloudDriverConfig).clientSecret );
end;
class procedure TTokenCloudDriverConfig.loadSecurity(
@ -176,6 +191,18 @@ begin
Result:= TOneDriveClient;
end;
{ TBoxCloudDriverConfig }
class function TBoxCloudDriverConfig.cloudDriverConfigPtr: TCloudDriverConfigPtr;
begin
Result:= @boxConfig;
end;
class function TBoxCloudDriverConfig.cloudDriverClass: TCloudDriverClass;
begin
Result:= TBoxClient;
end;
{ TMacCloudConfigManager }
constructor TMacCloudConfigManager.Create;
@ -253,8 +280,12 @@ procedure TMacCloudConfigManager.saveToSecurity;
driverName:= connection.driver.driverName;
TJsonUtil.setString( jsonConnection, 'name', connection.name );
config:= TMacCloudDriverConfigClass( _configItems[driverName] );
config.saveSecurity( connection.driver, jsonConnection );
json.addObject( jsonConnection );
if config = nil then begin
TLogUtil.logError( 'Config Class for Driver Not Found: ' + driverName );
end else begin
config.saveSecurity( connection.driver, jsonConnection );
json.addObject( jsonConnection );
end;
jsonConnection.release;
end;
Result:= json;
@ -403,6 +434,10 @@ begin
macCloudDriverConfigManager.register( TOneDriveClient.driverName, TOneDriveCloudDriverConfig );
oneDriveConfig:= TCloudDriverConfig.Create( '', 'dc2ea085a05ac273a://onedrive/auth' );
cloudDriverManager.register( TOneDriveClient );
macCloudDriverConfigManager.register( TBoxClient.driverName, TBoxCloudDriverConfig );
boxConfig:= TCloudDriverConfigWithSecret.Create( '', '', 'dc2ea085a05ac273a://box/auth' );
cloudDriverManager.register( TBoxClient );
end;
initialization