Архивация

← →
тт (2004-11-13 17:10) [0]

Не могли-бы мне помочь?
Я не знаю как работать с модулем Zlib.
Что нужно написать вместо знаков вопроса?

unit Compress_Routines;
interface
procedure CompressFile (SourceFileName, TargetFileName : String);
procedure DecompressFile (SourceFileName, TargetFileName : String);

implementation
uses
Zlib

procedure CompressFile (SourceFileName, TargetFileName : String);
begin
?
end;

procedure DecompressFile (SourceFileName, TargetFileName : String);
begin
?
end;

end.

← →
тт (2004-11-13 17:22) [1]

Где можно скачать модули для работы с rar/zip архивами?

← →
uny © (2004-11-13 17:43) [2]

про zlib
можно всё в памяти делать.
b1 = входной буфер,
k11 = размер входного буфера
b2 = выходной буфер(запишется когда сожмёт)
k12 = размер выходного буфера(запишется когда сожмёт)

procedure myzip(b1:pchar; kl1:integer; var b2:pchar; var kl2:integer);
begin
zlib.CompressBuf(pointer(b1),kl1,pointer(b2),kl2);
end;

а тут наоборот
procedure myunzip(b1:pchar; kl1:integer; var b2:pchar; var kl2:integer);
begin
zlib.deCompressBuf(pointer(b1),kl1,0,pointer(b2),kl2);
end;

← →
тт (2004-11-13 19:49) [3]

А вообще существуют модули для работы с rar/zip архивами?

← →
тт (2004-11-13 19:50) [4]

Для rar есть Unrar.dll, бесплатный, насколько я знаю.

Архивация Найти похожие ветки