Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
1-82720
vidiv
2002-11-14 05:10
2002.11.25
Надо срочно проверить...


1-82816
m-Sergo
2002-11-14 00:06
2002.11.25
изменить Window State главной формы


4-83075
chsv
2002-10-14 20:06
2002.11.25
?


1-82723
Maksss
2002-11-14 22:32
2002.11.25
Нужен исходняк JPEG.PAS из Delphi6 .


1-82792
Мефодий
2002-11-13 16:00
2002.11.25
Чем в Delphi можно заменить макро оператор & из Clipper а