ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Timer + Поток
9 сообщений из 9, страница 1 из 1
Timer + Поток
    #39577817
qsda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qsda
Гость
В отдельном потоке у меня выполняется код программы. Возможно ли его обернуть в таймер? Либо из потока активировать таймер на основной форме? Form1.Timer.Enabled:=true; не работает, хотя с другими компонентами формы он нормально работает таким способом.
...
Рейтинг: 0 / 0
29.12.2017, 12:35
| Ответить | Цитировать | Написать  
Timer + Поток
    #39577843
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Можно послать форме сообщение чтобы та активировала свой таймер. Но лучше всерьёз
задуматься над архитектурой приложения, которому нужны такие извращения.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
29.12.2017, 13:03
| Ответить | Цитировать | Написать  
Timer + Поток
    #39577848
qsda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qsda
Гость
Как?Form1.Timer.Enabled:=true; не работает
...
Рейтинг: 0 / 0
29.12.2017, 13:06
| Ответить | Цитировать | Написать  
Timer + Поток
    #39577851
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Что "как"? Как послать сообщение? Ты не поверишь: SendMesage().
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
29.12.2017, 13:09
| Ответить | Цитировать | Написать  
Timer + Поток
    #39577973
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
qsdaВ отдельном потоке у меня выполняется код программы. Возможно ли его обернуть в таймер?Возможно. CreateWaitableTimer в помощь
...
Рейтинг: 0 / 0
29.12.2017, 15:55
| Ответить | Цитировать | Написать  
Timer + Поток
    #39577974
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Кстати, а кто знает, Эмбаркадера сделала какую-нибудь кроссплатформенную реализацию многопоточных таймеров?
...
Рейтинг: 0 / 0
29.12.2017, 15:56
| Ответить | Цитировать | Написать  
Timer + Поток
    #39577983
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
_Vasilisk_Кстати, а кто знает, Эмбаркадера сделала какую-нибудь кроссплатформенную реализацию многопоточных таймеров?
Я сделал. :)
...
Рейтинг: 0 / 0
29.12.2017, 16:14
| Ответить | Цитировать | Написать  
Timer + Поток
    #39578136
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
qsda,

а задача-то какая? Выполнять код в доп.потоке через определенный промежуток времени?
...
Рейтинг: 0 / 0
30.12.2017, 01:25
| Ответить | Цитировать | Написать  
Timer + Поток
    #39578252
Фотография krapotkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krapotkin
Участник
а в чем там проблема?
грубо, но рабоче:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
TTask.Run(procedure begin
  while Condition do
  begin
    DoSomething();
    Sleep(1000);
  end;
end;)
...
Рейтинг: 0 / 0
30.12.2017, 15:42
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Timer + Поток
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39577851&tid=2041389]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 178ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 237ms
total:  488ms
созд. / загр.: 488ms
x
x
Закрыть


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