Текущий архив: 2002.11.25;
Скачать: CL | DM;

Вниз

Помогите с ZLib!   Найти похожие ветки 

← →
Kotka ©   (2002-11-09 16:30) [0]

Есть такая библиотека для сжатия и разжатия 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-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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c