Dateigröße mit IdFTP-Komponente ermitteln

[Stevie]

Mit folgendem Code hat es bei mir wunderbar funktioniert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ProgressBar1.Max := IdFTP1.Size(Dateiname);
  IdFTP1.Get(Dateiname, 'C:\Downloads\' + Dateiname);
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.StepBy(AWorkCount);
end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Max := 0;
end;