Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.028 Beiträge
Delphi 10.4 Sydney
|
Re: ProgressBar beim Kopieren von Dateien - Falsche Prozente
6. Jul 2007, 19:58
Hallo!
Solltest Du die Dateien mit ReadBuffer / WriteBuffer kopieren, dann errechne am Anfang die Gesamtgröße aller Dateien (machst Du wahrscheinlich ja schon).
Vor dem kopieren einer neuen Dateien PBCopy.Max auf Dateigröße setzen, nach jedem Schleifendurchlauf die Größe der tatsächlich [Am Ende wird ja meistens ein kleinerer Wert geschrieben] geschriebenen Datenmenge auf PBCopy.Position dazuaddieren. Bei der nächsten Datei Position wieder auf 0 setzen und von vorne beginnen...
Bei der PBCopyAll einfach als Max-Wert die Gesamtgröße aller Dateien festsetzen und weiter wie oben (Natürlich ohne bei der nächsten Datei die Position zurückzusetzen). Die ProgressBars unterscheiden sich also dann lediglich beim Maximum. Damit würden dann auch Deine Berechnungen wegfallen... Hab ich auch schon öfters so gemacht, funktioniert bei mir einwandfrei!
SCRaT
Michael Kübler
|