Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 TVCLUnZip как распаковать архив состоящий из нескольких файлов?  [new]
Mandarin
Member

Откуда: Саратов
Сообщений: 1191
Всем привет! Подскажите пожалуйста как распаковать архив состоящий из нескольких файлов?
Архив состоит из двух частей
C:\Temp\myzip.zip.001
C:\Temp\myzip.zip.002
Если архив не битый, открывается нормально, файлы из архива извлекаются. Тестировал программой 7-Zip, в этой же программе архив и создавал.
Пример кода.
procedure TForm1.Button1Click(Sender: TObject);
var
  unzip: TVCLUnZip;
begin
  unzip := TVCLUnZip.Create(nil);
  try
    unzip.ZipName := 'C:\temp\myzip.zip.001';
    unzip.ReadZip;
    unzip.DoAll := true;
    unzip.DestDir := 'c:\temp\unzip';
    unzip.RecreateDirs := true;
    unzip.OverwriteMode := Always;
    unzip.UnZip;
  finally
    unzip.Free;
  end;
end;

При выполнении этого кода получаю ошибку "Incomplite zip file"
22 май 20, 19:30    [22137876]     Ответить | Цитировать Сообщить модератору
 Re: TVCLUnZip как распаковать архив состоящий из нескольких файлов?  [new]
Cobalt747
Member

Откуда:
Сообщений: 2155
Mandarin,

Надо получить список файлов и распаковывать их по одному.
23 май 20, 12:09    [22138095]     Ответить | Цитировать Сообщить модератору
 Re: TVCLUnZip как распаковать архив состоящий из нескольких файлов?  [new]
makhaon
Member

Откуда: A galaxy far far away
Сообщений: 3666
Mandarin,

Жедаевские либы, как минимум, умеют распаковывать многотомники. Можно посмотреть хотя бы тут:
https://www.sql.ru/forum/1196280-a/raspakovka-mnogotomnogo-zip-arhiva
или гуглить 'TJclDecompressArchive AddVolume'
23 май 20, 19:00    [22138276]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить