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

And*_*rew 3 delphi dll omnithreadlibrary delphi-xe4

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

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

  FMonitor: TOmniEventMonitor;
  ...
  FMonitor := TOmniEventMonitor.Create(nil);
Run Code Online (Sandbox Code Playgroud)

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

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();
Run Code Online (Sandbox Code Playgroud)

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

gab*_*abr 7

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

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