Поток и timer

Здравствуйте.

У меня следующий вопрос.

Как мне запускать поток каждые <опредмеченное время в секундах>?

Я создал класс потока

  TCountOperOrdersThread = class(TThread)
     FQuery : TpFIBQuery;
     TTans : TpFIBTransaction;
     private
        procedure RefrOrdersOper;
     protected
        procedure Execute;override;
  end;

все методы реализовал, теперь сам поток вызываю через компонент TTimer , используя метод OnTimer:

Ontimer 

.......

   CountOrdersOper := TCountOperOrdersThread.Create(true);
   CountOrdersOper.FreeOnTerminate := true;
   CountOrdersOper.Priority := tpLower;
    CountOrdersOper.Resume;

.....

Теперь через определенное время, срабатывает таймер и выполняется OnTimer, в это время происходит подвисание основной программы.

У меня вопрос как сделать так, что поток не мешал основной программе, ну то есть чтоб она не подвисала?

LMag
как сделать так, что поток не мешал основной программе, ну то есть чтоб она не подвисала?

Написать его правильно. Граблей для новичка на этом пути немерено. От огульного
использования Synchronize до сериализации вызовов Firebird API в пределах одного коннекта
клиентской библиотекой.

Posted via ActualForum NNTP Server 1.5

Я понимаю что надо писать правильно, но как или дайте ссылку

метод execute я реализовал так

procedure TCountOperOrdersThread.Execute;
begin
  inherited;
  Synchronize(RefrOrdersOper);
end;

LMag
метод execute я реализовал так

Ну да, худший сценарий, типичная ошибка. Человек, написавший этот неправильный код давно
умер, но дело его живёт. Synchronize надо использовать очень осторожно. Читай штатную справку.

Posted via ActualForum NNTP Server 1.5

LMag	↑
Я понимаю что надо писать правильно, но как или дайте ссылку метод execute я реализовал так procedure TCountOperOrdersThread.Execute; begin inherited; Synchronize(RefrOrdersOper); end;

то, что ты написал, это то же самое как если бы ты вызывал RefrOrdersOper в основном потоке

А как тогда переписать

LMag,

А что делает доп.поток? Какие-то циклические действия?

Если так, то можно использовать эвенты. По таймеру взводить и сбрасывать эвент, который будет соответственно замораживать/размораживать доп.поток

Док,

Ну поток опрашивает базу на количество введеных записей тем или иным оператором.

Хотел бы узнать как отдельным эвентом останавливать и запускать поток?

LMag	↑
Ну поток опрашивает базу на количество введеных записей тем или иным оператором.

Обычного события таймера хватит с головой.

Ещё есть Application.OnIdle....но это, наверное, хуже...