В synaptic просто получал в AnsiString пожатую страницу, проверял заголовок "Content-Encoding: gzip", сигнатуру #$1F#$8B#$08#$00
и распаковывал ф-ей GZDecompressStr() из библиотеки http://www.base2ti.com/?id=delphi.zlib
| Код |
function IsGZipData(const AData: AnsiString): Boolean;
begin
// if Copy(buf,1,4)=#$1F#$8B#$08#$00 then
Result := (Length(AData)>4) and (PInteger(AData)^=$00088B1F);
end;
|
В случае ошибки GZDecompressStr() вызывает исключение, бывает сервера шлют битый gzip, тогда делал еще один запрос без заголовка "Accept-Encoding: gzip", соответственно получал несжатую страницу.
PS
в библиотеке есть ошибка - если размер упакованных данных ==ноль - получаю AV, т.к. нет проверки переменной size
написал автору письмо, но пока без изменений
вот этот кусочек
| Код |
procedure GZDecompressString(var result: AnsiString; const s: RawByteString;
var fileName, comment: AnsiString; var dateTime: TDateTime);
var
index: Integer;
crc : Longint;
size : Integer;
begin
result := '';
GZInitializeDecompressString(s, fileName, comment, dateTime, index);
size := Length(s) - SizeOf(TGZTrailer) - index + 1;
ZDecompressString2(result, Copy(s, index, size), GZ_ZLIB_WINDOWBITS);
size := Length(result);
if size>0 then // этой проверки не было
begin
crc := ZCrc32(0, result[1], size);
GZFinalizeDecompressString(s, crc, size);
end;
end;
|
|
