XE - TZipFile.ExtractZipFile - Dateigröße immer 0

[Uwe Raabe]

Die ZIP-Dateien haben das Extended-Local-Header-Bit gesetzt und damit kann TZipFile leider nicht umgehen. Du solltest dich vielleicht nach einer anderen Bibliothek umsehen.

[Perlsau]

Zitat von cookie22:

Es gibt zig Arten von Zip Dateien. Delphi Zip unterstützt AFAIK nur Version 2.0 mit Deflate.
Alles andere wie Zip64, BZIP, LZMA u.s.w. wird von Delphi eh nicht unterstützt. Vielleicht liegt es ja daran.
Sind die Zip-Dateien eventuell verschlüsselt?

Ich vermute sowas, hab' aber keine Ahnung, wie ich das herausbekommen kann und ob mir das dann auch weiterhilft ...

Zitat von Uwe Raabe:

Die ZIP-Dateien haben das Extended-Local-Header-Bit gesetzt und damit kann TZipFile leider nicht umgehen.

Offenbar hast du dir eine dieser Zip-Dateien angesehen. Dann muß ich System.Zip wohl erstmal vergessen, schade eigentlich ...

Zitat von Uwe Raabe:

Du solltest dich vielleicht nach einer anderen Bibliothek umsehen.

In meiner eigenen IDE hab ich Abbrevia installiert. Doch arbeite ich gerade mal wieder an einem Kunden-PC mit XE2 unter Win7 (statt bei mir zu Hause mit 2009 unter XP), und hier ist mir die Installation von Abbrevia nicht gelungen. Natürlich hatte ich bereits eine kleine Recherche veranstaltet, um eine brauchbare Zip-Bibliothek zu finden, aber noch keine installiert und ausprobiert. Es gibt ja so viele, da könnt' ich die ganze Nacht mit verbringen. Hatte ich doch im Ernst geglaubt, ich schaff' die gestellte Aufgabe heute nacht noch ... Hast du vielleicht gerade eine brauchbare Empfehlung zur Hand

Vielleicht gibt's ja 7Zip für Delphi, das wäre Klasse, 7Zip entpackt eigentlich fast alles ...

[Perlsau]

Die Lösung lautet vorerst (falls Scheffe morgen früh keine Einwände hat) ZipMaster von DelphiZip. Das sind zwei DLLs, je eine für 32bit und 64bit. Installiert wird die ZipMaster-Komponente. Und die scheint alles zu können, was man von einer Zip-Komponente so erwartet ... bis jetzt. Die Benutzung gestaltet sich recht einfach: Dem Property Filename wird der Dateiname des Zipfiles zugewiesen, mit der Funktion Extract werden alle Inhalte extrahiert. Wie man nur ganz bestimmte Files aus dem Archiv herausholt, hab ich noch nicht herausgefunden ...

Delphi-Quellcode:

function TForm_Downloads.PostCodeListe_Aktualisieren : String;
Const
     Suff = '.zip';
VAR
   i,z,R,a  : Integer;
   Datei,
   UrlBase,
   UrlText  : String;
   Strom    : TFileStream;

begin
   UrlBase := DatMod.Aset_Benutzer.FieldByName('Zip_Dump').AsString;

   IF DatMod.GetPostCodeListe(ListBox_Daten.Items) THEN
   BEGIN
      z := ListBox_Daten.Count;
      Label_Anzahl.Caption := IntToStr(z) + ' Dateien werden jetzt heruntergeladen ...';
      Application.ProcessMessages;

      FOR i := 0 TO z-1 DO
      BEGIN
         ListBox_Daten.ItemIndex := i;
         UrlText := UrlBase + ListBox_Daten.Items[i] + Suff;
         Datei   := DownDir + ListBox_Daten.Items[i] + Suff;
         Try
            Strom   := TFileStream.Create(Datei,fmCreate,fmShareDenyNone);
            HTTP_Down.Get(UrlText,Strom);

         Finally
            FreeAndNil(Strom);
         End;
         Application.ProcessMessages;
      END;

      ShowMessage('Herunterladen von ' + IntToStr(z) + ' Dateien beendet.');

      Label_Anzahl.Caption := IntToStr(z) + ' Dateien werden jetzt entpackt ...';
      Application.ProcessMessages;
      ZipMast.ExtrBaseDir := DownDir;
      a := 0;

      FOR i := 0 TO z-1 DO
      BEGIN
         ListBox_Daten.ItemIndex := i;
         Datei := DownDir + ListBox_Daten.Items[i] + Suff;
         IF FileExists(Datei) AND (KleineTools.GetFileSize1(Datei) > 0) THEN
         Try
            ZipMast.Active      := True;
            ZipMast.ZipFileName := Datei;
            R                   := ZipMast.Extract;
            IF R = 0 THEN
            BEGIN
               DeleteFile(Datei);
               INC(a);
            END;

         Finally
            ZipMast.Active := False;
         End;
         Application.ProcessMessages;
      END;

      Datei := DownDir + 'readme.txt';
      IF FileExists(Datei) THEN DeleteFile(Datei);

      ShowMessage('Entpacken von ' + IntToStr(a) + ' Dateien beendet.');
   END;
