0

我目前正在尝试使用 OmniThreadLibrary。附上我的代码：

procedure TMainForm.LongWait;
begin
  Task := Parallel.Future<string>(
    function: string
    begin
      Sleep(10000);
      Result := 'Done';
    end,

  Parallel.TaskConfig.OnTerminated(
    procedure
    begin
      if Task.IsDone then
        MessageDlg('Complete', mtInformation, [mbOK], 0)
      else
        MessageDlg('Exception', mtError, [mbCancel], 0)
    end)
  );
end;

我会调用 LongWait() 并且它可以正常工作而不会阻塞 UI。我想做的是：

  • 让任务在等待值的同时在后台运行
  • 如果引发异常，我希望主线程捕获它
  • 允许主线程确定任务是完成还是取消

是否有可能做一个非阻塞函数来完成所有这些？

先感谢您，

五。

编辑：添加问题

4

1 回答 1

6

let the task run in the background while waiting for the value

您可以通过几种不同的方式等待结果：

  • 调用Task.Value它将阻塞，直到计算出该值。
  • Task.IsDone定期调用，然后在Task.Value返回时IsDone调用True。
  • Task.TryValue定期打电话。
  • 获取终止 ( OnTerminated) 处理程序中的值。

if an exception is raised, I want the main thread to catch it

异常将自动转发到您的代码读取未来结果的位置。由于您没有在任何地方读取结果，因此您可以简单地if assigned(Task.FatalException)在OnTerminated处理程序中使用。（顺便说一句，IsDone在终止处理程序中将始终为真。）

allow the main thread to determine if the task was completed or cancelled

使用Task.IsCancelled.

所有这些都记录在使用 OmniThreadLibrary 进行并行编程一书的未来章节中。

于 2013-09-28T11:57:29.450 回答