[Stanei]

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

Код:

1 2 3 4 5

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 говорят работает:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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"

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

Код:

1 2 3 4

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

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