Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Каким архиватором запакован

Автор: SoWa 28.12.2004, 14:09

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

Автор: z-END 28.12.2004, 14:48

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

Автор: Snowy 28.12.2004, 15:35

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

Код


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. Там формат рар-файлов подробно описан.

Автор: SoWa 31.12.2004, 12:53

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