Neue Zip-Archiv Komponente

[scrat1979]

ZipForge von ComponentAce wäre auch eine Option. Tolles Ding und unterstützt auch die aktuellen Delphi-Versionen

[Willie1]

69 $ ist eine Menge Geld. Ich habe die uralte 7z-Bibliothek für Delphi 10.x zum Laufen gebracht, vielleicht schaffe ich das auch noch mit der alten Zip-Komponente von 2006. Willie.

[scrat1979]

Zitat von Willie1:

69 $ ist eine Menge Geld. Ich habe die uralte 7z-Bibliothek für Delphi 10.x zum Laufen gebracht, vielleicht schaffe ich das auch noch mit der alten Zip-Komponente von 2006. Willie.

Für den privaten Einsatz wäre es kostenlos. Das nur nebenbei bemerkt.

[philipp.hofmann]

Wenn funktional nichts dagegen spricht, würde ich immer TZipFile nehmen. ZipForge ist gut, aber wenn ich mich recht entsinne nur für Windows geeignet. TZipFile läuft mit allen von Delphi unterstützen Betriebssystemen. Ich persönlich nutze ZipForge auch, weil ich in einem Projekt mit riesen Zip-Dateien (um die 1 GB groß) zu tun hatte und dies ging mit TZipFile einfach nicht (zumindest nicht unter 32-bit).

[Willie1]

Ich will's mit TZipFile probieren. Es geht um max. 300 Bilder in einem Zip-Archiv.
Was will ich: ich möchte alle Bilder (die GPI+ lesen kann) aus einem Archiv heraus filtern, egal in welcher Ordnerebene des Archiv sich das Bild befindet und in einem Ordner ablegen. Dann liest mein Programm diese Bilder ein.
Kleiner Anfang von mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PZip: TZipFile;
  Count: Integer;
  pf: string;
  SL: System.TArray<string>;
  i: integer;
begin
  if od.Execute then begin
  PZip:=TZipFile.Create;
    PZip.Open(od.FileName, zmRead);
    Pf:=TmpPath+'§§§~~~';
//    PZip.ExtractZipFile(od.FileName, Pf);
    Count:=PZip.FileCount; //hier werden Ordner mit gezählt
    SetLength(SL,Count);
    SL:=PZip.FileNames;
    for i:=0 to Count - 1 do begin
      //hier filtere ich Bilder aus
      PZip.Extract(SL[i], Pf, true);//<----
    end;
    PZip.Close;
    PZip.Free;
  end;
end;

Hier wird aber die Ordnerstruktur mit erzeugt und das will ich nicht. Willie.

[Delphi.Narium]

In die Hilfe schauen? http://docwiki.embarcadero.com/Libra...ipFile.Extract

Delphi-Quellcode:

procedure Extract(const FileName: string; const Path: string = ''; CreateSubdirs: Boolean = True); overload;
procedure Extract(Index: Integer; const Path: string = ''; CreateSubdirs: Boolean = True); overload;

Der letzte Parameter, den Du auf True gesetzt hast, steuert die Erzeugung der Ordnerstruktur. Ist er True, dann wird die Ordnerstruktur erzeugt, ist er false, dann nicht.

Einfach mal mit PZip.Extract(SL[i], Pf, false);//<--- probieren?

[himitsu]

Zitat von Willie1:

und in einem Ordner ablegen. Dann liest mein Programm diese Bilder ein.

Warum nicht direkt in einen TMemoryStream auslesen?
Dann isses auch gleich im Programm.

[Willie1]

Hallo Delph-Narium,
ich habe in die Hilfe gesehen! Nur wenn der Parameter auf false steht, muss ich vorher den Ordner selbst anlegen, sonst gibt es einen Fehler "Ordner nicht gefunden". Das hatte ich nicht bedacht. Himitsu, muss ich drüber nachdenken.
Willie.