Amazon web services Delphi 10.4亚马逊aws S3连接错误
我一直在使用下面的函数将数据上传到Amazon aws S3 bucket代码。在Delphi10.3.3中一切都很好,但在10.4中我得到了一个连接错误。我读到TAmazonRegion类型(在Data.Cloud.AmazonAPI中)发生了更改,但找不到解决问题的方法 任何帮助都将不胜感激Amazon web services Delphi 10.4亚马逊aws S3连接错误,amazon-web-services,delphi,amazon-s3,Amazon Web Services,Delphi,Amazon S3,我一直在使用下面的函数将数据上传到Amazon aws S3 bucket代码。在Delphi10.3.3中一切都很好,但在10.4中我得到了一个连接错误。我读到TAmazonRegion类型(在Data.Cloud.AmazonAPI中)发生了更改,但找不到解决问题的方法 任何帮助都将不胜感激 function downloadFile(FileName_origin : string; Bucket: string; memo: TMemo): boolean; var Ser
function downloadFile(FileName_origin : string; Bucket: string; memo: TMemo): boolean;
var Service: TAmazonStorageService;
ConAmazon: TAmazonConnectionInfo;
info : TCloudResponseInfo;
download_stream : TBytesStream;
bytes : TBytes;
begin
download_stream := TBytesStream.Create;
try
// filestream to tBytes
download_stream.Position := 0;
SetLength(bytes, download_stream.Size);
download_stream.ReadBuffer(bytes, download_stream.Size);
try
ConAmazon := TAmazonConnectionInfo.Create(nil);
ConAmazon.AccountKey := SECRETE_ACCESS_KEY;
ConAmazon.AccountName := ACCESS_KEY_ID;
ConAmazon.QueueEndpoint := 'queue.amazonaws.com';
ConAmazon.StorageEndpoint := 's3-us-west-1.amazonaws.com';
ConAmazon.TableEndpoint := 'sdb.amazonaws.com';
ConAmazon.UseDefaultEndpoints := False;
// storage objects
info := TCloudResponseInfo.Create;
Service := TAmazonStorageService.Create(ConAmazon);
try
Result := Service.GetObject(Bucket, filename_origin , download_stream);
finally
info.Free;
Service.Free;
end;
finally
ConAmazon.Free;
end;
finally
memo.Lines.LoadFromStream(download_stream);
download_stream.Free;
end;
end;
以防有人需要帮助。经过一些阅读和挖掘,我意识到修复方法是专门指定区域,因此下面的添加行将修复10.4中的连接问题
亚马逊地区:='us-west-1' 以防有人需要帮助。经过一些阅读和挖掘,我意识到修复方法是专门指定区域,因此下面的添加行将修复10.4中的连接问题 亚马逊地区:='us-west-1'