System.Zip Entpacken einer Datei

[mytbo]

Zitat von zeras:

Oder kann es sein, dass System.Zip nicht alle Zipversionen kennt?

Oder mal mit mORMot testen:

Delphi-Quellcode:

uses
  mormot.core.base,
  mormot.core.os,
  mormot.core.zip;

begin
  var zipRead: TZipRead := TZipRead.Create(zipFileName);
  try
    var idx: Integer := zipRead.NameToIndex(fileNameToSearch);
    if (idx >= 0)
      and zipRead.UnZip(idx, ...) then
    begin
    end;
  finally
    zipRead.Free;
  end;

Bis bald...
Thomas