DFUnRar entpackt nicht "sichtbar"

[xZise]

Hi DP,
Ich benutzte DFUnRar um Dateien zu entpacken, aber irgendwie kriegt er es nicht gebacken ^^.
Das ist der passende Code dazu:

Delphi-Quellcode:

duUnrar := TDFUnRar.Create(self);
try
  duUnrar.OnProgress := UnrarProgress;

  duUnrar.FileName := ParamStr(1);

  outputPath := ExtractFilePath(ParamStr(3));
  duUnrar.Directory := Copy(outputPath, 1, Length(outputPath) - 1);

  duUnrar.Extract;
finally
  FreeAndNil(duUnrar);
end;

Ich habe es probiert mit einer Rar-Datei mit rar-Endung (normalerweise hat die Datei keine Endung).
Auch mit "\" und ohne "\" als abschließendes Zeichen bei Directory.

Due ProgressMethode wird aufgerufen, aber irgendwie auch nicht korrekt:

Delphi-Quellcode:

procedure TForm1.UnrarProgress(Sender: TObject; FilesProcessed, FileCount,
  SizeProcessed, SizeCount: Cardinal);
begin
  if FileCount > 0 then
    pbStatus.Position := Round(FilesProcessed / FileCount * 100)
  else
    pbStatus.Position := FilesProcessed;
  Application.ProcessMessages;
end;

"FileCount" ist nämlich 0 (obwohl FilesProcessed höher liegt!)
Und das Archiv ist frisch mit WinRAR selbst gepackt !

Übrigens: FilesProcessed liegt zu hoch ^^ Und zwar ist der Maximalwert 57, und es gibt nur 45 Dateien und 11 Ordner (Also 56 insgesamt).

[ringli]

Ich kann dir zwar jetzt nicht direkt helfen, aber bist du sicher das bei

Delphi-Quellcode:

outputPath := ExtractFilePath(ParamStr(3));

der ParamStr(3) richtig ist? Gibt es da noch einen weiteren Parameter oder müsste es nicht ParamStr(2) heissen?

[xZise]

Hi,
Leider Nein :) Pfade sind richtig (debuggt)
Das Programm hat 4 Parameter ^^ (also insgesamt 5) ;)

MfG
xZise

[xZise]

Woran könnte es liegen, dass er nicht entpackt :)
Bitte helft mir xD
Liegt es vielleicht an der .dll? Muss ich da was beachten? Oder gibt es seit kurzem eine neu Unit die das behebt?

[Garfield]

Vielleicht hilft Dir dieses Demoprogramm mit Source: http://www.freeware-archiv.de/DFUnRar-Packen.htm

[xZise]

Hi,
Oh ja :oops:
Danke ^^
Mit

Delphi-Quellcode:

.Mode := DFRAR_EXTRACT;

funktioniert das wunderbar.
Und wenn ich vorher folgendes Kontrukt ausführe, zeigt er einen korrekten "FileCount"-Wert in der Progressroutine an:

Delphi-Quellcode:

// Rar-Datei einlesen
duUnrar.CanProgress := false;
duUnrar.Mode := DFRAR_LIST;
duUnrar.Extract;
duUnrar.CanProgress := true;

Und es wurde eine Datei zu viel "extrahiert", weil ich vergessen hatte ( :oops: ), dass die Dateien noch in einen Ordner gespeichert waren ^^

MfG
xZise

[Garfield]

Zitat:

Zitat von xZise

funktioniert das wunderbar.

:thumb:

Schön. Ich bin auch dabei, mich mit dem Thema zu befassen.