ProgressBar+WindowsAPI

Здравствуйте, товарищи эксперты!

Помогите, пожалуйста, разобраться с проблемой.

У меня есть поток, который выполняет некоторое действие, прогресс его выполнения должен отображаться на главной форме в ProgressBar'e. Требование - чтобы поток не прерывался на отрисовку прогрессбара, т.е. чтобы он посылал сообщение и продолжал работать дальше, не интересуясь результатами выполнения процедуры отрисовки.

Первоначально была написана колбек функция, описанная на главной форме

при создании потока она присваивалась проперти потока
где
Также была описана процедура в потоке:

Как я поняла, метод Synchronize прерывает выполнение потока для отрисовки, и при количестве вызовов по несколько тысяч его тормозит.

Я нашла, как заставить прогресс бар двигаться через Windows API:

где ProgressHandle - ProgressBar1.Handle

Как написано в хелпе (с Windows API я не знакома совсем) - функция PostMessage помещает (вставляет в очередь) сообщение в очередь сообщений, связанную с потоком, который создал заданное окно и возвращает значение без ожидания потока, который обрабатывает сообщение.

Но вот что можно использовать вместо Synchronize, и вообще как правильно все это соединить, чтобы не возникало задержки, я не знаю. Помогите, вразумите!

0

Сообщение от Girl и при количестве вызовов по несколько тысяч его тормозит.

А Вам реально нужно обновлять ProgressBar с такой частотой? Например, обновляйте, каждый раз когда прогресс изменился на величину N.

Сообщение от Girl Требование - чтобы поток не прерывался на отрисовку прогрессбара

Можно сделать так:
1 процедура UpdateProgress() обновляет переменные maxProgress и position, объявленные в TMainForm;
2 на главную форму кидаем таймер, который будет аптейтить прогрессбар с каким-то интервалом, беря значения из переменных maxProgress и position;
3 когда прогресс отображать не нужно - таймер глушим и т.д.

Сообщение от Girl Delphi 1 2 3 4 5 6 7 8 9 procedure TThread.OnProgress(CurrentValue, MaxValue: integer;   Text: string); begin     if not terminated then       Synchronize(procedure                begin                  ProgressEvent(CurrentValue, MaxValue,Text)                end); end;

Не кашерно имхо:
1 не плохо бы проверять Assigned(ProgressEvent) перед ее вызовом;
2 в конкретном случае синхронизация не нужна.

0

Это конечно извращение, но можно сделать так:
Процедура Progress будет запускаться каждый раз при отправке сообщения

0

Спасибо за советы!

В потоке писать про MainForm - не вариант, потому что он ничего не должен знать про интерфейс и тем более зависеть от него.

Про Assigned я согласна, может оно и было, но после моих издевательств над всеми этими функции, потерялось

А вот про Synchronize не могу с Вами согласиться, мы ведь обновляем данные в основном потоке. Можете объяснить, почему не нужна синхронизация?

Насчет тысяч вызовов - может и нет, но проблема-то все равно остается: поток прерывается на отрисовку, а не должен =) Просто хочется узнать, есть ли какое-нибудь красивое решение этой задачи.

p.s. Таймеры жутко не люблю..

0

Сообщение от Girl Таймеры жутко не люблю..

Ну Вам не угодишь... Имхо, элегантнее чем решение с таймером мы не найдем. Например, в программе AVZ Олега Зайцева везде используется подход с таймером для отображения прогресса.

Сообщение от Girl почему не нужна синхронизация?

Наверное, я просто погорячился: без знания внутренностей вашей программы точно сказать это нельзя; даже если кода обращения к изменяемым пропертям нету в других потоках на данный момент, то ни что не мешает ему появиться в будущем. Так что тут я с Вами соглашусь, что она нужна. Плюсую.

0

Можно поступить так. В классе, который представляет поток, можно завести целочисленное поле, которое будет показывать ход выполнения. Значение этого поля изменяется в теле метода Execute(). Вопросами визуализации хода выполнения пускай занимается какой-нибудь внешний по отношению к классу потока код. Этот код будет читать целочисленное поле с некоторой периодичностью и обновлять индикатор выполнения.

0