(Delphi ActiveX) FTP Download with Progress Event Callbacks

FTP download with progress event callbacks.

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.ftpPercentDone(ASender: TObject;  percentDone: Integer; out abort: Integer);
begin
    // TThread.Synchronize provides safety for callbacks that occur in a background thread..
    TThread.Synchronize(nil, procedure begin
      Memo1.Lines.Add('Percent Done: ' + IntToStr(percentDone));
      end);
end;

procedure TForm1.ftpProgressInfo(ASender: TObject;  const name: WideString; const value: WideString);
begin
    // TThread.Synchronize provides safety for callbacks that occur in a background thread..
    TThread.Synchronize(nil, procedure begin
      Memo1.Lines.Add(name + ': ' + value);
      end);
end;


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

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

    ftp := TChilkatFtp2.Create(Self);
    ftp.OnPercentDone := ftpPercentDone;
    ftp.OnProgressInfo := ftpProgressInfo;

    ftp.Hostname := 'ftp.someFtpServer.com';
    ftp.Username := 'myLogin';
    ftp.Password := 'myPassword';

    // Connect and login to the FTP server.
    success := ftp.ConnectOnly();
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;
    success := ftp.LoginAfterConnectOnly();
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;

    // Change to the remote directory where the file is located.
    // This step is only necessary if the file is not in the home directory
    // of the FTP account.
    success := ftp.ChangeRemoteDir('junk');
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;

    localFilename := 'c:/temp/hamlet.xml';
    remoteFilename := 'hamlet.xml';

    // Ensure that we get PercentDone callbacks.
    ftp.AutoGetSizeForProgress := 1;

    // Download the file.
    success := ftp.GetFile(remoteFilename,localFilename);
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;

    success := ftp.Disconnect();

    Memo1.Lines.Add('File Downloaded!');
end;