Delphi ActiveX

FTP Upload with Progress Event Callbacks

See more FTP Examples

FTP upload 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;
localPath: 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 := '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;