Den Progress bei der IndyFTP Komponente anzeigen lassen

[Dragon27]

Hallo,

ich möchte ein kleines FTP Programm auf Basis der Delphi-Source Tutorials schreiben. Folgenden Code habe ich geschreiben:

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
JvXPProgressBar1.Max := AWorkCountMax;
JvXPProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
JvXPProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
application.ProcessMessages;
JvXPProgressBar1.Position := AWorkCount;
JvXPProgressBar1.Refresh;
JvXPProgressBar1.Repaint;
end;

Leider zeigt die Progressbar keinen Fortschritt an.... aber warum? Könnt Ihr mir helfen? Der Download der datei funktioniert übrigens.

Danke!

[gmc616]

Die Bar zeigt deswegen nix an, da im WorkBegin AWorkCount = 0 ist.
AWorkCount schein aber die Größe des Files zu sein.

Woran das liegt weiß ich nicht. Evtl. am FTP-Server oder an Indy. (mehr bleibt dann auch nicht )

Ich setze ich einfach die ProgressBar beim Download nicht auf AWorkCount sondern auf IdFtp1.DirectoryListing.Items[i].Size .

Ob das der korrekte Weg ist weiß ich nicht, aber es funktioniert bei mir problemlos.

Gruß
gmc

[jfheins]

Suchen
http://www.delphipraxis.net/internal...ct.php?t=48789