Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Вниз

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

← →
тт   (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]

>uny ©   (13.11.04 17:43) [2]

Ok!

---

← →
Cobalt ©   (2004-11-13 22:15) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c