(Delphi) S3 Upload String

Demonstrates how to upload an in-memory string to the Amazon S3 service.

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;
contentType: String;
objectContent: 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 := 'helloWorld.txt';

//  The charset indicates the character encoding to be used.
//  Internal to the S3_UploadString method, the characters
//  are converted to this encoding prior to uploading.
charset := 'utf-8';

contentType := 'text/plain';

objectContent := 'Hello World!';

//  Upload the string.
//  This creates an object named "helloWorld.txt" in the
//  bucket "chilkattestbucket" containing the text "Hello World!"
success := http.S3_UploadString(objectContent,charset,contentType,bucketName,objectName);

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