ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TThread -> ProgressBar -> Основная форма
25 сообщений из 58, страница 1 из 3
  1  все
TThread -> ProgressBar -> Основная форма
    #39830090
HOME_X
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HOME_X
Участник
Доброго дня господа !

Прошу совета

Имею основную формe, в ней "подвал" TStatusBar (с набором панелей)

Имею класс TThread в нем осуществляется длительный процесс обработки данных.
Визуализация процесса обработки выводиться на объект TProgressBar
(который описан в виде поля и создан в классе TThread)

Но визуализацию "бегущей дорожки" хотелось бы видеть в основной форме,
на одной из панелей TStatusBar

1. как правильно синхронизировать процесс "бежания дорожки"
2. как правильно завести TProgressBar в одну из панелей TSatusBar - (TProgresBar.Parent:=TStatusBar.Panels[1])
3. размер TProgressBar=размеру TStatusBar.Panels[1]

Заранее благодарен !
...
Рейтинг: 0 / 0
24.06.2019, 23:14
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830097
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
HOME_Xописан в виде поля и создан в классе TThread

Вот второе - ошибка. Все визуальные компоненты (окна) должны создаваться в главном потоке.
Потом рабочему потоку можно отдать ссылку (лучше хэндл) этого окна чтобы он мог его
использовать для посылки сообщений (и, таким образом, визуализации своей работы).
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.06.2019, 00:24
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830100
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
HOME_X, такая фича есть в девках в TdxStatusBar

https://www.devexpress.com/Support/Center/Question/Details/T109590/how-do-you-add-progressbar-to-statusbar-in-delphi-at-runtime
...
Рейтинг: 0 / 0
25.06.2019, 01:14
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830102
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Крутая фича
...
Рейтинг: 0 / 0
25.06.2019, 01:23
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830128
HOME_X
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HOME_X
Участник
Dimitry SibiryakovHOME_Xописан в виде поля и создан в классе TThread

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


Нет вопросов - а как правильно организовать синхронизацию в момент Progress+1
Если с помощью Synchronize(Моя процедура) - будет все время тормозиться основная форма
- не будет большого смысла в потоке.
Поясните пожалуйста ..
...
Рейтинг: 0 / 0
25.06.2019, 08:17
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830138
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
HOME_XПоясните пожалуйста ..
Сообщением главной форме.
...
Рейтинг: 0 / 0
25.06.2019, 08:49
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830140
HOME_X
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HOME_X
Участник
wadman,

Не могли бы подослать код в качестве примера ...

Спасибо
...
Рейтинг: 0 / 0
25.06.2019, 08:53
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830141
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
HOME_XПоясните пожалуйста ..

И лучше это делать не на каждой итерации, а разумно: 2-3 раза в секунду, обычно, достаточно.
...
Рейтинг: 0 / 0
25.06.2019, 08:55
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830146
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
HOME_XНе могли бы подослать код в качестве примера ...
У формы есть Handle, форма может принимать сообщения http://www.cryer.co.uk/brian/delphi/howto_send_custom_window_message.htm
И есть процедура winapi: postmessage.
...
Рейтинг: 0 / 0
25.06.2019, 09:01
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830198
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
wadmanHOME_XНе могли бы подослать код в качестве примера ...
У формы есть Handle, форма может принимать сообщения http://www.cryer.co.uk/brian/delphi/howto_send_custom_window_message.htm
И есть процедура winapi: postmessage.
На Handle формы лучше не закладываться, он иногда может пересоздаваться. Надежнее хранить ссылку на форму. Либо создать хэндл в главном потоке самому через AllocateWnd
...
Рейтинг: 0 / 0
25.06.2019, 10:26
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830203
Cobalt747
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cobalt747
Участник
x1ca4064HOME_XПоясните пожалуйста ..

И лучше это делать не на каждой итерации, а разумно: 2-3 раза в секунду, обычно, достаточно.
Обычный таймер вполне подходит для этого.
...
Рейтинг: 0 / 0
25.06.2019, 10:32
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830209
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
wadmanСообщением главной форме.

Зачем главной-то? Отдаём хэндл прогресс-бара, соответственно и сообщение посылается прямо ему:
Код: sql
1.
PostMessage(ProgressBar.Handle, PBM_SETPOS, Percent, 0);


Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.06.2019, 10:41
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830218
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Cobalt747x1ca4064пропущено...
И лучше это делать не на каждой итерации, а разумно: 2-3 раза в секунду, обычно, достаточно.
Обычный таймер вполне подходит для этого.
Тогда вообще ничего передавать не надо, сделать свойство у TThred и через какой-нибудь InterlockedIncrement() его считывать/увеличивать.
...
Рейтинг: 0 / 0
25.06.2019, 10:46
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830221
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
Cobalt747Обычный таймер вполне подходит для этого.

