Форум: "Начинающим";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
Вниз
Распаковка 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c
