Скачать: CL | DM;

Распаковка Zlib   Найти похожие ветки 

← →
Std ©   (2006-05-04 01:56) [0]

Доброй ночи!


var
fn:string;
f : file;
size_in, size_out : integer;
buf_in, buf_out : pointer;
begin
assignfile(f, fn);
reset(f, 1);
size_in := filesize(f);
getmem(buf_in, size_in);
blockread(f, buf_in^, size_in);
closefile(f);
compressbuf(buf_in, size_in, buf_out, size_out);
freemem (buf_in);
assignfile(f, fn);
rewrite(f, 1);
blockwrite(f, buf_out^, size_out);
closefile(f);
freemem(buf_out);

вот так вот я сжимаю файл
а вот распаковать файл чтото не получается. подскажите пж ктото кусочком кода как распаковать файл.

З.Ы. и если можно то обясните как запаковать\распаковать несколько файлов(что бы был один архив а в нем несколько файлов)

---

← →
jack128 ©   (2006-05-04 04:05) [1]

А в чем проблема? Вроде есть процедурка DecompressBuf, все вроде должно вполне нормально работать..

---

← →
Std ©   (2006-05-04 12:22) [2]

вот с этим DecompressBuf я как раз и не разобрался, у меня или вообще ниче не распаковывается или во время распаковки выскакиевают какие то ошибки

---

← →
Сергей М. ©   (2006-05-04 13:28) [3]

> выскакиевают какие то ошибки


На языке папуасов ?

---

← →
Eraser ©   (2006-05-04 14:09) [4]

> Std ©   (04.05.06 01:56)

В ZLib вроде есть классы, взаимодейсвтующие с потоками данных, и облегчающие работу со сжатием и распоковкой.

---

← →
jack128 ©   (2006-05-04 15:19) [5]

Std ©   (04.05.06 12:22) [2]
вот с этим DecompressBuf я как раз и не разобрался,
ну покажи код, как пытался распаковать..

---

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

Скачать: CL | DM;



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