Delphi正在获取TTask。IFuture不阻塞主线程?

根据设计 IFuture.Value 属性阻塞调用线程,直到另一个线程分配值。所以,如果你阅读 Value 在主线程中,它将阻塞主线程,直到值准备就绪。

如果你必须阅读 价值 在没有阻塞的主线程中,您可以:

• 使用计时器或其他异步机制定期查询 IFuture.Status 属性时要检查的属性 IFuture 准备在实际读取之前提供值。

• 当主线程准备好时,让并行任务向其发送信号,然后主线程可以读取 价值 在其信号处理器中。

我知道可能有点晚了,但我通过创建一个TTask解决了这个问题 MyValue:=未来对象。价值

FutureObject := TTask.Future<Integer>(function: Integer
begin
    Sleep(3000);
    Result := 16;
end);
// …
TTask.Run(Procedure begin
MyValue := FutureObject.Value;
end);