end;

[cookie22]

Du bist mit einer anderen Bibliothek sicher besser beraten. DelZip ist OK. Abbrevia auch. Wenn du die 7Zip DLL benutzen willst, schau mal hier: http://www.rg-software.de/rg/index.p..._content&id=29

Wenn du die JCL installiert hast, kannst du auch die benutzen. Da gibt es einen Wrapper für die 7Zip DLL.

[Perlsau]

Zitat von cookie22:

Du bist mit einer anderen Bibliothek sicher besser beraten.

Meinst du damit anders als System.Zip oder als anders als ZipMaster von DelphiZip?

Zitat von cookie22:

DelZip ist OK.

Das ist also was anderes als Zipmaster

Zitat von cookie22:

Abbrevia auch.

Das hatte ich bereits versucht, erhielt aber Fehlermeldungen beim Installationsversuch unter XE2. Die genauen Meldungen weiß ich nicht mehr ... ich kann hier auch nicht mehr lange machen, bin erstens übermüdet und Scheffe kommt auch demnächst und will an seinen Rechner ...

Zitat von cookie22:

Wenn du die 7Zip DLL benutzen willst, schau mal hier:

Das schaue ich mir von zu Hause nachher mal an ... hört sich vielversprechend an

Zitat von cookie22:

Wenn du die JCL installiert hast, kannst du auch die benutzen. Da gibt es einen Wrapper für die 7Zip DLL.

Die hab ich, das schau ich mir sogar gleich mal an

Danke für die wertvollen Tips

[Uwe Raabe]

Zitat von Perlsau:

Hast du vielleicht gerade eine brauchbare Empfehlung zur Hand

Ohne da jetzt umfangreiche Vergleiche angestellt zu haben, bin ich seit langem mit ZipForge sehr zufrieden. Kommt ohne externe DLLs aus.

[Perlsau]

Zitat von Uwe Raabe:

Ohne da jetzt umfangreiche Vergleiche angestellt zu haben, bin ich seit langem mit ZipForge sehr zufrieden. Kommt ohne externe DLLs aus.

Das kann ich sowieso nicht selber entscheiden, aber ich werd' meinen Auftraggeber darauf hinweisen, sobald er eingetroffen ist, vielleicht investiert er ja die 99 Euro ...

Mit Zipmaster scheint's aber auch gut zu funktionieren, und das kostet nix

[cookie22]

ZipMaster = DelZip.

ZipForge ist auch gut. Kostet halt €100.

[Perlsau]

Zitat von cookie22:

ZipMaster = DelZip.

Okay, dann bleib ich bei ZipMaster. Es gibt ja sooo viele, allein bei SourceCodeOnline werden hunderte angeboten ... wer will sich das alles auch nur anschauen, geschweige denn installieren und ausprobieren Ich hab ja auch noch andere Probleme

[Lemmy]

falls Du mal Interesse an 7zip hast, ich arbeite damit:
http://code.google.com/p/d7zip/

ist etwas komplizierter, weil alles per Source passiert, und was ich als Nachteil empfinde: Beim Entpacken musst Du vor dem Öffnen des Archivs wissen ob das ein zip oder 7z Archiv ist und das entsprechende Interface verwenden. Aber als einfach zu integrierende Lösung ganz nett.

GRüße