Einzelnen Beitrag anzeigen

lucius

Registriert seit: 6. Okt 2005
Ort: Niederlande
215 Beiträge
 
Delphi 7 Enterprise
 
#1

TDFUnrar & Dateiauflisting, Application.Processmessages.

  Alt 19. Apr 2007, 18:05
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.
  Mit Zitat antworten Zitat