(Delphi ActiveX) Wasabi FTP Download

See more Wasabi Examples

Note: This example requires Chilkat v9.5.0.89 or greater.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
ftp: TChilkatFtp2;
localFilePath: WideString;
remoteBucketPath: WideString;

begin
success := 0;

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

ftp := TChilkatFtp2.Create(Self);

// Use the domain for the bucket you'll be managing.
ftp.Hostname := 's3.s3.us-west-1.wasabisys.com';

// Use your root account username (email address) and root account password
ftp.Username := 'root_account_username';
ftp.Password := 'root_account_password';
ftp.Ssl := 1;
ftp.Port := 990;

success := ftp.Connect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Upload a file (starfish.jpg) to the bucket named "chilkat"
localFilePath := 'qa_output/starfish.jpg';
remoteBucketPath := '/chilkat/starfish.jpg';
success := ftp.GetFile(remoteBucketPath,localFilePath);
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('File uploaded.');
end;