ProgressBar при работе нескольких функций

[goth_69]

У меня при нажатии одной кнопки производится последовательное выполнение нескольких функций:

захват кода содержимого html сайта;
выделение ссылок из захваченного html-кода;
создание нового html-файла с этими ссылками;
загрузка этого html-файла на сервер;
и открытие данного файла в броузере;

Как сделать, чтобы, в течении всего времени выполнения этих функций
отображалась бегущая строка ProgressBar ?

[flexterful]

Думаю - делить ProgressBar на 4 сектора, и заполнять последовательно.

  ...
  // инициализируем
 ProgressBar.Min := 0;
 ProgressBar.Max := 400;
  ...
  // Для каждой функции перещитать прогресс в процентах
 fProgress := Round((Index / Count) * 100); // локальная переменная функции
  ...
 ProgressBar.Position := fProgress; // для первой функции
  ...
 ProgressBar.Position := 100 + fProgress; // для второй
  ...
 ProgressBar.Position := 200 + fProgress; // для третей
  ...
 и т.д.

[goth_69]

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

Думаю - делить ProgressBar на 4 сектора, и заполнять последовательно.

  ...
  // инициализируем
 ProgressBar.Min := 0;
 ProgressBar.Max := 400;
  ...
  // Для каждой функции перещитать прогресс в процентах
 fProgress := Round((Index / Count) * 100); // локальная переменная функции
  ...
 ProgressBar.Position := fProgress; // для первой функции
  ...
 ProgressBar.Position := 100 + fProgress; // для второй
  ...
 ProgressBar.Position := 200 + fProgress; // для третей
  ...
 и т.д.

Я так понял, что Index и Count - это переменные цикла, а fProgress - это
как бы время выполнения функции в процентах.
А как мне тогда вычислить fProgress, например, для функции загрузки
файла на сервер, в данной функции нет вообще никакого цикла, просто
файл грузится на сервер?

Подскажите пожайлуста.

[flexterful]

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

Я так понял, что Index и Count - это переменные цикла, а fProgress - это
как бы время выполнения функции в процентах.

Так точно

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

А как мне тогда вычислить fProgress, например, для функции загрузки
файла на сервер, в данной функции нет вообще никакого цикла, просто
файл грузится на сервер?

Подскажите пожайлуста.

С етим не работал, может Вы используете упрощённую функцию загрузки, попробуйте полазить по самой функции, может она вызывает другую, которая возвращает прогресс, или в ней самой есть цикл - тогда её просто дополнить - чтобы возвращала

[goth_69]

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

Так точно



С етим не работал, может Вы используете упрощённую функцию загрузки, попробуйте полазить по самой функции, может она вызывает другую, которая возвращает прогресс, или в ней самой есть цикл - тогда её просто дополнить - чтобы возвращала

Ага, понял, я тоже об этом думал, еще можно как то с таймером придумать, чтобы отсчитывало время выполнения функции и затем в соотвестствии с этим временем увеличивать значение
ProgressBar.Position, но пока не знаю как это сделать.

Но все равно вы мне очень помогли, спасибо большое !!!

[flexterful]

А сколько времени занимает работа функции загрузки?
Если до секунды, то вполне логично :

fProgress := 0; // после чего засылаем данные в ProgressBar
 ...
<вызов функции>
 ...
fProgress := 100; // после чего засылаем данные в ProgressBar

[goth_69]

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

А сколько времени занимает работа функции загрузки?
Если до секунды, то вполне логично :

fProgress := 0; // после чего засылаем данные в ProgressBar
 ...
<вызов функции>
 ...
fProgress := 100; // после чего засылаем данные в ProgressBar

Нет не до секунды, намного больше, где-то около 20-30 секунд.