Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Каким архиватором запакован, ФАЙЛ 
:(
    Опции темы
SoWa
Дата 28.12.2004, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74



Помогите узнать(если можно) каким WinRAR-ом запакован файл.
Т.е. Дан RAR файл, выдать версию винрара? smile


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
z-END
Дата 28.12.2004, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102



в DRKB есть топик Создаём собственный UnRar там описан заголовок архива, из которого можно определить требуемую версию для распаковки


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 

PM WWW ICQ   Вверх
Snowy
Дата 28.12.2004, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Самый быстрый способ:
(пишу без всяких проверок, только саму суть)
Код

function GetRarVersion(filename:string):byte;
var
 f:  file of byte;
 ver: byte;
begin
 AssignFile(f,filename); Reset(f);
 Seek(f,$2C); Read(f,ver);
 CloseFile(f);
 result:=ver;
end;

Проверка на наличие файла уже на вашей совести.
Функция возвращает минимальную версию RAR для распаковки архива.
Можете сравнить с самим раром, он вам скажет то же самое.
А! Чуть не забыл. Т.к. номер версии - число дробное, то функция возвращает номер версии умноженный на 10. Если нужна точность - делите на 10 сами.
Так например, если файл запакован 3-м раром, то функция вернет 29, что означает, что для распаковки требуется рар не ниже 2.9. Если запакован, например 2.7, то функция вернет 20, что значит, что для распаковки требуется рар не ниже 2.0.
Если интересно, что и как еще, касательно рар-архивов, откройте папку с WinRAR и прочитайте TechNote.txt. Там формат рар-файлов подробно описан.
PM MAIL   Вверх
SoWa
Дата 31.12.2004, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74



Спасибо за помощь!


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0736 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.