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/S3: step-116: s3BuckPathHelper() for multi-bucket

Browse source
This commit is contained in:
rich2014 2025-05-10 15:23:29 +08:00
commit 5761433e56
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
plugins/wfx/MacCloud/src/drivers/aws/us3client.pas
View file

@ -193,6 +193,25 @@ implementation
var
s3CloudDriverConfig: TS3Config;
procedure s3BuckPathHelper(
const authSession: TCloudDriverAuthSession;
const path: String;
var bucketPath: String;
var connectionData: TAWSConnectionData );
var
parser: TS3PathParser = nil;
driver: TS3Client;
begin
try
parser:= TS3PathParser.Create( path );
driver:= TS3Client( authSession.cloudDriver );
bucketPath:= parser.bucketPath;
connectionData:= driver.getConnectionDataOfBucket( parser.bucketName );
finally
FreeAndNil( parser );
end;
end;
// raise the corresponding exception if there are errors
procedure S3ClientResultProcess( const cloudDriverResult: TCloudDriverResult );
var