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/OneDrive: step-65: One Drive config

Browse source
This commit is contained in:
rich2014 2025-04-19 11:41:00 +08:00
commit 60d8139b30
1 changed files with 26 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -9,7 +9,7 @@ uses
Classes, SysUtils, Contnrs,
CocoaAll, uMiniCocoa,
uMacCloudCore,
uCloudDriver, uDropBoxClient, uYandexClient,
uCloudDriver, uDropBoxClient, uYandexClient, uOneDriveClient,
uMiniUtil;
type
@ -77,6 +77,13 @@ type
class function cloudDriverClass: TCloudDriverClass; override;
end;
{ TOneDriveCloudDriverConfig }
TOneDriveCloudDriverConfig = class( TTokenCloudDriverConfig )
class function cloudDriverConfigPtr: TCloudDriverConfigPtr; override;
class function cloudDriverClass: TCloudDriverClass; override;
end;
{ TTokenCloudDriverConfig }
class procedure TTokenCloudDriverConfig.loadCommon(const params: NSDictionary);
@ -157,6 +164,18 @@ begin
Result:= TYandexClient;
end;
{ TOneDriveCloudDriverConfig }
class function TOneDriveCloudDriverConfig.cloudDriverConfigPtr: TCloudDriverConfigPtr;
begin
Result:= @oneDriveConfig;
end;
class function TOneDriveCloudDriverConfig.cloudDriverClass: TCloudDriverClass;
begin
Result:= TOneDriveClient;
end;
{ TMacCloudConfigManager }
constructor TMacCloudConfigManager.Create;
@ -372,14 +391,18 @@ begin
// which would be overridden by MacCloud.json,
// used when there is no MacCloud.json
macCloudDriverConfigManager:= TMacCloudConfigManager.Create;
macCloudDriverConfigManager.register( TDropBoxClient.driverName, TDropBoxCloudDriverConfig );
macCloudDriverConfigManager.register( TYandexClient.driverName, TYandexCloudDriverConfig );
macCloudDriverConfigManager.register( TDropBoxClient.driverName, TDropBoxCloudDriverConfig );
dropBoxConfig:= TCloudDriverConfig.Create( 'ahj0s9xia6i61gh', 'dc2ea085a05ac273a://dropbox/auth' );
cloudDriverManager.register( TDropBoxClient );
macCloudDriverConfigManager.register( TYandexClient.driverName, TYandexCloudDriverConfig );
yandexConfig:= TCloudDriverConfig.Create( 'eaf0c133568a46a0bd986bffb48c62b6', 'dc2ea085a05ac273a://yandex/auth' );
cloudDriverManager.register( TYandexClient );
macCloudDriverConfigManager.register( TOneDriveClient.driverName, TOneDriveCloudDriverConfig );
oneDriveConfig:= TCloudDriverConfig.Create( '', 'dc2ea085a05ac273a://onedrive/auth' );
cloudDriverManager.register( TOneDriveClient );
end;
initialization