Wie kann ich das Hinzufügen einer Datei zu einem Zip-Archiv
zipFile.Add('x:\someBigFile.dat');
abbrechen? Es gibt zwar ein
OnProgress
-Event eines
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?