Verzeichnisse zippen Win Android IOS

[luisk]

Hallo,
wie kann ich mit Delphi 10 komplette Verzeichnisse zippen,
so das die Operation unter Windows, Android und IOS läuft ?
Die Zip-Datei soll dann auch mit Standardprogrammen bearbeitet werden können.

[luisk]

ich teste zur Zeit nur unter Windows.
Weiß jemand, ob dieses Tool ZipForge auch unter Android und IOS läuft ?
http://www.componentace.com/zip-file-in-delphi.htm
Unter Windows läuft es optimal schnell.

[luisk]

Tja, schade,
hab jetzt folgende Antwort erhalten:
"ZipForge supports only Windows, Android and IOS support is not planned for the moment.
Please feel free to write me if I can be of any further assistance."

Was nimmt man denn, als Zip-Library, wenn man plattformübergreifend entwickelt ?

[Daniel]

Wie wäre es mit TZIPFile?
http://docwiki.embarcadero.com/Libra...m.Zip.TZipFile

[luisk]

Danke,
ich hab dieses Beispiel schon probiert
http://www.delphipraxis.net/174300-t...directory.html
allerdings konnte ich die Datei dann nicht mit Standard-Tools öffnen.

Dann bin ich auf Zipforge gekommen. ZipForge packt die Unterverzeichnisse optimal.(Läuft leider nur auf Windows)

Wurde TZipFile bei "Delphi Berlin" evtl. weiterentwickelt ?

[Der schöne Günther]

TZipFile hat in der Vergangenheit mehrere male ein Update bekommen. Ich nutze es in XE7 und hatte nie Probleme damit.

[luisk]

Zitat:

Zitat von Der schöne Günther (Beitrag 1337383)

TZipFile hat in der Vergangenheit mehrere male ein Update bekommen. Ich nutze es in XE7 und hatte nie Probleme damit.

Packst du damit auch Verzeichnisse mit Unterverzeichnissen ?

[Der schöne Günther]

Klar.

Delphi-Quellcode:

using System.IoUtils;

var
   absolutePath:      String;
   archiveFileName:   String;
begin
   for absolutePath in TDirectory.GetFiles(..) do begin
      archiveFileName := [...];
      myZipFile.Add(absolutePath, archiveFileName);
   end;
   myZipFile.Close();
end;

Wobei

Delphi-Quellcode:

archiveFileName

den "Pfad" in der ZIP-Datei angibt. Wenn du bspw. folgende Struktur auf der Platte hast

x:\Dir1\someFile.txt
x:\Dir1\Dir2\someOtherFile.txt

Und du das Verzeichnis x:\Dir1 rekursiv speichern willst dann sind das im Endeffekt die zwei Aufrufe

Delphi-Quellcode:

myZipFile.Add('x:\Dir1\someFile.txt', 'someFile.txt');
myZipFile.Add('x:\Dir1\Dir2\someFile.txt', '.\Dir2\someFile.txt');