Try doing this
procedure FtpProgress(Sender: TObject; Count: Int64; var Abort: Boolean);
procedure TForm2.FormCreate(Sender: TObject);
var
FTP: TFtpClient;
begin
FTP.OnProgress64 := FtpProgress;
end;
procedure TForm2.FtpProgress(Sender: TObject; Count: Int64;
var Abort: Boolean);
begin
I've writen an FTP client that previously used OnFtpProgress, and can
confirm that it's called a tremendous amount of times, and in my case
caused my client application to hit 100% CPU as a result. The way I've
implemented it in the past is to create another FTP Client class derived
from ICS
I'm using the ICS Overbyte FTP for uploading a file. I want to display a
progressbar and a speed indicator in order to track and estimate large file
uploads. How can I do that? Also after the upload is completed i want to
delete the file from my hdd. Here is the code that i'm using right now to