Главная страница
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.044 c
3-1143485761
beglec
2006-03-27 22:56
2006.05.21
Как узнать сколько индексов у таблицы? Paradox.


3-1143272861
Serg1981
2006-03-25 10:47
2006.05.21
Имя поля в качестве параметра


4-1140673293
delphi-oracle
2006-02-23 08:41
2006.05.21
Как получить строку SendMessage


2-1146932864
дямак
2006-05-06 20:27
2006.05.21
ламерский вопросик


2-1146469288
Golik
2006-05-01 11:41
2006.05.21
Как присвоить значения полю в Таблице ?