Den Progress bei der IndyFTP Komponente anzeigen lassen
Hallo,
ich möchte ein kleines FTP Programm auf Basis der Delphi-Source Tutorials schreiben. Folgenden Code habe ich geschreiben:
Delphi-Quellcode:
Leider zeigt die Progressbar keinen Fortschritt an.... aber warum? Könnt Ihr mir helfen? Der Download der datei funktioniert übrigens.
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; Danke! |
Re: Den Progress bei der IndyFTP Komponente anzeigen lassen
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 |
Re: Den Progress bei der IndyFTP Komponente anzeigen lassen
Suchen ;)
:arrow: http://www.delphipraxis.net/internal...ct.php?t=48789 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:36 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz