Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2011, 12:50   #1
s-t-r-i-k-e-r
Пользователь
 
Регистрация: 03.06.2008
Сообщений: 32
По умолчанию Zip Master - кто работал?

Архивирует замечательно, а не разархивирует, пишет 0 файлов успешно извлечено.
Что может быть?
Архивация:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ZipMaster1.ZipFileName:='mytest.zip'; 
{задаем имя файла архива}
ZipMaster1.FSpecArgs.Add('my.txt');
{добавляем в архив файл}
ZipMaster1.Add;
ShowMessage(IntToStr(ZipMaster1.SuccessCnt)+' файл(ов) успешно добавлено');
{Вывод сообщения об успешном добавлении в архив n-го количества файлов}

end;

Извлечение:
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
ZipMaster1.ZipFileName:='mytest.zip';
with ZipMaster1 do 
{В данном случае все последующее процедуры, функции и переменные будут относиться к объекту ZipMaster1}
begin
 if Count = 0 then
  begin
  {Вывод сообщения об ошибке в случае отсутствия файлов в архиве}
  ShowMessage('Error — no files in the Zip file');
  Exit;
  end;
{Определение директории для распаковки файлов. Очень важно иметь в виду, что Zip Master не сможет извлечь файлы в несуществующую директорию, поэтому папка для извлечения файлов уже должна присутствовать на диске}
ExtrBaseDir:='d:\123\';
{Определение файлов для извлечения. В данном случае будут извлечены все файлы в архиве}
FSpecArgs.Add('*.*');
{В качестве опций извлечения файлов установлен параметр перезаписи существующих файлов}
ExtrOptions:=[ExtrOverwrite];
Extract; 
{Вывод сообщения об успешном извлечении файлов из архива}
ShowMessage(IntToStr(SuccessCnt)+' файл(ов) успешно извлечено');
end;

end;
s-t-r-i-k-e-r вне форума Ответить с цитированием
Старый 05.02.2012, 19:48   #2
popovich109
Новичок
Джуниор
 
Регистрация: 05.02.2012
Сообщений: 1
По умолчанию

Была такая же проблема. Я скачал и установил Zipmaster по этой ссылке и все заработало http://www.delphizip.org/download/zm190setup0115.exe
popovich109 вне форума Ответить с цитированием
Старый 23.09.2016, 09:52   #3
Sonia
Новичок
Джуниор
 
Регистрация: 28.01.2008
Сообщений: 1
Радость

Цитата:
Сообщение от popovich109 Посмотреть сообщение
Была такая же проблема. Я скачал и установил Zipmaster по этой ссылке и все заработало http://www.delphizip.org/download/zm190setup0115.exe
Столкнулась с такой же проблемой. Delphi 2007. Ссылка оказалось битой, видимо перестали поддерживать старые версии. Поделить, пожалуйста, исходниками ZipMaster, если остались.

Спасибо!
Sonia вне форума Ответить с цитированием
Старый 23.09.2016, 10:00   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от Sonia Посмотреть сообщение
видимо перестали поддерживать старые версии
ну так не берите старую.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
кто работал с jwplayer Arassir JavaScript, Ajax 1 24.10.2011 14:23
кто работал с nrComm Lib? drak2000 Мультимедиа в Delphi 1 22.02.2011 15:03
Кто работал с OpenCV? belomorinka Общие вопросы C/C++ 0 24.07.2010 20:21
Кто работал с DelphiX? selenux Общие вопросы Delphi 0 16.11.2006 15:57