(Delphi) S3 Delete Bucket

Demonstrates how to delete a bucket.

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;

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

success := http.S3_DeleteBucket('chilkattestbucket');

if (success <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Bucket created.');
  end;


end;