Delphi ActiveX

FTP Download with Progress Event Callbacks

See more FTP Examples

FTP download with progress event callbacks. Delphi ActiveX

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
success: Integer;
ftp: TChilkatFtp2;
localFilename: WideString;
remoteFilename: WideString;

begin
    success := 0;

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