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=39578252&tid=2041389]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 211ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 242ms
total:  561ms
созд. / загр.: 561ms
x
x
Закрыть


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