Hallo,
ich fummel gerade mit der JCLCompression Unit rum, klappt eigentlich auch alles soweit wunderbar, bis auf die Kleinigkeit:
Wie stelle ich fest, wann die Datei komplett extrahiert wurde?

Es gibt zwar die Methode: OnProgress womit ich meine Progressbar update, nur irgendwie ist das sehr ungenau?!
Manchmal stoppt die Progressbar bei 93 % bei einer anderen Datei bei 99 wiederum ein anderes mal bei 98% jenachdem ob ich nun Zip, Rar oder 7z als Eingangsformat hab.

Eine Methode in etwa wie OnExtractFinished oder sowas in der Art konnte ich leider bisher nicht entdecken, vielleicht kann mir mal jemand auf die Sprünge helfen?

Viele Grüße
s!

Hi,

ich vermute als System wird Vista verwendet. Liegt an dem neuen "visuellen Feedback" das Vista erzeugt. Kurz gesagt: Der ProgressBar hat 100% als Wert, aber die Anzeige läuft verzögert durch die Animation, damit es "weicher" aussieht.

Der Trick ist, den ProgressBar zum Ende auf .Max zu prüfen, die Position dann auf .Max-1 und wieder auf .Max zu setzen. Durch das -1 wird der ProgressBar rückwärts bewegt - da springt Vista sofort statt zu animieren. Danach wird dieser wieder auf .Max gesetzt, damit alles stimmt.

markieren

Delphi-Quellcode:

  with ProgressBar1 do
  if Position = Max then
  begin
    Position := Max-1;
    Position := Max;
  end;

Ich hab da mal eine gründliche Erklärung dazu im Codegear Forum gepostet. Kannst auch hier im Forum mal nach ProgressBar und meinem Nick suchen. Unter Umständen gibt es auch hier etwas dazu. Ansonsten poste ich das heute Abend.

Gruß Assertor

Zitat von Assertor:

Hi,

ich vermute als System wird Vista verwendet. Liegt an dem neuen "visuellen Feedback" das Vista erzeugt. Kurz gesagt: Der ProgressBar hat 100% als Wert, aber die Anzeige läuft verzögert durch die Animation, damit es "weicher" aussieht.

Der Trick ist, den ProgressBar zum Ende auf .Max zu prüfen, die Position dann auf .Max-1 und wieder auf .Max zu setzen. Durch das -1 wird der ProgressBar rückwärts bewegt - da springt Vista sofort statt zu animieren. Danach wird dieser wieder auf .Max gesetzt, damit alles stimmt.

markieren

Delphi-Quellcode:

  with ProgressBar1 do
  if Position = Max then
  begin
    Position := Max-1;
    Position := Max;
  end;

Ich hab da mal eine gründliche Erklärung dazu im Codegear Forum gepostet. Kannst auch hier im Forum mal nach ProgressBar und meinem Nick suchen. Unter Umständen gibt es auch hier etwas dazu. Ansonsten poste ich das heute Abend.

Gruß Assertor

Voll ins schwarze getroffen!
Vielen dank!!!

Gruß
s!

Hi storm,

Zitat von stOrM:

Voll ins schwarze getroffen!
Vielen dank!!!

Gruß
s!

Bitte gern



Gruß Assertor