Dateigröße mit IdFTP-Komponente ermitteln

[Crimson]

Hallo alle beisammen!
Ich downloade eine Datei von einem FTP mittels der IdFTP-Komponente (funktioniert auch). Aber ich möchte beim download auch noch die Dateigröße ermittelt bekommen. Wie bekomme ich das hin???
Ich hoffe mir kann jemand weiterhelfen.
cYa

[Stevie]

Die Funktion TIdFTP.Size(AFileName: String) gibt dir die Dateigröße der angegebenen Datei als Integer zurück, wenn die Datei unbekannt ist, wird -1 zurückgegeben.

[Crimson]

Bei mir bleibt das Prog dann immer bei dem Befehl stehen. Eigentlich will ich ja nur mit einer ProgressBar arbeiten. Aber der "AWorkCountMax"-Parameter liefert mir immer 0. Tja ich sehe in diesem Forum gibt es mehrere mit diesem Prob. Dann hoffe ich mal auf eine andere Antwort.

[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;

[Crimson]

Meine Güte verdammt, es geht. Ich danke Dir.