Datei zippen/ entzippen: TZipmaster oder Abbrevia

[Uwe Raabe]

Zitat von Der schöne Günther:

Ich wollte auch erst das ganz normale TZipFile vorschlagen, aber das hatte bei XE4 (das hast du angegeben) noch keinen Umgang mit Streams, erst später.

Gibt es aber schon seit XE2:

procedure TZipFile.Open(ZipFileStream: TStream; OpenMode: TZipMode);

[hoika]

Hallo,
ich gebe mal wieder entnervt mit dem ZipMaster auf ...
Viele Stunden Freizeit umsonst verballert.

Warum kann ich nicht, ohne eine physische Zip-Datei anzugeben,
eine Zip-Datei als simplen Stream erzeugen lassen ???

Ich will einfach keine Datei-Operationen für etwas, was komplett im Speicher laufen könnte!

Ich werde mir jetzt Abbrevia ansehen, die können das vielleicht besser.

PS:
TZipMaster 1.93 kann das vielleicht ???


Heiko

[mm1256]

Zitat von hoika:

Hallo,
ich gebe mal wieder entnervt mit dem ZipMaster auf ...
Viele Stunden Freizeit umsonst verballert....

Das ist - wie so oft im Programmierer-Leben - der entscheidende Punkt. Entweder man investiert Zeit oder Geld. Manchmal muss man zudem noch Zeit investieren, um nicht zu viel Geld auszugeben, oder in das richtige Produkt zu investieren. Darum habe ich mich zum Zippen für ZipForge entschieden. Das kann alles was man braucht, ich muss also nicht immer wieder mal was nachrüsten und aufwändig meinen Code ändern. Und auch am Komfort mangelt es nicht. Ich denke da z.B. an die Möglichkeit den Zip64-Mode automatisch zu aktivieren, oder über ein einfaches Boolean-Property den Zip-Vorgang komplett im Speicher (also auch ohne temporäre Datei) durchzuführen.

[sh17]

So geht es mit Abbrevia

Code:

uses  AbZipper, AbArcTyp,AbZipTyp,Abutils
  
var
  Zip : TAbZipper;
begin
  Zip := TAbZipper.Create(nil);
  try
  try
    Zip.CompressionMethodToUse := smBestMethod;
    //Zip.StoreOptions := Zip.StoreOptions + [soStripPath];
    Zip.ArchiveType := atZip;
    Zip.ForceType := true;
    //Zip.OpenArchive(Zipfilename);
    Zip.Stream := MeinStream;

    Zip.AddFiles(..,0);
    zip.CloseArchive;
  except
    on E:Exception do ...
  end;
  finally
    zip.Free;
  end;

[Uwe Raabe]

Zitat von mm1256:

Entweder man investiert Zeit oder Geld. Manchmal muss man zudem noch Zeit investieren, um nicht zu viel Geld auszugeben, oder in das richtige Produkt zu investieren. Darum habe ich mich zum Zippen für ZipForge entschieden.

für ZipForge!

Kann man ja mal nachrechnen, wieviel Zeit man für die 49,- € einspart.

[mm1256]

@Uwe Ich hab die paar Euros für den Quellcode hinzu genommen, weil ich nach Möglichkeit keine Komponenten ohne Quellcode einsetze. Der Quellcode ist einerseits (für mich) die beste Online-Hilfe und zum Anderen kann man auch schnell mal etwas erweitern. Praktisch ist beispielsweise die Möglichkeit, direkt eine StringList zippen zu können

Delphi-Quellcode:

  TZFBaseArchiver = class(TComponent)
    ...
    // adds files using the FileList...added by Otto Herdegen
    procedure AddFiles(const FileList: TStringList); overload;

[Uwe Raabe]

Zitat von mm1256:

@Uwe Ich hab die paar Euros für den Quellcode hinzu genommen, weil ich nach Möglichkeit keine Komponenten ohne Quellcode einsetze.

Das ist selbstredend der richtige Ansatz. Meine Preisangabe sollte lediglich die niedrige Einstiegshürde aufzeigen.

[hoika]

Hallo,
tja, leider ist das uralter Code, den ich weiterpflegen muss.

Ich schaue mir Abbrevia mal an (und Zipforge ).

Danke an alle.


Heiko

[mm1256]

Zitat von hoika:

Hallo,
tja, leider ist das uralter Code, den ich weiterpflegen muss.

Willkommen im Club

Umso jünger man noch ist (im Umkehrsinn also, umso mehr Jahre man noch bis zur Rente vor sich hat) umso wichtiger ist die Tatsache, dass Code den man heute schreibt irgendwann einmal ebenso uralter Code wird. D.h. man legt jeden Tag den Grundstein dafür, wie arbeitsintensiv die Pflege seines Codes in Zukunft sein wird. Ich weiß, das klingt jetzt etwas nach Klugschei... aber es ist letztendlich so. Aus diesem Grund ist die Entscheidung, welche Komponenten man einsetzt, langfristig gesehen so wichtig für Erfolg und Misserfolg eines Projektes.

Das ist dann irgendwie vergleichbar mit einem alten Auto. Irgendwann kommt der Zeitpunkt an dem sich eine Reparatur nicht mehr lohnt....

[dataspider]

Zitat von hoika:

Hallo,
ich gebe mal wieder entnervt mit dem ZipMaster auf ...
Viele Stunden Freizeit umsonst verballert.

Warum kann ich nicht, ohne eine physische Zip-Datei anzugeben,
eine Zip-Datei als simplen Stream erzeugen lassen ???

Ich will einfach keine Datei-Operationen für etwas, was komplett im Speicher laufen könnte!

Ich werde mir jetzt Abbrevia ansehen, die können das vielleicht besser.

PS:
TZipMaster 1.93 kann das vielleicht ???


Heiko

Ich hatte damals mit Delphi 7 die zlibex.pas mit TZCompressionStream verwendet.
Das hat auf jeden Fall funktioniert.

Frank