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

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