(Delphi ActiveX) FTP Upload with Progress Event Callbacks

FTP upload 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;
localPath: 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 := 'my_ftp_username';
    ftp.Password := 'my_ftp_password';

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

    // Change to the remote directory where the file will be uploaded.
    success := ftp.ChangeRemoteDir('junk');
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;

    // Upload a file.
    localPath := 'c:/temp/hamlet.xml';
    remoteFilename := 'hamlet.xml';

    success := ftp.PutFile(localPath,remoteFilename);
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;

    success := ftp.Disconnect();

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