Delphi DLL

S3 List Buckets

See more Amazon S3 Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
xmlStr: PWideChar;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

// Insert your access key here:
CkHttp_putAwsAccessKey(http,'AWS_ACCESS_KEY');

// Insert your secret key here:
CkHttp_putAwsSecretKey(http,'AWS_SECRET_KEY');

xmlStr := CkHttp__s3_ListBuckets(http);

if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    // Failed
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
  end
else
  begin
    // Success.  Show the XML response.  (Use the online tool at the link below to generate parsing code.)
    Memo1.Lines.Add(xmlStr);
  end;

// Use this online tool to generate parsing code from sample XML: 
// Generate Parsing Code from XML

CkHttp_Dispose(http);

end;