Трабл с декопрессором gzip

[bulldog5293]

накидал код для распаковки gzip ответов сайта, но чёт так не фурычит

var
  S:TStringStream;
  O:string;
  FH: TIdHTTPEX;
  frx: TfrxGZipCompressor;//компанент delphi xe 2    
begin
    FH := TIdHTTPEX.Create(nil);
    frx := TfrxGZipCompressor.Create(nil);
    S := TStringStream.Create;
begin
        FH.getex('http://' + FUrl + '/', S);
    O:= Trim(FH.Response.ContentEncoding);
        If (Pos('gzip', O) > 0) then
        begin
         try
          frx.Decompress(S.DataString, S.DataString);
        finally
        end;
        end;
        end;

Пишит ошибка E2010 Incompatible types: 'TStream' and 'string'

[Mifody]

Ну и? Текст ошибки ничего Вам не говорит? Или совсем уж буковки страшные?
Декомпресор ожидает TStream а Вы ему суете String/

[bulldog5293]

Ну если у меня изначально страница закачивается в TStringStream, как я ему передам объект на файл или даже банально передам S в TStream, в сети нечего не нашёл об этом

[Пепел Феникса]

var
  S,S2:TStringStream;
  O:string;
  FH: TIdHTTPEX;
  frx: TfrxGZipCompressor;//компанент delphi xe 2    
begin
 FH := TIdHTTPEX.Create(nil);
 frx := TfrxGZipCompressor.Create(nil);
 S := TStringStream.Create;
 S2:=TStringStream.Create;
 FH.getex('http://' + FUrl + '/', S);
 O:= Trim(FH.Response.ContentEncoding);
 If (Pos('gzip', O) > 0) 
  then
   begin
    try
     frx.Decompress(S, S2);
    finally

    end;
   end;
end;

и в чем проблема то?

[bulldog5293]

с твоим кодом выдаёт E2034 Too many actual parameters

[Mifody]

bulldog5293 - хэлп класса пробовали читать?
Последняя ошибка "E2034 Слишком много фактических параметров" (полученно через 2 сек после прочтения поста с помощью гугляпереводчика)

[bulldog5293]

Так ошибку я эту и так знаю, я указал т.к. не понимаю как в этой ситуации поступить, что бы код заработал
P.S. почему то так ошибку не выдаёт, да и в принцепе не думаю что работает, и эфекта нет, даже при трассирование

var
  S:TStringStream;
  O:string;
  FH: TIdHTTPEX;
  frx: TfrxGZipCompressor;//компанент delphi xe 2    
begin
 FH := TIdHTTPEX.Create(nil);
 frx := TfrxGZipCompressor.Create(nil);
 S := TStringStream.Create;
 FH.getex('http://' + FUrl + '/', S);
 O:= Trim(FH.Response.ContentEncoding);
 If (Pos('gzip', O) > 0) 
  then
   begin
    try
     frx.Decompress(S);
    finally

    end;
   end;
end;

[Пепел Феникса]

у меня нет DXE2, потому выложите прототип функции полный.

[bulldog5293]

с большой бы радостью выложил бы, но не знаю где его достать, нашёл то си файлы, а паса нет

[Пепел Феникса]

а из подсказки не переписать?