(Delphi) S3 List Buckets

Demonstrates how to retrieve the XML listing the buckets for an Amazon S3 account.

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;
xmlStr: 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';

xmlStr := http.S3_ListBuckets();

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

end;