| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с ZLib! [D6, Win95/98]

Kotka ©   (2002-11-09 16:30:00) 

Есть такая библиотека для сжатия и разжатия Zlib. Пишу такой код:

var
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;И в последней строчке выскакивает Exception с надписью Error! Что я делаю не так???
Или подскажите другой компонент запаковщик/распаковщик архивиов В ПАМЯТИ.

---

Reindeer Moss Eater   (2002-11-14 09:20:00) [1]

Значит неправильно передаешь данные.

---

Kotka   (2002-11-13 17:22:00) [2]

Я уже это открыл, и в данном примере тогда работает, но в программе, где у меня сжатые данные передаются через сеть, опять ошибка!!! Все то же самое!!! Даже размер исходного буфера есть! Даные самолично проверял на идентичность.

---

Reindeer Moss Eater   (2002-11-11 19:57:00) [3]

Для декомпрессии нужно знать размер исходного буфера или потока.
Указывать 0 нельзя.

---

Kotka   (2002-11-11 19:53:00) [4]

Что , никто не знает???

---

Kotka   (2002-11-10 10:19:00) [5]

compressbufи decompressbuf- процедуры ентой библиотеки

---

Reindeer Moss Eater   (2002-11-09 17:33:00) [6]

И что такое у нас decompressbuf ?

---

Наверх