Bin ich gestern abend drüber gestolpert, in 10.4.2.
Delphi-Quellcode:
Zip := TZipFile.Create;
Zip.Open('File1.zip', zmWrite);
Zip.Add(Stream, Name);
...
Zip.Close;
Zip.Open('File2.zip', zmWrite);
Zip.Add(Stream, Name);
...
//Zip.Close;
Zip.Free;
Vorallem wenn es beim Add vorher Probleme gab, aber auch ohne Probleme ... ab File2 sind alle Dateien defekt und nicht mehr lesbar.
Create+Open+Free geht, aber man darf das Objekt nicht wiederverwenden.
In meinem Fall war es eine Schleife, wo ich mittendrin ab und an eine neue Datei erstellt hatte, wenn sie zu groß wurde, also nur Close+Open ... und hab mich dann gewundert.