delphi – 将监视器设置为dll中的任务时出现错误“只能使用单个监视器监视任务

我在我的DLL中使用OmniThreadLibrary 2.09,主应用程序和dll使用相同的SimpleShareMem内存管理器.

我用这段代码创建了自己的监视器：

FMonitor: TOmniEventMonitor;
  ...
  FMonitor := TOmniEventMonitor.Create(nil);

当我尝试使用此监视器创建新任务时,我收到错误“只能使用单个监视器监视任务”

FTask := OtlTaskControl.CreateTask(TaskWorker)
  .OnMessage(
    procedure(const ATaskControl: IOmniTaskControl; const AMsg: TOmniMessage)
    begin
      ...
    end)
  .MonitorWith(FMonitor)  //  <----- Error
  .OnTerminated(
    procedure (const ATaskControl: IOmniTaskControl)
    begin
      ...
    end)
  .Run();

如何使用自己的显示器监控我的任务？

OnMessage函数创建隐式监视器,它接收任务消息并调用您的匿名函数. OnTerminated也是如此.

如果您希望使用MonitorWith,则应将消息处理和终止处理实现为监视器事件,而不是使用OnMessage / OnTerminated函数.