使用 xe2 版 win10系統

procedure TForm1.Button5Click(Sender: TObject);
var
ConAmazon: TAmazonConnectionInfo;
Service: TAmazonStorageService;
Response: TCloudResponseInfo;
Text_Byte: TBytes;
Text_Stream: TStringStream;
bResult : Boolean;

begin
try
Text_Stream:= TStringStream.Create;
ConAmazon := TAmazonConnectionInfo.Create(nil);

ConAmazon.AccountKey :=trim(Edit2.Text);
ConAmazon.AccountName := trim(Edit1.Text);


Service := TAmazonStorageService.Create(ConAmazon);

Response := TCloudResponseInfo.Create;

bResult := Service.GetObject('ctl-test52', 'ctl_t.txt', Text_Stream, Response);

if bResult = True then
ShowMessage(Response.StatusMessage)
else
ShowMessage('Upload fails' #13 IntToStr(Response.StatusCode) ' -> ' Response.StatusMessage)
Finally
Text_Stream.Free;
Service.Free;
ConAmazon.Free;
end;
end;


會出現 400-> HTTP/1.1 400 Bad Request 錯誤

附加檔案：61aedcd48afeb_1.jpg

編輯記錄