TIdHttp: Нулевое значение размера загружаемых данных в событии OnWorkBegin , не позволяет создать корректное отображение процесса загрузки

[TechnoMag]

В начале загрузки страницы в переменной AWorkcountMax 0.

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  // отображаем прогресс загрузки страницы в прогрессбаре
  ProgressBar1.Position := AWorkCount;
end;
 
procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
  // устанавливаем прогресс в начало при начале загрузки страницы
  ProgressBar1.Position := 0;
  ProgressBar1.Max := AWorkcountMax; // здесь почему-то 0
end;

Эта тема была разделена из темы "Не работает progress"

[arj99]

M

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

[arj99]

TechnoMag, не все интернет-сервера могут/желают сообщать размер загружаемого содержимого.
Покажите что и откуда загружаете, а также приведите больше кода: в частности код инициации загрузки.

[TechnoMag]

Вот, собственно и все, что у меня пока связано с процессом загрузки страницы.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  HTML:=IdHTTP1.Get('http://finance.i.ua/');
  ParseDUMP(StripHTMLTags(HTML));
end;

[arj99]

Сорри, совсем забыл про эту тему.
TechnoMag, если тебя это еще интресует, то твоя проблема у меня не подтверждается на D2007, Indy 10.1.5.
Немного изменил твой код для вывода в мемо чтобы увидеть конкретные значения параметров так:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  HTML := IdHTTP1.Get('http://finance.i.ua/');
  //ParseDUMP(StripHTMLTags(HTML));
end;
 
procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
    AWorkCountMax: Integer);
begin
  //ProgressBar1.Position := 0;
  //ProgressBar1.Max := AWorkcountMax;
  Memo1.Lines.Add('Work Begin :: AWorkCountMax = ' + IntToStr(AWorkCountMax));
end;
 
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
    AWorkCount: Integer);
begin
  //ProgressBar1.Position := AWorkCount;
  Memo1.Lines.Add('Working... :: AWorkCount = ' + IntToStr(AWorkCount));
end;

Вот что в итоге я увидел:

Цитата

Work Begin :: AWorkCountMax = 105316
Working... :: AWorkCount = 7914
Working... :: AWorkCount = 40682
Working... :: AWorkCount = 73450
Working... :: AWorkCount = 105316