(Delphi) S3 Download String Object

Demonstrates how to download a text file (i.e. object) from the Amazon S3 service directly into an in-memory string variable.

Download Chilkat HTTP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATHTTPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
bucketName: String;
objectName: String;
charset: String;
fileContents: String;

begin
http := TChilkatHttp.Create(Self);

success := http.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

//  Insert your access key here:
http.AwsAccessKey := 'ABQXXABC83ABCDEFVQXX';

//  Insert your secret key here:
http.AwsSecretKey := 'XXXXYYYYabcdABCD12345678xxxxyyyyzzzz';

bucketName := 'chilkattestbucket';

objectName := 'contacts.xml';

charset := 'utf-8';

fileContents := http.S3_DownloadString(bucketName,objectName,charset);

if (Length(fileContents) = 0 ) then
  begin
    //  Failed
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    //  Success
    Memo1.Lines.Add(fileContents);
  end;

end;