[Delphi] Как распаковать *.jar?

Добры день, вот пытаюсь распаковать *.jar файл через ZLib, но вылазит data error - в API Embarcadero это означает следующие - The input data was corrupted or incomplete. (Повреждён типо). Как быть?

 

А если WinRAR'ом открывать, то нормально все ?
Попробуй этот компонент - http://www.rarlab.com/rar/TDFUnRar.zip и этот - http://delphiexpert.ru/load/Components/zipmaster.zip

 

Обычным WinRar открывается норм) а вот тут не хочет, скорее всего нужно отступать какое-то кол-во байт и потом распаковывать, где-то такое читал, но там был *.swf. Спасибо попробую, отпишу!

 

jar - это zip с нулевым сжатием.

 

Всем спасибо.

Воспользовался библиотекой SevenZip, распаковался архив на раз два. Пример кода:

Code:

uses SevenZip;

var
  I : Integer;
begin
  // Получаем список файлов
  with CreateInArchive(CLSID_CFormatZip) do
    begin
      OpenFile(ExtractFilePath(ParamStr(0)) + 'file.jar');
      MLog.Lines.Append('Список Файлов:');
      for I := 0 to NumberOfItems - 1 do
        if not ItemIsFolder[I] then
          MLog.Lines.Append(ItemPath[I]);
    end;

  // Распаковывает файлы 
  with CreateInArchive(CLSID_CFormatZip) do
   begin
     OpenFile(ExtractFilePath(ParamStr(0)) + 'file.jar');
     ExtractTo(ExtractFilePath(ParamStr(0)) + 'file');
     MLog.Lines.Append('Архив распакован!');
   end;
end;

Качал отсюда - API SevenZip.zip (Внутри - примеры, sevenzip.pas и *.dll)