powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TThread -> ProgressBar -> Основная форма
8 сообщений из 58, страница 3 из 3
TThread -> ProgressBar -> Основная форма
    #39831441
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Самый надежный и быстрый вариант - передавать в поток Handle прогрессбара.
Если он пересоздастся (что вряд ли) - хотябы не упадет ничего и не зависнет.
Еще лучше вариант, конечно - отказ от VCL.
...
Рейтинг: 0 / 0
TThread -> ProgressBar -> Основная форма
    #39831442
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
kealon(Ruslan)ну вот, скатились до того, что дельфи гамно, а потом идут вопросы "почему не работает что-то у очередного пионера"Delphi - не гамно. VCL - гамно.
...
Рейтинг: 0 / 0
TThread -> ProgressBar -> Основная форма
    #39831493
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
YuRockkealon(Ruslan)ну вот, скатились до того, что дельфи гамно, а потом идут вопросы "почему не работает что-то у очередного пионера"Delphi - не гамно. VCL - гамно.
VCL не то чтобы говно, просто для него "прогроммист нужон" (С), который сначала изучает что и как работает, а потом уже делает.
...
Рейтинг: 0 / 0
TThread -> ProgressBar -> Основная форма
    #39831556
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
WinAPI сам по себе не совсем сахар. Ну и VCL страдает как наследник. То хэндлы ненадежны, то еще что.
...
Рейтинг: 0 / 0
TThread -> ProgressBar -> Основная форма
    #39831602
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alekcvpVCL не то чтобы говно, просто для него "прогроммист нужон" (С)

VCL изначально была вполне адекватна, но потом к её программированию допустили студентов.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
TThread -> ProgressBar -> Основная форма
    #39831608
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dimitry SibiryakovVCL изначально была вполне адекватна... У меня ощущение, что, скажем, модуль Graphics изначально написан бесконтрольными студентами.
А контролер в последствии схватился за голову, но менять архитектуру уже было поздно, поэтому исправили только кое-какие ляпы.
...
Рейтинг: 0 / 0
TThread -> ProgressBar -> Основная форма
    #39831615
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
28.06.2019 12:54, Соколинский Борис пишет:
> У меня ощущение, что, скажем, модуль Graphics изначально написан бесконтрольными студентами.
> А контролер в последствии схватился за голову, но менять архитектуру уже было поздно, поэтому исправили только кое-какие ляпы.

Graphics перекочевал из OWL
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
TThread -> ProgressBar -> Основная форма
    #39832217
Фотография roschinspb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, как всегда в мемуары ударились...
По теме. Как я понимаю автор вопроса не обладает навыками многопоточной работы. В этом случае предлагаю не очень красивый, но надежный простейший вариант.
Где-то в общем юните заводится некая глобальная переменная Integer, в которой допустим хранятся десятые значения процента выполненной работы. Главная форма или что там еще просто по таймеру опрашивает значение этой глобальной переменной и устанавливает значение для прогрессбара. Добавочный поток просто записывает в переменную значения соответствующие текущей фазе работы, это будет атомарная операция и ни каких дополнительных телодвижений по синхронизации не потребуется. Если надо что-то более сложное типа строк, или массивов, то там уже нужны дополнительные телодвижения.
...
Рейтинг: 0 / 0
8 сообщений из 58, страница 3 из 3
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TThread -> ProgressBar -> Основная форма
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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