Распаковка респонса! Delhpi

[KORT]

Доброе время суток! Такой вопрос я посылаю запрос на сервер, о выдает краказябру! Снифером смотрю: кодировка gzip. В проект добавляю модуль ZLibEх и создаю функцию:

function DecompressString(const aString: string): string;
var
  lStr: TStringStream;
  lDS: TzDecompressionStream;
begin
  lStr:=TStringStream.Create(aString);
  try
    lDS:=TzDecompressionStream.Create(lStr);
    try
      Application.ProcessMessages;
      SetLength(Result, lDS.Size);
      lDS.Read(Pointer(Result)^, lDS.Size);
    finally
      lDS.Free;
    end;
  finally
    lStr.Free;
  end;
end;

И соответственно в обработчике, вызываю:

Memo3.Text:=DecompressString(IdHTTP1.Get('URL страницы'))

Все работает отлично, только долго!!! Респонсе упакованный весит 50кб, распаковывается почти минуту... Может кто посоветует вариант быстрее!

[ZuBy]

TIdCompressorZLib (вкладка Indy Misc) прикрепи к TIdHTTP

[KORT]

Сообщение от ZuBy

TIdCompressorZLib (вкладка Indy Misc) прикрепи к TIdHTTP

что-то не могу найти его в дельфях7

[Человек_Борща]

ZLib и GZip этот как бы два разных алгоритма сжатия.

Если строка на вход не в Base64, высока вероятность потерять часть данных где-то по пути.