为什么我在使用 OTL 时收到此错误？

Question

我是第一次使用 OTL，我正在尝试使用 Async/Await 抽象。

现在，我创建了一个小程序来看看会发生什么。它只是一个按钮，它调用这个过程。

procedure TForm2.Button1Click(Sender: TObject);
var i : integer;
begin
Button1.enabled := false; //Only for second try

for i := 0 to 100 do
begin

Async(
  procedure begin
    sleep(5000);
end).
Await(
  procedure begin

  //First Try - Button1.Enabled := true;

  //Second Try - showmessage('finished')

  end
);

Button1.enabled := true; //Only for the second try.

  end;
end; 

第一次尝试

为此它第一次工作正常，禁用按钮，为异步休眠，然后重新启用它。

但我第二次单击该按钮时，它被禁用但再也不会启用。

第二次尝试

这次我想显示一条消息 x100 次，它第一次也有效，但是当我再次调用该过程时，我收到以下错误 TOminCommunicationEndpoint.Send: Queue is full

使用过这个库的人可以向我解释一下，为什么会出现这个错误？又是否与第一次尝试的问题有关？

Answer 1

您似乎遇到了 OTL 的内部限制。

每次调用 Async-Await 都会启动一个新线程并立即返回。循环完成后，您最终会得到 100 个线程，每个线程在执行 Await 代码之前等待 5 秒。

AFAIK，使用线程池时，OTL 中有 60 个并发线程的限制。