JEDI JCL Compression OnProgress wie verwenden

[Glados]

Ich frage mich schon seit einer Ewigkeit wie man von den JEDI JCL-Komponenten einen richtig funktionierenden OnProgress-Event implementiert.
Mein Ziel ist ein Event bei welchem ich grob gesagt gucken kann, welche Datei gerade komprimiert wird und wenn der Vorgang fertig ist möchte ich das in einem Log festhalten.

Das Event hat folgende Kopfzeile

Delphi-Quellcode:

(Sender: TObject; const Value, MaxValue: Int64);

Wie verwendet man den Event richtig? Was muss ich mit Value und MaxValue machen, damit ich korrekt abfragen kann, wann eine Datei fertig komprimiert wurde? Ich bin leider eine
regelrechte Niete was Mathematik angeht und sehe hier nur chinesische Zeichen und einen Berg von Problemen vor mir.

[Glados]

Darf man hier Beiträge wieder nach oben holen? Wenn nicht, bitte löschen

[nahpets]

Hab' die Teil noch nie benutzt.

Was steht denn in Value? MaxValue dürfte ja quasi das Ende sein.

Also mal 'ne Progressbar nehmen. Minimum auf 0, Maximum auf MaxValue und Position auf Value.
Tippe mal darauf, dass man damit (ohne Mathematik) 'nen Fortschrittsbalken bekommt, an dem man sehen kann, wieviel erledigt wurde und wieviel noch fehlt.

Je nach Typ der Progressbar, zeigt sie von alleine die Prozentangabe des Fortschrittes an.

Ansonsten Kettensatz oder Dreisatz:

?% = Value
MaxValue = 100%

Entspricht: ? = Value * 100 / MaxValue

Auf 'nem Label also:
Label.Caption := Format('%d von %d (%3.2f%%) erledigt.',[Value, MaxValue, Value * 100.00 / MaxValue]

[Glados]

Es geht mir nicht um die ProgressBar sondern viel mehr darum herauszufinden, wann eine Datei fertig verarbeitet wurde.

Value enthält soweit ich verstanden habe die Größe in Bytes der Daten, die schon verarbeitet wurden. MaxValue die Gesamtgröße.
Die Dateigröße jeder einzelnen Datei liegt mir vor und ich kann sie abfragen. Jetzt muss ich nur wissen wie ich mit Value und MaxValue + eventuellen ZwischenVariablen wie "OldValue" errechne, wann eine Datei fertig komprimiert wurde.

Beispiel
165 - 15 = 150
Value - Dateigröße = OldValue

Klingt einfach, funktioniert aber nicht.

[jaenicke]

Der Vergleich Value = MaxValue sollte schon reichen. Ob die Datei dann aber auch schon wieder geschlossen ist, ist daraus nicht klar. Es kann also sein, dass die Komprimierung fertig ist, die Zieldatei aber noch gesperrt ist.

[Glados]

MaxValue enthält aber die Größe in Bytes aller zu komprimierenden Dateien.

[nahpets]

Wenn in Value steht, wieviel Byte komprimiert wurden und MaxValue wieviel insgesamt zu komprimieren sind, sich aber beide Werte auf die Gesamtmenge und nicht die einzelne Datei beziehen, dann geht das einfach nicht.

Wenn Du weißt, in welcher Reihenfolge die Dateien komprimiert werden und Du die Größe der einzelnen Dateien weißt, dann kannst Du jeweils ausrechnen, welche Datei gerade "In Mache ist".

Sinngemäß sowas in der Art:

Delphi-Quellcode:

Summe := 0;
for i := 0 to Dateiliste.Count - 1 do begin
  Summe := Summe + Dateiliste[i].Dateigroesse;
  if Summe > Value then begin
    Label1.Caption := Format('zuletzt komprimierte Datei: %s (%d Byte)',[Dateiliste[i - 1].Dateiname,Dateiliste[i - 1].Dateigroesse]);
    Label2.Caption := Format('aktuell wird die Datei %s (%d Byte) komprimiert ...',[Dateiliste[i].Dateiname,Dateiliste[i].Dateigroesse]);
    break;
  end;
end;

Ob das performant und sinnvoll ist, sei erstmal dahingestellt.

[Glados]

Zitat:

Wenn Du weißt, in welcher Reihenfolge die Dateien komprimiert werden und Du die Größe der einzelnen Dateien weißt, dann kannst Du jeweils ausrechnen, welche Datei gerade "In Mache ist".

Beides weiß ich.

Ich verstehe langsam nichts mehr.
Ein Testverzeichnis enthält 1800 Dateien. Alle 1800 werden komprimiert aber nur rund 600-700 (manchmal so manchmal so) werden vom obigen Code sowie von meinem erfasst.
In meiner Test-logdatei sind zu gefühlt 99% nur Dateien bis 50KB. Eine einzige Datei von 20MB wurde erfasst, der Rest > 50KB etwa nicht.

So wie es aussieht ist das JCLCompression OnProgress-Event einfach schlecht umgesetzt.