[教程] QWorker 中如果强制一个死掉的作业退出

虽然 QWorker 一直不推荐强行中止一个作业(资源泄露几乎无解),但在实际的操作中,确实存在作业执行过程中,因为某种不可预知的原因而被锁死的问题。为了解决这一问题,QWorker 新的版本增加了相关的属性和事件让用户能够对此进行特殊处理。

要强行结束一个死掉的作业,需要做以下工作:

  • 设置 JobFrozenTime 属性,以便 QWorker 能够判断指定的作业是否已经死掉。单位为秒。
  • 设置 OnJobFrozen 的事件回调,它会在作业执行 JobFrozenTime 秒后仍未完成时触发。

因为上述实现的逻辑,也就意味着以下两点:

  • 如果你的作业执行时间较长,那么定时更新作业的 StartTime 就可以避免被当作僵尸作业。
  • 长时间作业因为本身就声明了作业需要较长的时间才能完成,所以不会检查 JobFrozenTime。

如果你已经完全了解上面的说明,那么你需要做的就是在 OnJobFrozen 事件里,调用 AJob.Worker.ForceQuit 来强制结束进程。

额外补充一点要注意的是,不要试图调用主线程作业的 Worker.ForceQuit,因为那样操作是无意义的,总不能结束主线程,那样程序就不如你直接强制重启程序了。

更多的示例,参考 /Demos/Delphi/QWorker Demos/ForceQuit 内的源码及说明。

分享到:

评论已关闭。