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-31: load/save drivers/connections to MacCloud.json

Browse source
This commit is contained in:
rich2014 2025-04-08 00:34:17 +08:00
commit e04e484f4a
3 changed files with 104 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

6
plugins/wfx/MacCloud/src/maccloudfunc.pas
View file

@ -70,7 +70,7 @@ begin
if macCloudPlugin <> nil then
macCloudPlugin.configPath:= path;
macCloudDriverConfigManager.loadDriversConfigFromConfigFile( path );
macCloudDriverConfigManager.loadFromConfigFile( path );
end;
function FsFindFirstW(
@ -395,13 +395,13 @@ var
if utf8Verb = 'open' then begin
if parser.connectionName = CONST_ADD_NEW_CONNECTION then begin
TCloudOptionsUtil.addAndShow;
macCloudDriverConfigManager.saveDriversConfigToConfigFile( macCloudPlugin.configPath );
macCloudDriverConfigManager.saveToConfigFile( macCloudPlugin.configPath );
end else begin
Exit( FS_EXEC_SYMLINK );
end;
end else if utf8Verb = 'properties' then begin
TCloudOptionsUtil.show( parser.connectionName );
macCloudDriverConfigManager.saveDriversConfigToConfigFile( macCloudPlugin.configPath );
macCloudDriverConfigManager.saveToConfigFile( macCloudPlugin.configPath );
end;
end;

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

@ -44,8 +44,8 @@ type
destructor Destroy; override;
public
procedure register( const name: String; const config: TCloudDriverConfigClass );
procedure loadDriversConfigFromConfigFile( const path: String );
procedure saveDriversConfigToConfigFile( const path: String );
procedure loadFromConfigFile( const path: String );
procedure saveToConfigFile( const path: String );
end;
var
@ -104,49 +104,106 @@ begin
config.load( params );
end;
procedure TCloudConfigManager.loadDriversConfigFromConfigFile( const path: String );
procedure TCloudConfigManager.loadFromConfigFile( const path: String );
procedure loadDrivers( const jsonDrivers: NSArray );
var
jsonDriver: NSDictionary;
driverName: String;
begin
for jsonDriver in jsonDrivers do begin
driverName:= TJsonUtil.getString( jsonDriver, 'name' );
self.loadDriverConfig( driverName, jsonDriver );
end;
end;
procedure loadConnections( const jsonConnections: NSArray );
var
jsonConnection: NSDictionary;
connections: TCloudConnections;
connection: TCloudConnection;
driverName: String;
begin
connections:= TCloudConnections.Create( True );
for jsonConnection in jsonConnections do begin
driverName:= TJsonUtil.getString( jsonConnection, 'driver' );
connection:= TCloudConnection.Create(
TJsonUtil.getString( jsonConnection, 'name' ),
cloudDriverManager.createInstance( driverName ),
TJsonUtil.getDateTime( jsonConnection, 'creationTime' ),
TJsonUtil.getDateTime( jsonConnection, 'modificationTime' ) );
connections.Add( connection );
end;
cloudConnectionManager.connections:= connections;
end;
var
jsonString: NSString;
json: NSDictionary;
jsonDrivers: NSArray;
jsonDriver: NSDictionary;
driverName: String;
begin
jsonString:= NSString.stringWithContentsOfFile_encoding_error(
StringToNSString(path), NSUTF8StringEncoding, nil );
json:= TJsonUtil.parse( jsonString );
jsonDrivers:= TJsonUtil.getArray( json, 'drivers' );
for jsonDriver in jsonDrivers do begin
driverName:= TJsonUtil.getString( jsonDriver, 'name' );
self.loadDriverConfig( driverName, jsonDriver );
end;
loadDrivers( TJsonUtil.getArray(json, 'drivers') );
loadConnections( TJsonUtil.getArray(json, 'connections') );
end;
procedure TCloudConfigManager.saveDriversConfigToConfigFile(const path: String);
procedure TCloudConfigManager.saveToConfigFile(const path: String);
function saveDrivers: NSArray;
var
json: NSMutableArray;
jsonDriver: NSMutableDictionary;
i: Integer;
driverClasses: TCloudDriverClasses;
driverName: String;
config: TCloudDriverConfigClass;
begin
json:= NSMutableArray.new.autorelease;
driverClasses:= cloudDriverManager.driverClasses;
for i:=0 to driverClasses.Count-1 do begin
jsonDriver:= NSMutableDictionary.new;
driverName:= TCloudDriverClass(driverClasses[i]).driverName;
config:= TCloudDriverConfigClass( _configItems[driverName] );
config.save( jsonDriver );
json.addObject( jsonDriver );
jsonDriver.release;
end;
Result:= json;
end;
function saveConnections: NSArray;
var
json: NSMutableArray;
jsonConnection: NSMutableDictionary;
i: Integer;
connections: TCloudConnections;
connection: TCloudConnection;
begin
json:= NSMutableArray.new.autorelease;
connections:= cloudConnectionManager.connections;
for i:=0 to connections.Count-1 do begin
jsonConnection:= NSMutableDictionary.new;
connection:= TCloudConnection( connections[i] );
TJsonUtil.setString( jsonConnection, 'name', connection.name );
TJsonUtil.setString( jsonConnection, 'driver', connection.driver.driverName );
TJsonUtil.setDateTime( jsonConnection, 'creationTime', connection.creationTime );
TJsonUtil.setDateTime( jsonConnection, 'modificationTime', connection.modificationTime );
json.addObject( jsonConnection );
jsonConnection.release;
end;
Result:= json;
end;
var
jsonString: String;
jsonDrivers: NSMutableArray;
jsonDriver: NSMutableDictionary;
i: Integer;
driverClasses: TCloudDriverClasses;
driverName: String;
config: TCloudDriverConfigClass;
jsonDrivers: NSArray;
jsonConnections: NSArray;
begin
jsonDrivers:= NSMutableArray.new;
driverClasses:= cloudDriverManager.driverClasses;
for i:=0 to driverClasses.Count-1 do begin
jsonDriver:= NSMutableDictionary.new;
driverName:= TCloudDriverClass(driverClasses[i]).driverName;
config:= TCloudDriverConfigClass( _configItems[driverName] );
config.save( jsonDriver );
jsonDrivers.addObject( jsonDriver );
jsonDriver.release;
end;
jsonDrivers:= saveDrivers;
jsonConnections:= saveConnections;
jsonString:= TJsonUtil.dumps(
['drivers',jsonDrivers],
[ 'drivers',jsonDrivers, 'connections',jsonConnections ],
False,
NSJSONWritingWithoutEscapingSlashes or NSJSONWritingPrettyPrinted );
jsonDrivers.release;
StringToNSString(jsonString).writeToFile_atomically_encoding_error(
StringToNSString(path),

14
plugins/wfx/MacCloud/src/util/uminiutil.pas
View file

@ -81,10 +81,12 @@ type
class procedure setString( const json: NSMutableDictionary; const key: String; const value: String );
class procedure setBoolean( const json: NSMutableDictionary; const key: String; const value: Boolean );
class procedure setInteger( const json: NSMutableDictionary; const key: String; const value: Integer );
class procedure setDateTime( const json: NSMutableDictionary; const key: String; const value: TDateTime );
class procedure setArray( const json: NSMutableDictionary; const key: String; const value: NSArray );
class function getString( const json: NSDictionary; const key: String ): String;
class function getBoolean( const json: NSDictionary; const key: String ): Boolean;
class function getInteger( const json: NSDictionary; const key: String ): Integer;
class function getDateTime( const json: NSDictionary; const key: String ): TDateTime;
class function getArray( const json: NSDictionary; const key: String ): NSArray;
end;
@ -311,6 +313,12 @@ begin
json.setObject_forKey( NSNumber.numberWithLongLong(value), StringToNSString(key) );
end;
class procedure TJsonUtil.setDateTime(const json: NSMutableDictionary;
const key: String; const value: TDateTime);
begin
json.setObject_forKey( NSNumber.numberWithDouble(value), StringToNSString(key) );
end;
class procedure TJsonUtil.setArray(const json: NSMutableDictionary; const key: String;
const value: NSArray);
begin
@ -334,6 +342,12 @@ begin
Result:= NSNumber( json.objectForKey( StringToNSString(key) ) ).longLongValue;
end;
class function TJsonUtil.getDateTime(const json: NSDictionary; const key: String
): TDateTime;
begin
Result:= NSNumber( json.objectForKey( StringToNSString(key) ) ).doubleValue;
end;
class function TJsonUtil.getArray(const json: NSDictionary; const key: String
): NSArray;
begin