Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

gzip и zlib

Morgoth © (2005-09-12 08:55:00)
Добрый день!
Я обращаюсь из своей программы к скрипту на php, он возвращает мне строку, сжатую с помощью gzip, я пытаюсь ее разжать с помощью функций ZLib, но постоянно получаю Data Error.
Может кто сталкивался с такой проблемой и может что-нибудь подсказать?

SergP. (2005-09-16 07:58:00) [1]

> Morgoth (14.09.05 13:25) [6]
> серверная часть моя, я тоже пробовал gzcompress(), но ошибка
> оставалась.
> а DecompressBuf нету, версия наверное старая, попробую новую
> поискать или исходники Indy посмотреть
> всем спасибо за подсказку

Ну у меня zlib тот, который шел с d6... так там есть DecompressBuf

И еще... А ты на всякий случай сохрани получаемые данные в файл а потом посмотри их... Может там что-то не то...

Morgoth (2005-09-14 13:25:00) [2]
серверная часть моя, я тоже пробовал gzcompress(), но ошибка оставалась.
а DecompressBuf нету, версия наверное старая, попробую новую поискать или исходники Indy посмотреть
всем спасибо за подсказку

Slym (2005-09-13 10:00:00) [3]
IdCompressorZLibEx

Slym (2005-09-13 09:57:00) [4]
Смотри исходники Indy там есть такое

SergP (2005-09-13 09:13:00) [5]
Разумеется что это применимо только если серверная часть твоя.

SergP (2005-09-13 08:52:00) [6]

> Morgoth (12.09.05 08:55)
> Добрый день!
> Я обращаюсь из своей программы к скрипту на php, он возвращает
> мне строку, сжатую с помощью gzip, я пытаюсь ее разжать
> с помощью функций ZLib, но постоянно получаю Data Error.
> Может кто сталкивался с такой проблемой и может что-нибудь
> подсказать?

Я сталкивался... но обошел проблему таким образом:

Я на сервере сжимаю не gzencode() а функцией gzcompress()

тогда в клиенте разжимаю так:

function Unpack(inpStr:string):string;
var
OutBuf: Pointer;
OutBytes: Integer;
outstream:TStringStream;
begin
OutStream:=TStringStream.create('');
OutBuf := nil;
try
try
DecompressBuf(pointer(InpStr), length(InpStr), 0, OutBuf, OutBytes);
outStream.Write(OutBuf^, OutBytes);
finally
if OutBuf <> nil then FreeMem(OutBuf);
end;
outStream.Position := 0;
Result:=outstream.DataString;
finally
OutStream.Free;
end;
end;

programania (2005-09-13 04:30:00) [7]
http://programania.com/gzio.zip 99kb

Наверх

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