Раcсчитать координаты - Нарисовать бегунок и полосу "рисованного" прогрессбара

[Alex Cones]

Фейлю при расчете координат.

Задача:
Нарисовать бегунок и полосу "рисованного" прогрессбара:

Изображение 1: █, (размер: 3 х 3)
Изображение 2: ►. (размер: 3 х 3)

Прогресс бар выглядит так: ███████████►

Начальные координаты в основном окне: 16, 207.

Максимальное количество возможных "блоков" (сколько умещается в картинке прогрессбара) - 96.

Рисую в цикле.

Проблема в том, чтобы создать функу, которая будет принимать значения от 0 до 100 (%) и рисовать этот "прогресбар". Не выходит рассчитать координаты.

Примерно накинул:

Procedure DrawProgress(PRC : Byte);
Var
 N : Byte;
 M : Real;
Begin
   M := 100/96;
   For N:=0 to Round(PRC*M) do
   FRMMain.IMGMain.Canvas.Draw(16+3*Round(M*PRC*100/96),207,BTM[4]);
   FRMMain.IMGMain.Canvas.Draw(16+3*Round(M*(PRC-1)*100/96),207,BTM[3]);
End;

Выводит откровенный бред.

Прошу помощи.


P.S.
2admin:

Фильтрация по названию (помогите) темы легко взламывается.

[Greblin]

О_о, ну и формула
96 блоков - 100%
1% - 0.96 блока
Логично начинать вывод не с 0%, а с 1

For N:=1 to Round(PRC*0.96) do
   FRMMain.IMGMain.Canvas.Draw(16+3*(N-1),207,BTM[4]);

[Alex Cones]

Либо ошибка опять в формуле, либо в том, как я её использую:

Procedure DrawProgress(PRC : Byte);
Var
 N : Byte;
 M : Real;
Begin
 For N:=1 to Round(PRC*0.96) do
   FRMMain.IMGMain.Canvas.Draw(16+3*(N-1),207,BTM[4]);
End;

procedure TFRMMain.IDHMainWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
 Progresses := AWorkCount;
 DrawProgress(Round(Progresses*100/88628));
end;

procedure TFRMMain.IMGMainDblClick(Sender: TObject);
begin
try
  if IDHMain.Get('http://www.programmersforum.ru/showthread.php?t=94500') <> '' then
      ShowMessage('Инет есть');
  except
    ShowMessage('Инета нет или сервер недоступен');
  end;
end;

В результате не вижу прогресса реалтайм, а вижу только "недоехавший" прогрессбар после загрузки:


Где я дурак?

[Greblin]

 DrawProgress(Round(Progresses*100/88628));

не знаю, что у тебя тут такое, но передавать надо просто проценты

DrawProgress(50);

[Alex Cones]

Хм... Вот когда передаю 100 то рисуется правильно. Тогда как передать процентное содержание от загруженного файла?

 DrawProgress(Round(Progresses*100/88628));

88628 - размер запрашиваемой страницы в байтах.

[Greblin]

А Progresses это что такое?
Проверь перед вызовом процедуры рисования, чему равно Round(Progresses*100/88628), мало ли что он там наокруглял. И кстати, лучше всё-таки размер каждый раз заново узнавать, а то мало ли кто что в той теме нафлудит

[Alex Cones]

лучше всё-таки размер каждый раз заново узнавать

А разве его можно узнать, не скачивая файл?

А Progresses это что такое?

Глобальная переменная (глобальная - чтобы отрисовывать при запуске и проч.)

Progresses : Integer = 0;

Просмотрел лог роунда и понял, в чем проблема. Добавил следующее:

procedure TFRMMain.IDHMainWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  Progresses := 88628;
 DrawProgress(Round(Progresses*100/88628));
 Lis.Add(IntToStr(Round(Progresses*100/88628)));
end;

И прогресс бар заполнился полностью после скачивания. В логе было следующее: 3, 39, 69.

Так как узнать размер файла ДО скачивания?

[raxp]

var HTTP : TidHTTP;
begin
 HTTP := TIdHTTP.Create(nil);

 HTTP.head('http://s53.radikal.ru/i141/1004/58/8ad9d9a74dc4.png');
 caption:= inttostr(HTTP.Response.ContentLength);
 HTTP.Free;

или пропарсить на сокетах

[Alex Cones]

HTTP := TIdHTTP.Create(nil);
HTTP.head('http://www.programmersforum.ru/showthread.php?t=94500');
IntLen := HTTP.Response.ContentLength;

IntLen = -1 !!! О_о?

[Greblin]

Я не силён в Indy, но вроде бы размер файла можно узнать в событии WorkBegin, там передаётся параметр AWorkCountMax, вроде это он и есть, поправьте если не прав