另一种 TIdTCPServer 死锁情况

Question

我遇到了已知问题：IdTCPServer 在尝试停用它时挂起。我读过很多有关此类问题的文章，并且我知道发生了僵局。但我很难理解到底是哪个代码导致了问题。我的应用程序甚至没有窗口，因此对 VCL 组件的同步调用不是原因。有 2 个事件处理程序 OnConnect 和 OnExecute。该问题出现在 OnConnect 中。代码：

TMyServer = class
...
private
FServer: TIdTCPServer;
...
end;

TMyServer.ServerConnect(AContext...);  //onconnect
begin
  try
    if not Condition then
    begin
      ...
      AContext.Connection.Disconnect;
      Stop;
    end
    else Start;
  except
    on E: Exception do
      if E is EIdException then raise;
      ...  
  end;

TMyServer.Start;
begin
  ...
  FServer.active := true;
  FServer.StartListening;
  ...
end;

TMyServer.Stop;
begin
  ...
  FServer.StopListening;
  FServer.Active := false;
  ...
end;

TMyServer.ServerExecute(AContext...);  //onexecute
begin
  LLine := AContext.Connection.IOHandler.ReadLn;
  case (LLine) of
  ...
  end;
end;

ServerExecute的代码相当庞大，所以我不会在这里发布它。此外，我认为问题不在其中。
当客户端连接到服务器且条件为 false 时，服务器会尝试断开此客户端的连接并挂在线路上 FServer.Active := false;
我已经从代码中排除了所有日志记录（我认为问题出在线程对日志文件的访问中）。因此，在事件处理程序中，只有计算，没有任何可能导致死锁的内容）。我读过有关重新引发印地例外的信息，但这对我也没有帮助。
我将不胜感激任何帮助和解释，因为我认为我不完全理解这种情况的目的。

Answer 1

您正尝试从服务器的事件处理程序之一内部停用服务器。这就是你的代码陷入僵局的原因。

将 Active 属性设置为 False 将终止所有正在运行的客户端线程并等待它们完全终止。 OnConnect、OnDisconnect 和 OnExecute 事件在这些线程的上下文中触发。因此，您最终会得到一个试图等待自身并出现死锁的线程。

要让服务器安全地自行停用，您必须异步执行此操作，例如使用 TIdNotify 类，例如：

uses
  ..., IdSync;

TMyServer.ServerConnect(AContext...);  //onconnect
begin
  try
    if not Condition then
    begin
      ...
      AContext.Connection.Disconnect;
      TIdNotify.NotifyMethod(Stop);
    end
    else
      TIdNotify.NotifyMethod(Start);
  except
    on E: Exception do
      if E is EIdException then raise;
      ...  
  end;
end;

顺便说一句，您不需要调用 StartListening() 和 StopListening() 手动方法。 Active 属性设置器在内部为您完成此操作。