[Stanei]

Здравствуйте. Подключил SevenZip, пишу:

Код:

 with CreateInArchive(CLSID_CFormatZip) do
   begin
   OpenFile(ExtractFilePath(ParamStr(0)) + 'data.zip');
   ExtractTo(ExtractFilePath(ParamStr(0)) + 'data');
   end;

В папке с программой лежат data.zip, data.z01, data.z02

Выдаёт "Не верная функция". Но если взять цельный архив "data.zip" то всё распаковывает.

пробовал кидать разные версии 7z.dll, не помогло. Помогите пожалуйста, как многотомные распаковывать?

[lmikle]

Вот такой код на stackoverflow.com говорят работает:

Код:

using sevenzip;

procedure Unzip7zFile (zipFullFname:string);
  var
    outDir:string;
  begin
    with CreateInArchive(CLSID_CFormat7z) do
    begin  
      OpenFile(zipFullFname);
      outDir := ChangeFileExt(zipFullFname, '');
      ForceDirectories (outDir);
      ExtractTo(outDir);
    end;
  end;

[Stanei]

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

Вот такой код на stackoverflow.com говорят работает:

тоже самое выдаёт "Не верная функция"

[Stanei]

покопавшись, нашёл компонент "ZipForge"

кидаю на форму компонент, пишу

Код:

ZipForge1.FileName := ''; // Путь к zip архиву
ZipForge1.OpenArchive; // Чтение содержимого архива
ZipForge1.BaseDir := ''; // Путь распаковки
ZipForge1.ExtractFiles('*.*'); // Распаковка

Разархивирует и цельные архивы, и многотомные.