delphi – Windows服务中的计时器队列
发布时间:2020-12-15 09:07:04 所属栏目:大数据 来源:网络整理
导读:对于 Windows服务,我需要一个计时器来定期执行某项任务.当然,有许多选项似乎优于计时器(多线程,直接从服务的主线程调用方法),但它们在这种特殊情况下都有它们的缺点. 但是,由于显而易见的原因,如果没有GUI的消息队列,SetTimer()将无法工作.我所做的(在Free P
对于
Windows服务,我需要一个计时器来定期执行某项任务.当然,有许多选项似乎优于计时器(多线程,直接从服务的主线程调用方法),但它们在这种特殊情况下都有它们的缺点.
但是,由于显而易见的原因,如果没有GUI的消息队列,SetTimer()将无法工作.我所做的(在Free Pascal中)是以下内容: 创建计时器: MyTimerID := SetTimer(0,3333,@MyTimerProc); 在服务的主循环中,运行计时器队列: procedure TMyServiceThread.Execute; var AMessage: TMsg; begin repeat // Some calls if PeekMessage(AMessage,-1,WM_TIMER,PM_REMOVE) then begin TranslateMessage(AMessage); DispatchMessage(AMessage); end; // Some more calls TerminateEventObject.WaitFor(1000); until Terminated; end; 最后,杀掉计时器: KillTimer(0,MyTimerID) 除了KillTimer总是返回False之外,这可以按预期工作. 我对你的反馈很感兴趣,但是,如果我的实现是正确的 – 我只是想避免弄乱其他应用程序的消息以及我不知道的其他副作用,因为我对消息处理经验不足. 谢谢! 解决方法
正如评论中所讨论的,您可能根本不需要计时器.您可以简单地使用事件等待的超时来创建常规脉冲:
while not Terminated do begin case TerminateEventObject.WaitFor(Interval) of wrSignaled: break; wrTimeout: // your periodic work goes here wrError: RaiseLastOSError; end; end; 脉冲的周期将是间隔加上完成工作所需的时间.如果您需要一个特定的间隔,并且工作需要很长时间,那么Remy建议使用等待计时器就可以了. 不惜一切代价,你真正不想做的是使用基于消息循环的计时器.这不适合服务. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |