Event OnFtpInfo

Occurs when there is any information that received by component

(please see ftp.pas for the declaration of FtpInfo)
type TMFtpInfoEvent = procedure (Sender: TObject; info: FtpInfo; addinfo: String) of Object;

property OnFtpInfo: TMFtpInfoEvent;

Applied to

TMFtp

Example

procedure TForm1.MyFtpInfo;
var Speed: Extended;
begin
   case info of
      { connection status }
      ftpResolvingAddress: StatusPanel.SimpleText := 'Resolving ' + addinfo;
      ftpAddressResolved: StatusPanel.SimpleText := 'Connected to ' + addinfo;
      ftpServerConnected: StatusPanel.SimpleText := 'Connected to ' + addinfo;
      ftpServerDisconnected: StatusPanel.SimpleText := 'Disconnected';

      { transfer status }
      ftpDataTrace:
      begin
        with MyFtp do
        begin
            if TransferTime > 0 then
            begin
                Speed := BytesTransferred / (TransferTime / 1000) / 1024;
                StatusPanel.SimpleText := FormatFloat('#,##', BytesTransferred) + ' bytes
                                                               transferred,' + FormatFloat('#,##0.00', Speed) +
                                                               ' KB per second';
            end
            else
             begin
                StatusPanel.SimpleText := FormatFloat('#,##', BytesTransferred) + 
                                                               ' bytes transferred';
            end;
      end;
end;