[sanya920]

Доброго впемени суток, ребяты. Мне в программе необходимо организовать распаковку ZIP архива (с прогрессбаром, все как положено). Пробовал распаковывать с помощью компонента ZipForge, все вроде норм, но очень долго распаковывает, даже если архив с нулевым сжатием и наглухо зависает форма. Компонент FWZip все вроде норм делает, но после нескольких распакованных файлов вылазит ошибка в FWZipReader.pas (скрин ошибки прикрепрен). Подскажите как исправить ошибки либо рабочий компонент, заранее благодарен ))

[Alegun]

Вот что-то по теме

[sanya920]

Спасибо,пока посмотрел пример с SciZipFile, но вылазит ошибка при извлечении папки

Код:

ZipFileMem := TZipFile.Create ;
  ZipFileMem.LoadFromFile('1.zip');
  for i := 0 to ZipFileMem.Count -1
  do begin
     memo1.lines.Add(ZipFileMem.Name[i]) ;
     ZipFileMem.SaveToFile('C:\1\'+ZipFileMem.Name[i]);
  end;
ZipFileMem.Free;

Сейчас гляну второй компонент