Zip-Archiv entpacken

[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?

[Incocnito]

Zitat von Uwe Raabe:

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.

Am Ende von Read wird das OnProgress übergeben ... habe ich in der Tat übersehen!
Sehr gut aufgepasst!