IdFTP + progressbar wie ?!

[marabu]

Guten Morgen.

Bei einer vorkonfigurierten FTP Client-Komponente (host, username, password) hilft manchmal auch schon das hier weiter:

Delphi-Quellcode:

function FTPSize(ftp: TIdFTP; const fn: TFileName): Int64;
begin
  ftp.Connect(true, -1);        
  try
    try
      Result := ftp.Size(fn);
    except
      Result := 0;
    end;
  finally
    ftp.Disconnect;             
  end;
end;

Grüße vom marabu