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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2018, 16:28   #1
KBO
Форумчанин
 
Регистрация: 11.06.2010
Сообщений: 525
По умолчанию TZipFile – архивировать с паролем можно, но как разархивировать с паролем не все, а конкретный файл

Доброе время суток форумчане
Скачав модуль «EncryptedZipFile» от сюда, можно архивировать файлы с паролем.

Можно также разархивировть с паролем все файлы из архива, например с паролем "1"

Код:
var
  myZipFile: TEncryptedZipFile;
begin
  try
    myZipFile := TEncryptedZipFile.Create('1');
    try
      myZipFile.Open('d:\test.zip', zmRead);
      myZipFile.ExtractAll('d:\');
      myZipFile.Close;
    finally
      myZipFile.Free;
    end;
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
  end;
end;
работает прекрастно, процедура разархивирования с паролем - но всех файлов из архива.

но когда пытаешся вынуть один конкретный файл из запараллированного архива, процесс не всегда удачный, т.е. есть архив "test.zip" и в нем 2 файла (с простыми названиями) "1.b" и "2.b".
код
Код:
var
  myZipFile: TEncryptedZipFile;
begin
  myZipFile := TEncryptedZipFile.Create('1');
  try
    myZipFile.Open('d:\test.zip', zmRead);
    myZipFile.Extract('1.b', 'd:\', true);
    myZipFile.Close;
  finally
    myZipFile.Free;
  end;
end;
достает из архива '1.b'.
но когда в него подставляешь '2.b', то ошибка:

exception class EZipException with message 'The specified file was not found'.

файл не найден, хотя он в архиве есть

Заранее спасибо за ответ

Последний раз редактировалось KBO; 23.12.2018 в 16:33.
KBO вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как реализовать вход под админом с паролем? sega174 PHP 2 09.03.2015 17:05
как зашифровать текстовой файл с паролем Obey177 Общие вопросы Delphi 7 23.04.2014 16:05
Как открыть БД Access 2010 (.accdb) с паролем Dux БД в Delphi 2 16.07.2012 21:15
Запаковать файл Zip'ом и распаковать файл с паролем Ципихович Эндрю Microsoft Office Word 3 30.01.2012 19:28
как сделать на НАРОДе стр. с паролем? aksy HTML и CSS 7 11.02.2011 08:42