[kti]

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

Код:

SetTimer(hwnd_1C, Timer_Interval, Timer_Interval, @TimerProc1C); // устанавливаем таймер

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

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

[poli-smen]

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

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

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

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

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

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

Код:

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

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

Код:

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;

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

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

Код:

  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(), может с ним даже лучше будет... надо попробовать
Да и до потоков мне еще далеко