Прогрессбар и поток

[Aqel]

Ндаа.. беда, беда, может в XE есть какой то дополнительный параметр для этого?

[Black Fregat]

Ну может он такой умный, что gzip на лету распаковал?

[Aliens_wolfs]

Ну может он такой умный, что gzip на лету распаковал

без этого не дает строку Content-Length, в первом примере без него, смотрите внимательнее примеры что выше, например пост #2

Вся фишка заключается в получении размера ресурса в IdHttp в XE не дает, а в D7 все нормально, gzip это для теста в получении размера ресурса.

Все заработал progressBar с gzip, в ProgressBar1.Max := AWorkcountMax; выдает нужный размер

procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  ProgressBar1.Position := AWorkCount;
end;

procedure TForm1.IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Max := AWorkcountMax;
end;

procedure TForm1.IdHTTPWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Position := 0;
end;


//Ваш код
Function GEt_(Url:String): String;                    // Загрузка WEB в память
var
  mStream: TMemoryStream;
  IdHTTP1: TIdHTTP;
  Lst: TStrings;
  IdCompressorZLib: TIdCompressorZLib;
begin
  Result:= '';
  mStream:= TStringStream.Create;
  Lst:= TStringList.Create;
  try
    IdHTTP1:= TIdHTTP.Create(nil);
    IdCompressorZLib:= TIdCompressorZLib.Create(nil);
  { тут следует "настроить" параметры idHTTP }
    IdHTTP1.Request.Host:='mods.curse.com';
    IdHTTP1.HandleRedirects:= True;
    IdHTTP1.Request.Connection:= 'keep-alive';
    IdHTTP1.Request.Accept:= 'text/html';//,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    IdHTTP1.Request.AcceptEncoding:= 'gzip';
    IdHTTP1.Compressor:= IdCompressorZLib;
    IdHTTP1.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062.102 Safari/537.36';
    IdHTTP1.Request.ContentType:= 'application/x-www-form-urlencoded';
    IdHTTP1.Request.AcceptLanguage:= 'ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';

//Указываем функции для IdHTTP1 в которых будет работать прогрессбар
    IdHTTP1.OnWork:= Form1.IdHTTPWork;
    IdHTTP1.OnWorkBegin:= Form1.IdHTTPWorkBegin;
    IdHTTP1.OnWorkEnd:= Form1.IdHTTPWorkEnd;
    try
      IdHTTP1.Get(URL, mStream);
      mStream.Position:= 0;
      Lst.LoadFromStream(mStream);
      Result:= Lst.Text;
    finally
      IdHTTP1.Free;
      IdCompressorZLib.Free;
    end;
  finally
    mStream.Free;
    Lst.Free;
  end;
end;

[Aqel]

СПАСИБО - ВСЁ ЗАРАБОТАЛО!