Склеивание и сжатие файлов

[RageGod]

Добрый день. Столкнулся с проблемой.
Вообщем, есть .exe приложение, в ресурсы которого надо запихнуть 4 файла. Сначала думал сделать zip архив, добавить в ресурсы, вытаскивать из ресурсов и извлекать файлы из архива. Но т.к не нашел нормального компонента для Delphi 7 (с .dll файлами не предлагать) (а так же не интересует те, которые прибавляют по 50+ кб к файлу) для разархивирования, решил просто все 4 файла скрепить и ужать. Либо хотя бы ужать 1 файл. Этот файл не исполняемый, а значит было бы шикарный вариант ужать файл (чтобы на 50 % хотя бы ужался), добавить в ресурсы, извлечь из ресурсов, расжать обратно. Какой алгоритм посоветуете и вообще, что можете посоветовать?

Мне ну нужно делать zip архив, мне только распаковать хватит.
Копал в сторону LZ* функций (http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx), но не нашел метода распаковки.

Помогите.

[FaTaL]

А если просто сначала всё запихать в ресурсы, а потом сжать каким нибудь упаковщиком типа AsPack, PECompact и т.п.?

[Прик]

Здесь можно взять упаковщик/распаковщик BZip2 для Дельфи, работающий без dll.
Модуль, не компонент, т.е установки не требуется.
Автор Edison Mera, взято с http://www.torry.net. Лицензия FWS (бесплатно).
Проверено, работает.

P.S. ссылка действительна до 01.06.2013

[Человек_Борща]

ZLibEx не плохо жмет.
FWZip от http://rouse.drkb.ru/ тоже хороший.
madZip - тоже вещь.

Обоим DLL'ки вообще не нужны.

[fucil]

да да,FWZip поюзай http://rouse.drkb.ru/components.php#fwzip сам им пользуюсь очень хорош !

[RageGod]

Сообщение от fucil

да да,FWZip поюзай http://rouse.drkb.ru/components.php#fwzip сам им пользуюсь очень хорош !

Я решил не юзать никакие модули и компоненты.
Сделал распаковку zip файла через VBS скрипт..

[alextrof94]

А не проще стандартными средствами delphi это сделать, кстати? (от embracadero)
Запаковать вручную, просто указав пути к файлам, само все запакует. А распаковка через Tmemorystream. Причем не такая сложная... И зипы не понадобятся.

[RageGod]

Сообщение от alextrof94

А не проще стандартными средствами delphi это сделать, кстати? (от embracadero)
Запаковать вручную, просто указав пути к файлам, само все запакует. А распаковка через Tmemorystream. Причем не такая сложная... И зипы не понадобятся.

Интересно и как?
Я использую Delphi 7.

[Stilet]

Я использую Delphi 7.

Даже в нем можно использовать стандартную виндовскую ZLib.

function compress(dest: pointer; destLen: longword; source: pointer; sourceLen: longword): longint; cdecl; external 'zlib.dll' name 'compress';
...
var f:TFileStream; a,b:Array of byte;dLen,sLen:DWord;
begin
 f:=TFileStream.Create(Имя файла,fmOpenRead);
  dLen:=f.size+(f.size div 120);
  sLen:=f.size;
  SetLength(a,sLen);
  SetLength(b,dLen);
  f.read(a[0],f.Size);
  compress(@b[0],@dLen,@a[0],sLen);
 f.free;
 f:=TFileStream.Create(Имя упакованного файла,fmCreate);
  f.write(b[0],dLen);
 f.free;
end;

Это просто пример сжатия одного файла (писал с потолка, не проверял, но на основе своих проектов). Для пакетного сжатия его нужно чуть-чуть преобразовать.