:Приветствую
Хочу вот разобрать такой вопрос: Как мона программно заархивировать и разархивировать файлы?
Исследуемый архив содержит несколько файлов. При запуске программы нужно его разархивировать куда надо, а, поработав с его файлами, заархивировать их обратно.
Если есть маленькие проги-архиваторы (любые, желательно поменьше размером), то посоветуйте.
Вот, помогите. плз

поищи по форуму, это не первый топик

Компонентики есть :-)
Если дашь мыло - вышлю
Сам использую, и хелп есть.

Это сообщение отредактировал(а) Marriage - 25.1.2005, 15:41

Цитата(Marriage @ 25.1.2005, 15:36)

Сам использую - чуть-чуть (на 100-150 байт хуже RAR-a  )

А мне? интересно что это за алгоритм такой, небось ppm2 извращенный.

http://www.torry.net/pages.php?id=300

Мда ...
С моим траффиком до конца месяца ничего не получиться ...
ДАю Линк ...


ZipForge, 2.40
http://soft.mail.ru/program_page.php?grp=7112

Юзайте на здоровье.

ZipForge, 2.40 Знаем знаем, только это старье уже есть 2.59 и
вообще лутше всего качать с офф сайтов.

Ещё есть FlexCompres. Создатели обещают сжати лучше чем у WinRar, в чём и убедился. В компоненте есть функция шифрования.

Marriage, гуд! А поменьше нету компонентика?

Budy
Поискал бы, да траффика осталось 8 метров до 1 февраля ...

Цитата

ZipForge, 2.40 Знаем знаем, только это старье уже есть 2.59

Архив называется zf_259, наверно это и есть последние

Это сообщение отредактировал(а) Marriage - 26.1.2005, 16:30

Это нужно перепробовать кучу компонентов и определить, который тебе больше подходит. Вряд ли кто задавался этой целью. Как правило на 2-м - 3-м компоненте находят наиболее подходящий и успокаиваются.
Я использую компонент, который дает минимальный размер программы 100кб (без использоватия Forms).
А использовать стандартный ZLib не пробовал? Может для твоих целей хватит и этого?

ZLib
Добавлено @ 20:10
Мнето впринципе любой, даже без сжатия мона. Главно чтоб мона было 12 файлов в один объединить

Может, тогда самому можно написать, без сжатия?

Каким образом? У меня 4 шт. BMP, 7 шт. TXT и 1 шт. со своей кодировкой.
Ха, я раньше пробовал такой ерундой заниматься, делал так:

Для каждого из n файлов сначала записывал его размер с пробелами на конце, чтоб потом считавать удобно было (ex: '1234 '), т.е. скока в нем символов, а потом попорядку переписывал символы из етого файла в свой. Разкодировка аналогична.
Вот тока с большими файлами (>2 Mb) тормозит. Хотя работает отлично
Ну, принципе такой свой код меньше текста в проге займет

Добавлено @ 08:22
А, забыл совсем, мне зачем архивто надо! чтоб без запуска программы мона было и самому посмотреть что там.

Вариант №1 - засунуть все в ресурс.
Вариант №2:

Код

type  TFileNfo=packed record    fn: string[8];    size: integer;    offset: LongInt;  end;

При сохранении количество файлов известно. offset первого файла будет (SizeOf(TFileNfo)+1)*kolvo. Заполняешь структуру первого файла, прописываешь в файл. К смещению первого файла прибавляешь его размер, получаешь смещение второго. Пишешь второй и т.д. Потом делаешь структуру, где имя файла=''; Тоже запихиваешь в файл. Потом просто туда же загоняешь файлы.
В результате у тебя в начале файла будет список файлов с именами, размерами и смещением в файле. Читать файл просто: Считываешь заголовки. Находишь нужное имя. Получаешь смещение, делаешь Seek в это место, делаешь BlockRead размером файла. Все файл в памяти. Работает очень быстро, особенно, если сразу считать все заголовки в память, а не считывать каждый раз. Для файлов до 100Мб будет работать быстрее архиватора.
На винте, правда, будет занимать побольше, но инсталлящию можно также целиком в архив запихать, так что размер тут не пострадает.