Hallo,
ich hab' den Fehler gefunden!
Delphi-Quellcode:
Open(TempName, zmWrite); //hier liegt der Fehler
for i := Low(List) to High(List) do begin
Add(List[i]);// <-----------------
TFile.Delete(List[i]);
end;
Close;
ich benutze die Instanz TZipFile zweimal, einmal zum Auspacken des alten Zip und einmal zum Schreiben des neuen Zip. Ich war davon aus gegangen, dass mit Open Close ausgelöst wird
(so steht es in der Hilfe) und das alte Archiv geschlossen wird. Das ist aber nicht so. Die alten Dateien werden nicht mehr "verlinkt", stehen aber noch im neuen Archiv.
Deshalb wird es immer größer. So ist es mir zunächst nicht aufgefallen, weil es funktioniert.
Delphi-Quellcode:
if Done then begin
ZipFi := TZipFile.Create;// <--- Neu
List := TDirectory.GetFiles(TempPa);
TempName := ExtractFilePath(ArchiveFilename) + ExtractFilename(TPath.GetTempFileName);
ZipFi.Open(TempName, zmWrite);
for i := Low(List) to High(List) do begin
ZipFi.Add(List[i]);
TFile.Delete(List[i]);
end;
ZipFi.Free;
end;
So ist es richtig.
Es stellt sich mir die Frage: liegt das an meinen Programmierkünsten oder haben die "Delphi-Bauer" etwas übersehen?
Gruß Willie,
Hoffentlich seit ihr hier noch dabei.