Delphi-PRAXiS - VCLZip XE2

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - VCLZip XE2 (https://www.delphipraxis.net/162678-vclzip-xe2.html)

Aktuell nutzen wir auf der Arbeit VCLZip, dies ist natürlich nicht ohne Arbeit auf x64 kompilierbar. Meines wissens hat sich der Entwickler auch schon lange nicht mehr gemeldet, wir da noch was kommen?

Wir überlegen die ZIP Routinen mit den "nativ" ZIP von XE2 zu ersetzen, nur würde das zig Stellen im Programm betreffen.

Wenn ihr eh auf XE2, dann würde ich die eingebauten ZIP-Komponenten nutzen. Imho kann man davon ausgehen, dass diese (mehr oder weniger) gepflegt werden und auch 64-Bit-compilierbar sind, ebenso wohl für den Mac funktionieren. Klar, es ist wohl Arbeit, aber dann brauch man sich in Zukunft weniger Gedanken machen.

Setzt einen Adapter dazwischen. Den könnt ihr nach und nach in eure bestehende Anwendung einbauen und bleibt trotzdem releasefähig. Dann stellt ihr den Adapter auf das nun native ZIP um und habt wiederum nur minimale Zeiten, in denen Ihr nicht releasefähig seid.

So würde ich das zumindest machen :D

Das mit dem Adapter wäre dahingehend auch sinnvoll, sodass ihr auch mehrere Kompressoren anbieten bzw. zwischen verschiedenen wechseln könnt (RAR, 7zip, bzip etc.)

Ja, da habt ihr wohl recht.

Ich habe aktuell noch nicht gefunden wie ich mit der nativ ZIP-Routinen eine im ZIP befindliche Datei in einen MemoryStream bekomme. Gibts da evtl. bespiele, die ich noch nicht kenne?

Zitat:

Zitat von daywalker9 (Beitrag 1121189)

Delphi-Quellcode:

			    
    /// <summary> Get a stream to read a file from disk </summary>

    /// <remarks>

    ///   The Stream returned by this function is a decomression stream

    ///   wrapper around the interal Stream reading the zip file. You must

    ///   Free this stream before using other TZipFile methods that change the

    ///   contents of the ZipFile, such as Read or Add.

    ///   The overload that takes an Integer may be useful when a ZIP file

    ///   has duplicate filenames.

    /// </remarks>

    /// <param name="FileName">ZIP file FileName</param>

    /// <param name="Stream">Output Stream</param>

    /// <param name="LocalHeader">Local File header</param>

    procedure Read(FileName: string; out Stream: TStream; out LocalHeader: TZipHeader); overload;

    procedure Read(Index: Integer; out Stream: TStream; out LocalHeader: TZipHeader); overload;

In der Hilfe findet sich übrigens TZipFile bei mir gar nicht?!

Ah super Danke!

Dann mal ran an die Arbeit ;-)