Zippen einer Datei abbrechen?

[Der schöne Günther]

Wie kann ich das Hinzufügen einer Datei zu einem Zip-Archiv

Delphi-Quellcode:

zipFile.Add('x:\someBigFile.dat');

abbrechen? Es gibt zwar ein

Delphi-Quellcode:

OnProgress

-Event eines

Delphi-Quellcode:

TZipFile

, aber da sehe ich keine Möglichkeit das irgendwie abzubrechen:

Delphi-Quellcode:

uses System.Zip;

procedure TZipTest.handleZipProgress(
   Sender: TObject;
   FileName: string;
   Header: TZipHeader;
   Position: Int64
);
begin
   if(bedingungErfüllt) then raise EZipException.Create('Keine Lust mehr');
end;

Mit der Exception komme ich zwar raus, allerdings mache ich mir etwas Sorgen um die Integrität der ZIP-Datei. Der Windows-Explorer kommt zwar mit zurecht, aber was heißt das schon?

[Luckie]

Normalerweise gibt es bei OnProgress Events bzw. den zugehörigen Methoden auch einen Cancel Parameter. Mit der Zip-Komponente kenne ich mich allerdings nicht aus.

[pustekuchen]

Ohne Bezug auf die ZIP-Komponente zu nehmen, könntest du das Zippen vorerst bei einer temporären Kopie durchführen. War das hinzufügen erfolgreich, kopierst du die Temporäre Datei zurück.

[Neutral General]

Zitat:

Zitat von pustekuchen (Beitrag 1361170)

Ohne Bezug auf die ZIP-Komponente zu nehmen, könntest du das Zippen vorerst bei einer temporären Kopie durchführen. War das hinzufügen erfolgreich, kopierst du die Temporäre Datei zurück.

Ich denke er will eher eine "Abbrechen"-Funktion haben. Da hilft dein Vorschlag leider nicht.

[bra]

Vielleicht solltest du auch mal genau beschreiben, was du erreichen willst. Denn das Zippen während des Packens abzubrechen und dann trotzdem noch eine korrekte, gültige ZIP-Datei zu erhalten wird auch mit den meisten anderen Programmen nicht funktionieren. I.d.R. wird die ZIP-Datei beim Abbrechen gelöscht.

[pustekuchen]

Zitat:

Zitat von Neutral General (Beitrag 1361171)

Ich denke er will eher eine "Abbrechen"-Funktion haben. Da hilft dein Vorschlag leider nicht.

Allerdings hilft das die Integrität der ZIP-Datei zu gewährleisten.

Zitat:

Zitat von Der schöne Günther (Beitrag 1361139)

Mit der Exception komme ich zwar raus, allerdings mache ich mir etwas Sorgen um die Integrität der ZIP-Datei. Der Windows-Explorer kommt zwar mit zurecht, aber was heißt das schon?

[Der schöne Günther]

Eine "Diese Datei zippen abbrechen"-Funktion wäre zwar schön, aber der Vorschlag von Pustekuchen reicht als Notlösung auch. Ich hätte nur ehrlich gesagt so etwas selbstverständliches wie ein Abbrechen erwartet.

Vielleicht kann ich, nach Überschreiten der Größe, die Datei auch wieder herausnehmen, das habe ich noch nicht geprüft.


Wen es interessiert: Ich habe einen Haufen kleiner, gut komprimierbarer Dateien. Ich möchte so viele davon wie möglich einpacken bis ich an eine Obergrenze (z.B. < 5 MB) komme.

[mm1256]

Zitat:

Zitat von Der schöne Günther (Beitrag 1361179)

Eine "Diese Datei zippen abbrechen"-Funktion wäre zwar schön, aber der Vorschlag von Pustekuchen reicht als Notlösung auch. Ich hätte nur ehrlich gesagt so etwas selbstverständliches wie ein Abbrechen erwartet....

Na ja, meistens ist das liebe Geld dran schuld. Eine vernünftige ZIP-Komponente kauft man einmal und dann nie wieder. ZipForge zum Beispiel kann einen ZIP-Vorgang abbrechen.

Delphi-Quellcode:

procedure TForm1.ZipperOverallProgress(Sender: TObject;
  Progress: Double; Operation: TZFProcessOperation;
  ProgressPhase: TZFProgressPhase; var Cancel: Boolean);
begin
  ...
end;

So nebenbei hat du auch in der ZIP-File-Größe noch Luft nach oben. :thumb:

[Der schöne Günther]

Ja, aber nur um einmal Dateien besser zippen zu können handele ich mir keine neuen Drittanbieter-Abhängigkeiten ein. Das ist im Delphi-Land alles schon kompliziert genug ;-)

[EWeiss]

Wer zippt heute noch wo es schon lange bessere Alternativen gibt.

gruss