zip архив у которого Compressed size и Uncompressed size 0xFFFF

[dmitriegorovih]

Сообщение от Stilet

Этого не скажу. Но если там как Streletz сказал есть штатный класс, то используй его.

Штатный тоже ругается на размер. Ну ладно, все равно, огромное вам спасибо!

[Stilet]

Штатный тоже ругается на размер

Хм... Надо же. Сама судьба дала мне в руки 7z. Наверное потому у мну и никаких проблем не возникает.
В общем рекомендую, гарна штука
Да еще и бесплатная.

[dmitriegorovih]

Сообщение от Streletz

Если использовать штатный System.Zip.TZipFile, не помогает?

Таки вы были правы, только я не правильно считывал данные из архива. Вот рабочий код.

uses System.ZIP;
...
var
  zip:TZIPFile;
  strstream:TStringStream;
  ziph:TZIPHeader;
  stream:TStream;
begin
  stream:=TStream.Create;
  strstream:=TStringStream.Create;
  zip:=TZIPFile.Create;
  zip.Open('C:\Archiv.zip',TZIPMode.zmRead);
  zip.Read(i,stream,ziph);
  strstream.LoadFromStream(stream);
  showmessage(strstream.DataString);
  strstream.DisposeOf;
  stream.DisposeOf;
  zip.DisposeOf;
end;