[Kobelev]

Добрый вечер) Использую компонент ZipForge. Подскажите как мне извлечь из ZIP архива файлы с определенным расширением? Допустим в архиве много файлов с разным расширением, а мне нужны только с расширением bmp, jpg и png. Могу поставить фильтр только на одно расширение.

Код:

procedure TForm1.ExtractClick(Sender: TObject);
begin
 ZipForge1.FileName:='c:\file.zip';
 ZipForge1.OpenArchive;
 ZipForge1.BaseDir := 'C:\Pict\';
 ZipForge1.ExtractFiles('*.bmp');  // как тут можно добавить еще пару расширений?
  ZipForge1.CloseArchive;
end;

[Bargest]

решение само напрашивается:

Код:

ZipForge1.ExtractFiles('*.bmp');
ZipForge1.ExtractFiles('*.png');
ZipForge1.ExtractFiles('*.jpg');

А возможность использования нескольких фильтров зависит от реализации этого компонента. Попробуй порыться в ExtractFiles - может чего найдешь.

[Kobelev]

ну я тоже так думал, но выглядит как то не очень) Может как то иначе можно?
В компоненте есть свойство FileMasks типа TStringList, но как вот им пользоваться. Пробовал, вписать так
*.bmp
*.jpg
*.png
начал сильно ругаться))

[Bargest]

обычно TStringList так используется:

Код:

Filemasks.Add(*.bmp);
FileMasks.Add(*.jpg);

[Kobelev]

Ага, но что то не получается таким образом.

[MMM_Corp]

а так?
Filemasks.Add(*.bmp;*.jpg);

и что не получается?

[MMM_Corp]

у меня вот с этим компонентом другая проблема, не могу врубатся как делать многотомные SFX-архивы, как бы все по инструкции делаю, но вот почему то все всеравно складывается в 1 файл, хотя задаю размер томов, может кто делал такое, поделитесь опытом

[Kobelev]

Видимо Filemasks работает только на добавление файлов в архив, а с извлечением увы не работает(( А у вас есть инструкции по этому компоненту, не могли бы поделиться?

[MMM_Corp]

Сообщение от Kobelev

Видимо Filemasks работает только на добавление файлов в архив, а с извлечением увы не работает(( А у вас есть инструкции по этому компоненту, не могли бы поделиться?

нету, есть только то что на офе дают, по вашей трабле:
http://www.componentace.com/extract-...-in-delphi.htm

[Kobelev]

Сообщение от MMM_Corp

нету, есть только то что на офе дают, по вашей трабле:
http://www.componentace.com/extract-...-in-delphi.htm

Большое спасибо)