Понедельник, 07.10.2024, 09:05 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Помогите разобраться
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
лови модули для работы с зипами - умеет все то что и винрар для зипов
Прикрепления: fwzip.zip (674.8 Kb)
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz