Доброго всем времени суток!
Есть очень важная задача программно распаковать многотомный архив. Количество томов может быть разным.
Пользуюсь версией XE8
Изначально пробовал средствами встроенного класса TZipFile вот так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TForm1.Button1Click(Sender: TObject);
var
fzip: TZipFile;
begin
showMessage('Ща буду распаковывать');
fzip := TZipFile.Create();
try
fzip.ExtractZipFile('E:\Projects\TestUnzip\Win32\Debug\test\test.zip','E:\Projects\TestUnzip\Win32\Debug\test');
except
on E : Exception do
ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
end;
fzip.Free;
end;
Результат:
EZipException поднята ошибка, с сообщением : Error reading zip file
Переписал это же добро под использование 7z.dll и прикрутил к проекту sevenzip.pas
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
try
with CreateInArchive(CLSID_CFormatZip) do
begin
OpenFile('D:\repositaries\variussoft\testUnzip\Win32\Debug\testzip.zip');
SetProgressCallback(nil, ProgressCallback);
ExtractTo('D:\repositaries\variussoft\testUnzip\Win32\Debug\1');
end;
except on E: Exception do
ShowMessage(E.ClassName+' поднята ошибка, с сообщением : '+E.Message);
end;
Результат:
Exception поднята ошибка, с сообщением : Неверная функция
Буду благодарен за любой совет!
