TDFUnrar & Dateiauflisting, Application.Processmessages.

[lucius]

Hallo Leute,

Ich habe mir die TDFUnrar (Unrar.dll wrapper) Komponente geholt und habe etwas Probleme mit der Progressbar.
DFUnrar hat ja die optionen (PackSize und UnpSize, Type: Cardinal).
Ich habe Eine Rar-Datei mit verschiedenen Volumen:

Zitat:

Test.Part01.rar
Test.Part02.rar
Test.Part03.rar
..
Test.Part40.rar

Jetzt haette Ich gerne das die Progressbar den Proces anzeigt fuer das ganze Volumen (Part01-40) und nicht die einzelne Part01.rar Dateien.

Delphi-Quellcode:

procedure TfrmMain.dfUnRarProgress(Sender: TObject; FilesProcessed,
  FileCount, SizeProcessed, SizeCount: Cardinal);
begin
  if (FFilesCount > 0) and (IsExtracting) then
    prgbrUnRar.Position := FilesProcessed * 100 div FFilesCount;
end;

Ich habe schon was probiert mit PackSize und UnpSize aber dass funktioniert nicht so richtig.
Dabei haette Ich auch gerne das die Naechste Datei im Volumen in einer Statusbar angegeben wird waehrend des Entpackens.
Er entpackt das ganze Volumen aber er laesst nur die erste Part01 Datei sehen.
stbrMain.SimpleText := hdrData.ArchiveName; (i:\Ordner\Test.Part01.rar) Koennt Ihr mir da vielleicht helfen?
Danke im voraus.

Gruss Lucius.

[lucius]

Keiner Bock auf Rar Heute?!

[lucius]

Es waere nett wenn mir da einer ein Tip geben koennte fuer meine Probleme.

Gruss Lucius.

[lucius]

Ich weiss Ich sollte es mit threads machen aber koennte mir bitte einer ein Beispliel geben wie?
Danke im voraus.

Gruss Lucius.