在 MainForm 关闭 OTL 线程不关闭

Posted 2023-03-23

【中文标题】在 MainForm 关闭 OTL 线程不关闭

【英文标题】：On MainForm closure OTL threads do not close

【发布时间】：2014-11-27 12:45:01

【问题描述】：

当 OTL 线程仍在使用 IOmniCancellationToken 时关闭 MainForm 不会终止线程。使用以下任务配置代码

私人的 CancelToken：IOmniCancellationToken；

  CancelToken := CreateOmniCancellationToken;

  FWorker := Parallel.ForEach(0, CalcList.Count-1)
    .TaskConfig(Parallel.TaskConfig.OnMessage(Self))
    .TaskConfig(Parallel.TaskConfig.CancelWith(CancelToken))
    .NumTasks(nMax)  
    .NoWait
    .OnStop(procedure (const task: IOmniTask)
     begin
       task.Invoke(procedure begin
         FWorker := nil;
        end);
      end);

  FWorker
    .Execute(
      procedure (const value: integer)
      begin
         CalcUnit.EntrySearch(value);
      end);

Form.Close CancelToken.Signal ; 使表单关闭，线程从“Parallel.ForEach worker”变为“idle Thread worker”，但线程不会终止。程序挂起。为什么线程不终止？我做错了什么？

【参考方案1】：

您检查代码中的 IsSignalled 的 CancelToken 吗？任务不会被强制自动终止。相反，您必须在代码中检查取消并在收到信号时退出任务。