Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TVCLUnZip как распаковать архив состоящий из нескольких файлов? / 3 сообщений из 3, страница 1 из 1
22.05.2020, 19:30
    #39960844
Mandarin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TVCLUnZip как распаковать архив состоящий из нескольких файлов?
Всем привет! Подскажите пожалуйста как распаковать архив состоящий из нескольких файлов?
Архив состоит из двух частей
C:\Temp\myzip.zip.001
C:\Temp\myzip.zip.002
Если архив не битый, открывается нормально, файлы из архива извлекаются. Тестировал программой 7-Zip, в этой же программе архив и создавал.
Пример кода.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
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"
...
Рейтинг: 0 / 0
23.05.2020, 12:09
    #39961008
Cobalt747
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TVCLUnZip как распаковать архив состоящий из нескольких файлов?
Mandarin,

Надо получить список файлов и распаковывать их по одному.
...
Рейтинг: 0 / 0
23.05.2020, 19:00
    #39961135
makhaon
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TVCLUnZip как распаковать архив состоящий из нескольких файлов?
Mandarin,

Жедаевские либы, как минимум, умеют распаковывать многотомники. Можно посмотреть хотя бы тут:
https://www.sql.ru/forum/1196280-a/raspakovka-mnogotomnogo-zip-arhiva
или гуглить 'TJclDecompressArchive AddVolume'
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TVCLUnZip как распаковать архив состоящий из нескольких файлов? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]