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

Форум программистов > Delphi: Общие вопросы > ZipTV7.0

Автор: MrDmitry 26.10.2008, 01:44

Народ. Хочу запаковать файлики в RAR. Когда пытаюсь запаковать при  помощи этого компонента выдается ошибка.  Unrar?.dll not found Как это исправить? или может есть другие методы упаковки и распаковки в RAR?

Автор: ne0n 26.10.2008, 02:27

MrDmitry, эээ насколько мне известно но алго сжатият rar закрыт=) иначеб смысла небыло просить за  winrar денюжку. а Unrar.dll (говорящее название не так ли?)) позволяет только распаковать архив.

Автор: AntonN 26.10.2008, 09:45

ну есть конечно метод... юзать консольную версию rar.exe и запускать ее с параметром

Автор: MrDmitry 26.10.2008, 11:40

Цитата(ne0n @ 26.10.2008,  02:27) MrDmitry, эээ насколько мне известно но алго сжатият rar закрыт=) иначеб смысла небыло просить за  winrar денюжку. а Unrar.dll (говорящее название не так ли?)) позволяет только распаковать архив. Ну а как тогда распаковывать? Почему он мне пишет что файла Unrar?.dll нет???

Автор: ne0n 26.10.2008, 13:06

Цитата(MrDmitry @  26.10.2008,  11:40 ) Ну а как тогда распаковывать?Почему он мне пишет что файла Unrar?.dll нет??? ну раз он просит unrar.dll - так дай ему ее) http://www.rarlab.com/rar_add.htm

Автор: tHE_EGOiSTE 26.10.2008, 14:47

Цитата Ну а как тогда распаковывать? \\ Вот пример обработчика: Код procedure   TForm1.Button1Click(Sender:   TObject);      begin          UnRar1.ArchiveFile:='c:\arch.rar';          UnRar1.ExtractDir:='c:\exdir';          UnRar1.FileSpec.Add('*.*');          UnRar1.RecurseDirs   :=   True;          ShowMessage(IntToStr(UnRar1.Extract));      end; Добавлено через 7 минут и 22 секунды В прикреплении прикладываю пример разархиватора на основе unrar.dll

Автор: MrDmitry 26.10.2008, 20:12

Цитата(ne0n @ 26.10.2008,  13:06) Цитата(MrDmitry @  26.10.2008,  11:40 ) Ну а как тогда распаковывать?Почему он мне пишет что файла Unrar?.dll нет??? ну раз он просит unrar.dll - так дай ему ее) http://www.rarlab.com/rar_add.htm В английском не селен. Просто скажи куда сувать этот файл? Добавлено через 1 минуту и 17 секунд Цитата(tHE_EGOiSTE @ 26.10.2008,  14:47) Цитата Ну а как тогда распаковывать? \\ Вот пример обработчика: Код procedure   TForm1.Button1Click(Sender:   TObject);      begin          UnRar1.ArchiveFile:='c:\arch.rar';          UnRar1.ExtractDir:='c:\exdir';          UnRar1.FileSpec.Add('*.*');          UnRar1.RecurseDirs   :=   True;          ShowMessage(IntToStr(UnRar1.Extract));      end; Добавлено @ 14:55 В прикреплении прикладываю пример разархиватора на основе unrar.dll Как писать я знаю Твой код пищет тоже самое. Прикрепленный файл зависает( Начинает распаковыватся и весит

Автор: tHE_EGOiSTE 26.10.2008, 20:36

Look http://www.delphisources.ru/pages/faq/base/unrar.html

Автор: ne0n 27.10.2008, 11:50

Цитата(MrDmitry @  26.10.2008,  20:12 ) В английском не селен. Просто скажи куда сувать этот файл? скорее всего положить его надо в папочку с твоим поректом, а воообще интресно в чем такая острая необхожимость использовать rar?! альтернатив полно.

Автор: MrDmitry 27.10.2008, 13:25

Цитата(ne0n @ 27.10.2008,  11:50) Цитата(MrDmitry @  26.10.2008,  20:12 ) В английском не селен. Просто скажи куда сувать этот файл? скорее всего положить его надо в папочку с твоим поректом, а воообще интресно в чем такая острая необхожимость использовать rar?! альтернатив полно. Файлик ложил тоже самое пишется ( Необходимость в том что есть 1 файлик он архивирован в rar. И нужно программно его разархивировать. А архивировать я патом буду в zip.

Автор: Juice 11.12.2008, 02:33

Как вариант - можно использовать 7zip. Устанавливать не надо - тягаешь с прогой 2 файлика: 7z.dll и 7z.exe (во всяком случае, в используемой мною версии 7-Zip 4.57 именно так). И из проги уже вызывать 7z e -trar archive_name.rar -y и  7z a -tzip archive_name.zip filename1 filename2

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)