Zip-Archiv entpacken

[Guido Eisenbeis]

Zitat von Luckie:

So hast du uns zwei Codeschnippsel gegeben und gesagt "ich will". Das hat bei mir etwas Unmut ausgelöst. Entschuldige bitte.

Vielen Dank!

Wir "kennen" uns schon seit über 10 Jahren, bei mir kannst du davon ausgehen, dass ich mich vor dem Posten intensiv bemüht habe, Lösungen selbst zu finden.


Zurück zum Thema "Entpacken eines Zip-Archivs"

Dank eurer Hilfe habe ich nun eine Lösung zusammengestellt, mit der ein Zip-Archiv in einen Zielordner entpackt werden kann. Dabei ist eine Fortschrittsanzeige möglich und das Ende des Vorgangs kann festgestellt werden. Und das alles ohne zusätzliche Komponenten, nur mit Delphi internen Möglichkeiten!

Besonderer Dank geht an hoika! Dein Link hat mir den Anfang ermöglicht. Native Zip file support in Delphi XE2 Damit hatte ich Informationen zum Erstellen eines TZipFile-Objekts, und mit den Anweisungen im try-finally Block konnte ich sehen, wie und was wieder freigegeben werden muss.

Information am Rande: zipFile.FileCount gibt einen höheren Wert aus, als ein Datei-Zähler beim Auspacken des Zip-Archivs. Das wird im Moment zwar nicht benötigt, aber interessant wäre es, warum das so ist. Meine Vermutung ist, dass zipFile.FileCount die Ordner im Zip-Archiv mitzählt.

Somit sind 2 von 3 Problemen gelöst. Fehlt nur noch die Möglichkeit zum Abbrechen eines laufenden Entpack-Vorganges. Ideen?

[Luckie]

Und wie sieht dein Code jetzt aus?

Abbrechen müsste in dem Fortschrittsereignis möglich sein.

PS: Wir kennen uns seit 10 Jahren? Hattest du mal einen anderen Benutzernamen?

[Guido Eisenbeis]

Zitat von Luckie:

Und wie sieht dein Code jetzt aus?

Ziemlich durcheinander. Ich räume gerade darin auf. Wenn es jemand interessiert, kann ich das Ergebnis gerne posten.

Zitat von Luckie:

Abbrechen müsste in dem Fortschrittsereignis möglich sein.

Das scheint mir der richtige Platz zu sein, aber wie kann man das bewerkstelligen?

Zitat von Luckie:

PS: Wir kennen uns seit 10 Jahren? Hattest du mal einen anderen Benutzernamen?

Damals nicht. "Kennen" in Anführungszeichen meint, dass du eine schillernde Person der Öffentlichkeit warst / bist (= VIP) und ich in jedem zweiten Code-Snippet deinen Namen gefunden habe. Ich selbst bin wohl so unbedeutend, dass du dich nicht erinnern kannst.

[Luckie]

Hat die Klasse eine Eigenschaft zum Abbrechen? Dann einfach im Progress-Eventhandler:
if bAbort then zipFile.Abort Oder wie auch immer die Eigenschaft heißt.

[hoika]

Hallo,
im ProgressEvent einfach eine Exception erzeugen?

Delphi-Quellcode:

procedure TForm1.OnZipProgress();
begin
  Application.ProcessMe3ssages;  // wichtig

  if bAbort then
  begin
    Exception.Create('');
  end;
end;


// Button "Abbrechen"-Klick Methode
procedure TForm1.OnBtnCancelClick;
begin
  bAbort:= True;
end;

procedure TForm1.Entpacke;
begin
  ...
  try
    Zipfile.Extract ...
  except
  end;
end;

[Guido Eisenbeis]

Zitat von Luckie:

Hat die Klasse eine Eigenschaft zum Abbrechen? Dann einfach im Progress-Eventhandler:
if bAbort then zipFile.Abort

Ich habe den Thread erstellt, um ebendiese Information zu bekommen. Weiß jemand, wie man das macht? Gesucht habe ich danach in der Klasse TZipFile, TZipFile.FileInfo und TZipHeader. Leider erfolglos, ein Abort habe ich nicht gefunden. Es gibt ein Close, aber ob das so gut ist, mittendrin einfach zu schließen!? Zudem steht zu der Pozedur in der Hilfe: Dateien können aus einem Archiv ohne Instantiierung von TZipFile-Objekten mit der Klassenprozedur ExtractZipFile extrahiert werden.

Hat jemand eine Idee?

[Incocnito]

Ein kurzer Blick in System.zip ...
ExtractZipFile ist übersichtlich, das "magische" passiert wiederum in "extractall" ...
Auch diese ist übersichtlich und beinhaltet eine Schleife über alle Dateien.
Hier fehlt schon die Option zum Abbrechen ...
Im Wesentlichen ruft "ExtractAll" also "Extract" in einer Schleife auf.
Hier wird dann die komplette Datei "in einem Rutsch" in einen Stream geladen,
danach beschäftigt sich die Funktion im Wesentlichen darum die passende Datei (TFileStream)
anzulegen. Anschließend wird "OnProgress" aufgerufen. Da ist das aber alles schon vorbei.
Ich würde sagen, mit "Syste.Zip.TZipFile.ExtractZipFile" ist ein Abbrechen nicht möglich.

Nächster Versuch wäre "System.ZLib", aber die ist etwas größer als dass ich da eine Aussage treffen würde.
Spontan habe ich nichts mit Abbrechen-Funktion gefunden, aber wie gesagt, sicher kann ich das nicht sagen.

Liebe Grüße
Incocnito

[Guido Eisenbeis]

Zitat von hoika:

im ProgressEvent einfach eine Exception erzeugen?[/DELPHI]

Interessanter Gedanke. Mit welchen Auswirkungen ist denn im schlimmsten Fall zu rechnen?

Zitat von Incocnito:

Im Wesentlichen ruft "ExtractAll" also "Extract" in einer Schleife auf.
...
Ich würde sagen, mit "Syste.Zip.TZipFile.ExtractZipFile" ist ein Abbrechen nicht möglich.

Sieht so aus. Danke für eure Antworten!

[Uwe Raabe]

Zitat von Guido Eisenbeis:

Hat jemand eine Idee?

Einfach im OnProgress-Event Abort (aus System.SysUtils) aufrufen. Das erzeugt intern auch eine Exception, aber genau diese wird sowohl von der IDE als auch von der TApplication ignoriert. Man bricht also einfach die aktuelle Aufgabe ab (daher wohl auch der Name).

Zitat von Incocnito:

Hier wird dann die komplette Datei "in einem Rutsch" in einen Stream geladen,
danach beschäftigt sich die Funktion im Wesentlichen darum die passende Datei (TFileStream)
anzulegen. Anschließend wird "OnProgress" aufgerufen. Da ist das aber alles schon vorbei.

Das OnProgress wird aber auch noch innerhalb dieses "Rutsch" aufgerufen. Insofern kann man auch während des Extract einer Datei abbrechen.

[Guido Eisenbeis]

Zitat von Uwe Raabe:

Einfach im OnProgress-Event Abort (aus System.SysUtils) aufrufen.

Ich habe es kurz ausprobiert. Es bricht zwar die Ausführung ab, aber die Anwendung ist nicht mehr ansprechbar.

Im OnProgress-Event habe ich eingefügt if g_bAbort then Abort; In der Hilfe steht "Abort übergibt die Ausführung an das Ende des letzten Exception-Blocks." Kannst du mir bitte das Drumrum zeigen? Muss da ein Try-Exept Konstrukt hin? Wo mache ich meine anderen Code im OnProgress-Event hin?