Обычно, "Обычный таймер" :) , не используют в потоках.
...
Рейтинг: 0 / 0
25.06.2019, 10:48
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830223
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
x1ca4064Cobalt747Обычный таймер вполне подходит для этого.

Обычно, "Обычный таймер" :) , не используют в потоках.
Очевидно, что таймер будет на форме, нет? :)
...
Рейтинг: 0 / 0
25.06.2019, 10:54
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830239
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
alekcvpсделать свойство у TThred и через какой-нибудь InterlockedIncrement() его
считывать/увеличивать.
Interlocked функции в данном случае совершенно ни к чему.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.06.2019, 11:11
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830334
HOME_X
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HOME_X
Участник
wadman,

Не совсем понял - Вы предложили использовать Win API (PostMessage и т.д.)
Зачем ? Вы хотите "связать-развязать" потоки через операционку ?

Почему нельзя передать указатель на TProgressBar в конструктор потока
TThread.Create(......,,,a: TProgressBar....) , держать его как поле потока и не-
посредственно к нему обращаться в процессе цикла ? Тут есть противоречие ?

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

Т.е. Synchronize(.....) использовал для синхронизации переменных, команда останав-
ливала все действия и синхронизировала ИЗМЕНЕННЫЕ ресурсы во времени.

В моем случае - меняет переменную "Progress + 1" только вспомогательный поток.
На главном потоке идет считывание, команда Synchronize(.....) - нужна ли вообще ?
И как основной поток знает что "Progress + 1" изменился, чтобы отRefresh - ть строку ?

Спасибо .
...
Рейтинг: 0 / 0
25.06.2019, 13:43
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830344
AlexeyM123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexeyM123
Участник
бесплатная книга

Getting started with Embarcadero Delphi

https://riptutorial.com/topic?q=delphi&submit=Search

Chapter 8: Running a thread while keeping GUI responsive
...
Рейтинг: 0 / 0
25.06.2019, 13:50
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830362
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
HOME_XПочему нельзя передать указатель на TProgressBar в конструктор потока
TThread.Create(......,,,a: TProgressBar....) , держать его как поле потока и не-
посредственно к нему обращаться в процессе цикла ? Тут есть противоречие ?

C точки зрения архитектуры это плохая практика.
Мухи (расчет) - отдельно, котлеты (визуализация) - отдельно. Когда понадобиться сделать другой индикатор или добавить, скажем, запись логов придется все переделывать.
Лучше сразу писать правильно- отослал сообщение и пусть на той стороне решают что с ним делать.
...
Рейтинг: 0 / 0
25.06.2019, 14:25
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830366
Александр Спелицин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Александр Спелицин
Участник
HOME_X,
Всё дело в том, что VCL не является потокобезопасной. Т.е. если из разных потоков рисовать на канве окна, то можно получить ошибку. Вот по этому и следует делать так, чтобы все визуальные изменения делались в основном потоке, а расчеты вынести во вспомогательный поток. А вспомогательный поток уже уведомляет основной о том, что процент выполнения задачи изменился.
Самое простое - создать в форме обработчик Вашего пользовательского сообщения, из которого менять % в прогрессбаре.
...
Рейтинг: 0 / 0
25.06.2019, 14:35
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830371
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
HOME_XВы предложили использовать Win API (PostMessage и т.д.)
Зачем ?

Затем, что это самый простой, надёжный и безопасный способ.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.06.2019, 14:49
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830376
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
VCL не тред-сейф, а вот WinAPI вполне. Т.ч. если отсылать из фонового потока Post/SendMessage хэндлу окна, то всё ОК. Вариант с событием OnProgress у фонового потока и его обработчик - это верное решение. Только вот надо держать в уме, что обработчик вызывается в контексте другого потока - это не всегда получается.
...
Рейтинг: 0 / 0
25.06.2019, 15:06
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830381
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
25.06.2019 15:06, Василий 2 пишет:
> VCL не тред-сейф, а вот WinAPI вполне.

имеешь весьма поверхностные знания об архитектуре Вын.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.06.2019, 15:14
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830404
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
Обоснуй
...
Рейтинг: 0 / 0
25.06.2019, 16:00
| Ответить | Цитировать | Написать  
TThread -> ProgressBar -> Основная форма
    #39830430
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
25.06.2019 16:00, Василий 2 пишет:
> Обоснуй

начни с букварей.
практически вся низкоуровневая работа с GUI средствами WinAPI из разных потоков
требует от программера специальных танцев с бубнами.
в общем случае заявлять, что с многопоточностью там всё ув шуколаде,
мягко говоря, некорректно.

если интересны подробности, можно почитать статьи Раймонда Чена на эту тематику.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.06.2019, 17:02
| Ответить | Цитировать | Написать  
25 сообщений из 58, страница 1 из 3
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TThread -> ProgressBar -> Основная форма
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39830090&tid=2039315]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 166ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 212ms
total:  478ms
созд. / загр.: 478ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]