Zip архив

[urels]

необходимо создать zip архив (и запихнуть в него несколько файлов). только не используя компонентов. чисто на Winapi...... как это сделать? подскажите плз..

[N!ckeL]

только не используя компонентов

Тогда придётся учить алгоритм сжатия файлов...

чисто на Winapi

Помойму WinZip не использует WinApi для сжатия, или я ошибаюсь?

[urels]

Помойму WinZip не использует WinApi для сжатия, или я ошибаюсь?

ну винда ведь умеет сжимать файлы в zip вот я подумал мож есть какие то функции..

[Hollander]

В Delphi есть встроенная функция Zlib юзай её

[urels]

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

В Delphi есть встроенная функция Zlib юзай её

а можно пример? именно того, что я прошу...

[BOBAH13]

функция Zlib

Ерунда какая то.... там просто функции зжатия данных и их распаковки... Zip - формат файла, в нем по формату все устроено... это разные вещи

[urels]

ну че никто не знает? =(

[Спартак]

все легко и просто. Недавно написал модуль для работы с Rar-ом из дельфи:

unit TRarUnit;

interface
type
  TRar = class (TObject)
  public
    function Rar(files : array of string; fcount : byte): Byte;
    function UnRar: Byte;
  end;
  
implementation
uses windows, SysUtils;
{
************************************* TRar *************************************
}
function TRar.Rar(files : array of string; fcount : byte): Byte;
var
  filestr, rarstr: string;
  i, res: Byte;
  
  {
    Выполняет архивирование файлов
    files - массив, содержащий список файлов для архивации
    fcount - количество файлов
    Возвращает:
    0 - операция успешна
    1 - rar.exe не найден
    2 - не все файлы для архивации
  }
  
begin
  filestr := '';
  res := 0;
  for i := 0 to fcount - 1 do
  begin
    filestr := filestr + files[i] + ' ';
    if not(FileExists(files[i])) then
    begin
      res := 2;
      break;
    end;
  end;
  if res = 0 then
  begin
    rarstr := 'rar.exe a a.rar ' + filestr;
    if winexec(PChar(rarstr), SW_SHOWNORMAL) = 2 then res := 1
    else
    begin
      sleep(1000);
      DeleteFile('1.txt');
      DeleteFile('2.txt');
    end;
  end;
  Rar := res;
end;

function TRar.UnRar: Byte;
var
  res: Byte;
  
  {
    Выполняет разорхивирование файлов
    Возвращает:
    0 - все нормально
    1 - не найден unrar.exe
    2 - не найден архив
  }
  
begin
  res := 0;
  if not(FileExists('Unrar.exe')) then res := 1;
  if not(FileExists('b.rar')) then res := 2;
  if res = 0 then WinExec('Unrar.exe e b.rar',SW_SHOWNORMAL);
  UnRar := res;
end;

end.

с зипами аналогично!
Одно НО!! прога работает с дос-овским раром, и этот рар должен находиться в одной директории с ехе-шником твоей программы