Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
ВнизПомогите с ZLib! Найти похожие ветки
← →
Kotka (2002-11-09 16:30) [0]Есть такая библиотека для сжатия и разжатия Zlib. Пишу такой код:
var
И в последней строчке выскакивает Exception с надписью Error! Что я делаю не так???
Form1: TForm1;
buf,b:array [0..65535] of byte;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var i,j :integer;
pbuf,pb:pointer;
begin
j:=0;
for i:=0 to 1200 do
buf[i]:=random(32);
pbuf:=@buf;
pb:=@b;
compressbuf(pbuf,1200,pb,i);
sleep(1000);
decompressbuf(pb,i,0,pbuf,j);
end;
Или подскажите другой компонент запаковщик/распаковщик архивиов В ПАМЯТИ.
← →
Reindeer Moss Eater (2002-11-09 17:33) [1]И что такое у нас decompressbuf ?
← →
Kotka (2002-11-10 10:19) [2]
compressbuf
иdecompressbuf
- процедуры ентой библиотеки
← →
Kotka (2002-11-11 19:53) [3]Что , никто не знает???
← →
Reindeer Moss Eater (2002-11-11 19:57) [4]Для декомпрессии нужно знать размер исходного буфера или потока.
Указывать 0 нельзя.
← →
Kotka (2002-11-13 17:22) [5]Я уже это открыл, и в данном примере тогда работает, но в программе, где у меня сжатые данные передаются через сеть, опять ошибка!!! Все то же самое!!! Даже размер исходного буфера есть! Даные самолично проверял на идентичность.
← →
Reindeer Moss Eater (2002-11-14 09:20) [6]Значит неправильно передаешь данные.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c