Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.21;
Скачать: 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 вся ветка

Текущий архив: 2006.05.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1146338307
Julia
2006-04-29 23:18
2006.05.21
Передача информации между формами


4-1141029839
ionn
2006-02-27 11:43
2006.05.21
Как запретить сторонним программам раскрывать свои окна


2-1146937202
Неуч
2006-05-06 21:40
2006.05.21
Типы данных


2-1146315859
Volf_555
2006-04-29 17:04
2006.05.21
Как в строке заменить один слєш на 2 слєша?


15-1145976715
x.pro
2006-04-25 18:51
2006.05.21
У кого какой антивирус стоит? и что лучше выбрать?