Amazon web services Delphi 10.4亚马逊aws S3连接错误

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

我一直在使用下面的函数将数据上传到Amazon aws S3 bucket代码。在Delphi10.3.3中一切都很好,但在10.4中我得到了一个连接错误。我读到TAmazonRegion类型(在Data.Cloud.AmazonAPI中)发生了更改,但找不到解决问题的方法

任何帮助都将不胜感激

  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'