| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Распаковка Zlib [D2005, XP]
Std © (2006-05-04 01:56:00)Доброй ночи!
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 15:19:00) [1]Std © (04.05.06 12:22) [2]
вот с этим DecompressBuf я как раз и не разобрался,
ну покажи код, как пытался распаковать..
Eraser (2006-05-04 14:09:00) [2]
> Std © (04.05.06 01:56)
В ZLib вроде есть классы, взаимодейсвтующие с потоками данных, и облегчающие работу со сжатием и распоковкой.
Сергей М. (2006-05-04 13:28:00) [3]
> выскакиевают какие то ошибки
На языке папуасов ?
Std (2006-05-04 12:22:00) [4]вот с этим DecompressBuf я как раз и не разобрался, у меня или вообще ниче не распаковывается или во время распаковки выскакиевают какие то ошибки
jack128 (2006-05-04 04:05:00) [5]А в чем проблема? Вроде есть процедурка DecompressBuf, все вроде должно вполне нормально работать..
| |
