[kti]

Подскажите.. такой вопрос
Как можно приостановить работу таймера? т.е. не "убивать" его, а временно приостановить

Код:

1 2 3 4 5 6 7

SetTimer(hwnd_1C, Timer_Interval, Timer_Interval, @TimerProc1C); // устанавливаем таймер   function TimerProc1C()   // вот тут хочу его приостановить   ...   // после выполнения нужных процедур, снова его запустить end;

смысл в том, что на медленных компьютерах не успевает отработать код процедуры таймера, и таймеры накладываются друг на друга

[poli-smen]

Сообщение от kti

Подскажите.. такой вопрос
Как можно приостановить работу таймера? т.е. не "убивать" его, а временно приостановить

Нет. Стандартный таймер можно либо создать, либо удалить - приостановить нельзя.

Сообщение от kti

смысл в том, что на медленных компьютерах не успевает отработать код процедуры таймера, и таймеры накладываются друг на друга

Чтобы не вызывалась повторно процедура до завершения своей работы, сделай переменную и при входе в эту процедуру проверяй её состояние:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

SetTimer(hwnd_1C, Timer_Interval, Timer_Interval, @TimerProc1C); // устанавливаем таймер   var   TimerEntered: Boolean = False; ..... function TimerProc1C()   if TimerEntered then Exit;     try     TimerEntered:=True;   // Делаем что-то     finally     TimerEntered:=False;   end; end;

[kti]

Сообщение от poli-smen

Нет. Стандартный таймер можно либо создать, либо удалить - приостановить нельзя.

Спасибо. Жаль конечно. А система нормально отнесется к частому удалению/созданию таймера, не будет "глючить"?

Сообщение от poli-smen

Чтобы не вызывалась повторно процедура до завершения своей работы, сделай переменную и при входе в эту процедуру проверяй её состояние:

Код:

Я так делал. Как мне кажется не помогает. На слабом компе, видимо, эти таймеры становятся в очередь, и по освобождению процессора начинают выполнятся по очереди. На компе это видно по торможению, и неадекватной работе. Даже после нажатия кнопки остановки таймера, идет обработка очереди (накопившихся таймеров). И несколько секунд приложение не реагирует..
Все таки решил сделать через KillTimer()/SetTimer()

Попутный вопрос, в конструкции всегда будет вызван finally?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

if TimerEntered then Exit;   try   TimerEntered:=True;      try       // Делаем что-то      except On E : Exception do     begin       // обработка ошибок       exit; // после этого оператора, будет вызван finally?     end;           // опять что-то делаем   end;   finally   TimerEntered:=False; end;

[PhoeniX]

А почему не потоки + sleep?

[kti]

Сообщение от PhoeniX

А почему не потоки + sleep?

Это com компонента, ей нужно на фоне работать, периодически проверять и "отдавать управление", я не знаю как поведет себя sleep(), может с ним даже лучше будет... надо попробовать
Да и до потоков мне еще далеко