ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TZipFile, архивировать с паролем можно, но как разархивировать с паролем
10 сообщений из 10, страница 1 из 1
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751774
Kos-2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kos-2010
Участник
Доброе время суток форумчане
Скачав модуль « EncryptedZipFile » от сюда , можно архивировать с паролем
Например с паролем «1»:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
var
  ef: TEncryptedZipFile;
begin
  try
    ef := TEncryptedZipFile.Create('1');
    try
      ef.Open('d:\test.zip', zmWrite);
      ef.Add('d:\test.bin', 'd:\test.bin', zcDeflate);
    finally
      ef.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;



а вот разархивировать с помощью этого модуля никто не пробовал?
...
Рейтинг: 0 / 0
23.12.2018, 01:34
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751775
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Zip.TZipFile.Extract
...
Рейтинг: 0 / 0
23.12.2018, 01:54
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751783
Kos-2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kos-2010
Участник
Гирлионайльдо,

Да, я это видел, но честно говоря не совсем понял, каким образом " AInStream " можно сделать " decrypt "?
...
Рейтинг: 0 / 0
23.12.2018, 02:25
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751792
Фэйтл Эра
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фэйтл Эра
Участник
Kos-2010,

разархивировать также, как и с обычным TZipFile, только использовать класс TEncryptedZipFile, конструктор вызывать с параметром "пароль".

Код: pascal
1.
2.
3.
4.
5.
6.
7.
myZipFile := TEncryptedZipFile.Create('1');
try
  myZipFile.ExtractAll('');
  myZipFile.Close;
finally
  myZipFile.Free;
end;
...
Рейтинг: 0 / 0
23.12.2018, 03:03
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751793
Kos-2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kos-2010
Участник
Фэйтл Эра,

да действительно, только в вашем коде нужно добавить еще строку например
Код: pascal
1.
myZipFile.Open('d:\test.zip', zmRead);


а то файл, неизвестно какой.

моя ошибка была в том, что я использовал процедуру "Extract", вместо "ExtractAll", т.к. мне нужно разархивировать только конкретный файл из архива

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
ef := TEncryptedZipFile.Create('1');
    try
      ef.Open('d:\test.zip', zmRead);
      ef.Extract('test.bin', 'd:\', true);
      ef.Close;
    finally
      ef.Free;
    end;
...
Рейтинг: 0 / 0
23.12.2018, 03:21
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751794
Kos-2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kos-2010
Участник
как-то и " ExtractAll " - написано что извлекает все файлы из архива

но у меня архив " test.zip " и в нем 2 файла " test.bin " и " test1.bin ".
А извлекает он всего лишь один файл " test.bin "
...
Рейтинг: 0 / 0
23.12.2018, 03:31
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751795
Kos-2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kos-2010
Участник
Разобрался
"ExtractAll" - разархивирует все файлы из архива тогда, когда непосредственно указываешь путь, например
Код: pascal
1.
myZipFile.ExtractAll('d:\');



осталось выяснить, как вынуть конкретный файл из архива?...
...
Рейтинг: 0 / 0
23.12.2018, 04:14
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751810
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Kos-2010осталось выяснить, как вынуть конкретный файл из архива?...

Extract не достаточно? Щолё
...
Рейтинг: 0 / 0
23.12.2018, 10:34
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751889
Kos-2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kos-2010
Участник
Гирлионайльдо
Extract не достаточно? Щолё
достаточно, но только на половину, как я писал (чуть изменил), есть архив "test.zip" и в нем 2 файла "test1.bin" и "test2.bin".
код
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
var
  myZipFile: TEncryptedZipFile;
begin
  myZipFile := TEncryptedZipFile.Create('1');
  try
    myZipFile.Open('d:\test.zip', zmRead);
    myZipFile.Extract('test1.bin', 'd:\', true);
    myZipFile.Close;
  finally
    myZipFile.Free;
  end;
end;



достает из архива ' test1.bin '.
но когда в него подставляешь ' test2.bin ', то ошибка:

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

файл не найден, хотя он в архиве есть
...
Рейтинг: 0 / 0
23.12.2018, 16:01
| Ответить | Цитировать | Написать  
TZipFile, архивировать с паролем можно, но как разархивировать с паролем
    #39751903
Kos-2010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kos-2010
Участник
Все разобрался:
забыл строку
Код: pascal
1.
myZipFile.OnCreateDecompressStream := OnCreateDecompressStream;


после
Код: pascal
1.
myZipFile := TEncryptedZipFile.Create('1')



Спасибо всем откликнувшимся.
...
Рейтинг: 0 / 0
23.12.2018, 17:21
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TZipFile, архивировать с паролем можно, но как разархивировать с паролем
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=86&tid=2039981]:
 0ms
get settings:
 5ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 62ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 242ms
total:  380ms
созд. / загр.: 380ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]