Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Архивация

тт © (2004-11-13 17:10:00)
Не могли-бы мне помочь?
Я не знаю как работать с модулем 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.

Cobalt (2004-11-13 22:15:00) [1]
Для rar есть Unrar.dll, бесплатный, насколько я знаю.

тт (2004-11-13 19:50:00) [2]
>uny © (13.11.04 17:43) [2]

Ok!

тт (2004-11-13 19:49:00) [3]
А вообще существуют модули для работы с rar/zip архивами?

uny (2004-11-13 17:43:00) [4]
про 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 17:22:00) [5]
Где можно скачать модули для работы с rar/zip архивами?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »