Datei zippen/ entzippen: TZipmaster oder Abbrevia

[Uwe Raabe]

Was spricht denn gegen TZipfile aus System.Zip.pas? Das hat doch ein overload für Open, dem man auch einen TStream mitgeben kann.

[nahpets]

Zitat von Uwe Raabe:

Was spricht denn gegen TZipfile aus System.Zip.pas? Das hat doch ein overload für Open, dem man auch einen TStream mitgeben kann.

Ok, gibt es seit XE2, bei meinem alten Delphi 7 nicht dabei.

Laut Doku könnte es aber zum ZIP-Master weitgehend kompatibel sein (so auf die Schnelle mal drübergeschaut) und damit der Änderungsaufwand vertretbar sein.

[hoika]

Hallo,
TZipFile kann meines Wissens keine passwortgeschützen Zips.

Das ganze hat sich glaube ich aber erledigt.

Der Link in meinem vorigen Beitrag funktioniert, k.A., was ich da falsch gemacht hatte.

Jetzt geht es weiter mit dem Zippen, mal schauen.


Danke an alle.


Heiko

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

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

[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