Unzip SOAP response
amelnyk © (2010-05-20 15:43:00)
Всем привет!
Думал довольно стандартная ситуация, но запнулся и уже совсем
измотался в поиске...
Есть приложение, работающее по SOAP (через импортированный
wsdl). Стала задача использовать зипование для SOAP ответов.
Я добавил заголовок ко всем запросам - "Accept-Encoding:
gzip". Да, теперь получаю респонсы в зипованном виде...
Но тут стала проблемка...
Delphi при попытке распарсить зипованный ответ, выдаёт
эксепшн:
An invalid character was found in text content.
Line: 1
\x1F
Вылетает именно при вызове метода удаленного интерфейса, я
сам с этим зипованным ответом еще не успеваю ничего сделать. Как
распаковать ответ до его обработки?
Подскажите куда копать...
amelnyk (2010-05-21 17:58:00) [1]
Родил решение). Может кому еще будет полезно...
Создаю класс наследник THTTPReqResp, в котором переопределен
метод Receive:
[CODE=pas] TMyHTTPReqResp = class(THTTPReqResp)
public
procedure Receive(Context: Integer; Resp:
TStream; IsGet: Boolean);override;
end;[/CODE]
Сам метод выглядит примерно так:
////////////////////////////////////////////////////////////////////////////////
[CODE=pas]procedure TMyHTTPReqResp.Receive(Context: Integer;
Resp: TStream; IsGet: Boolean);
var
outStream : TMemoryStream;
contEncoding : string;
size : DWord;
index : DWord;
begin
inherited;
try
size := 20;
index := 0;
SetLength(contEncoding, size);
//проверяем есть ли заголовок Content-Encoding
if not HttpQueryInfo(Pointer(Context),
HTTP_QUERY_CONTENT_ENCODING, @contEncoding[1], size, index) then
Exit;
//если есть, то смотрим стоит ли там gzip
if Pos('gzip', contEncoding) = 0 then
Exit;
//если gzip, то разархивировываем и копируем в
возвращаемый стрим
Resp.Position := 0;
outStream := TMemoryStream.Create;
try
GZDecompressStream(Resp, outStream);
Resp.Position := 0;
Resp.CopyFrom(outStream, 0)
finally
outStream.Free;
end;
except
end;
end;[/CODE]
Где метод GZDecompressStream взят из либы Zlib, скачанной для
Delphi 2009 отсюда:
http://www.base2ti.com/zlib.htm
А то с родным ZLib че-то не сложилось, не хотел он
распаковывать.
Наверх 
ЧАТ |
Орешник |
|
