在 DLL 中使用 TTask 时 Delphi FreeLibrary 卡住

Question

这是我在 DLL 中的代码:

procedure TTaskTest;
begin
  TTask.Run(
    procedure
    begin
      Sleep(300);
    end);
end;
exports TTaskTest;

在宿主应用程序中调用此方法后，然后调用 FreeLibrary将卡住主机应用程序。调试后，我发现程序卡住在 if TMonitor.Wait(FLock, Timeout) then在TLightweightEvent.WaitFor ，但调试器无法进入 TMonitor.Wait 。怎么解决？

Answer 1

已报告此问题 ( RSP-13742 Problem with ITask, IFuture inside DLL )。

它以“按预期工作”结束，并附有评论:

To prevent this failure using ITask or IFuture from a DLL, the DLL will need to be using its own instance of TThreadPool in place of the default instance of TThreadPool.

以下是 Embarcadero 的示例，说明如何处理它:

library TestLib;

uses
  System.SysUtils,
  System.Classes,
  System.Threading;

{$R *.res}

VAR
  tpool: TThreadPool;

procedure TestDelay;
begin
  tpool := TThreadPool.Create;
  try
    TTask.Run(
      procedure begin
        Sleep(300);
      end,
      tpool
    );
  finally
    FreeAndNil(tpool);
  end;
end;

exports
  TestDelay;

begin

end.

<小时/>

另一种方法是在加载库时创建线程池，并添加一个释放过程，在调用 FreeLibrary 之前调用该过程。

// In dll 
procedure TestDelay;
begin
  TTask.Run(
    procedure begin
      Sleep(300);
    end,
    tpool
  );
end;

procedure ReleaseThreadPool;
begin
  FreeAndNil(tpool);
end;

exports
  TestDelay,ReleaseThreadPool;

begin
  tpool := TThreadPool.Create;
end.