|
Born
|
Дата: Вторник, 15.12.2015, 11:54 | Сообщение # 1
|
Частый гость
Зарегистрирован: 01.10.2012
Группа: Пользователи
Сообщений: 49
Статус: Offline
|
Здравствуйте.
Работаю с компонентом ZipForge.
Компонент архивирует файлы,как оп маске так и по имени.
Но оп маске он только одно расширение находит и архивирует.
Вот пример кода:
Код
procedure TForm1.Button1Click(Sender: TObject);
begin
ZipForge1.BaseDir:='D:\';
ZipForge1.FileName:=('D:\TestRar.zip');
ZipForge1.OpenArchive(fmCreate);
ZipForge1.BaseDir:='D:\';
ZipForge1.AddFiles('*.txt');//Если сюда ещё добавить маску '*.pdf' тогда он в обще не архивирует .
ZipForge1.CloseArchive;
showmessage('Запаковано');
end;
end.
Есть у этого компонента свойства FileMask ,добавлял расширения но результата ноль.
Помогите разобраться с компонентом...
Сообщение отредактировал Born - Вторник, 15.12.2015, 11:55
|
| |
|
|
|
ms301
|
Дата: Вторник, 15.12.2015, 13:00 | Сообщение # 2
|
Постоянный
Зарегистрирован: 28.11.2012
Группа: Пользователи
Сообщений: 101
Статус: Offline
|
Сам организуй поиск на диске - и добавляй файлы в зип |
| |
|
|
|
Android
|
Дата: Четверг, 29.12.2016, 14:31 | Сообщение # 3
|
Постоянный
Зарегистрирован: 13.12.2011
Группа: Пользователи
Сообщений: 100
Статус: Offline
|
лови модули для работы с зипами - умеет все то что и винрар для зипов
|
| |
|
|
