System.zip - TZipFile.ZipDirectoryContents

[geldis]

Moin Moin.

Der Befehl

Delphi-Quellcode:

TZipFile.ZipDirectoryContents('XML.zip', XMLPath)

Die vorhandenen Datein nimmt er mit, weigert sich aber kommentarlos zwei Verzeichnisse mitzupacken. Diese sind allerdings auch leer. GELEGENTLICH ist eine Datei dort drin, dann nimmt er das/die Verzeichniss auch mit.

Ich habe jetzt keinen Hinweis auf eine Einstellung gefunden damit er auch leere Verzeichnisse mitnimmt.

Gibt's da was?

geldis

[Uwe Raabe]

ZipDirectoryContents iteriert intern über alle Files

Delphi-Quellcode:

TDirectory.GetFiles

. Das schließt aber leere Verzeichnisse aus.

Leere Verzeichnisse kannst du mit AddDirectory hinzufügen, aber das ist natürlich nicht so bequem wie ZipDirectoryContents.

[himitsu]

Es kommt auch drauf an.

Oftmals werden nur Dateien einbezogen, womit leere (eigentlich alle) Verzeichnisse ausgeschlossen werden. (macht GIT auch so ... dort nutzt man dann gern Dummyfiles für)

Aber ja, ZIP kann natürlich auch Verzeichniseinträge enthalten.
Tipp: vor dem ZipDirectoryContents einmal mit TDirectory.GetDirectories alles auflisten und in einem FOR-IN mit AddDirectory aufnehmen

[geldis]

Okay, alles klar und vielen Dank.

geldis

[QuickAndDirty]

Nur aus neugier funktioniert bei Euch
TZIPFILE mit einer anderen Compression als zcDeflate ???

[himitsu]

Delphi kennt hat nur Deflate und Uncompressed implementiert.

Du könntest aber selbst die fehlende Komprimierung implementieren und via Interface registrieren.

Es lassen sich aber ZIPs mit anderen Algos öffnen, nur dekomprimieren halt nicht (wenn niemand jenes regisrtiert hat), aber notfalls als RawDaten einzelne Dateien auslesen/speichern.



Ich hatte z.B. verschlüsselte Zips (auf Dateiebene) entpackt und auch wieder gepackt, ohne das Passwort zu kennen. (beim neuen Packen gibt es leider eine kleine Macke, bezüglich des CRC)