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 von 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.

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 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');