TZipFile

[Willie1]

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.

[KodeZwerg]

Hallo Willie, wenn ich die Zeit finde werde ich "meine" methode mal ausprobieren, da ich ein "komplett entzippen nur um eine datei auszutauschen" als sehr ineffizient finde.
Bei miniatur zips mag es nicht weiter ins gewicht fallen, bei größen schon (plus hardware verschleiß bei mechanischen festplatten!)

Ich habe allerdings auch irgendwo gelesen das TZipFile wohl keine Helper mehr zulässt.... alles noch ungetestet.

Grüße