【问题标题】：TidCustomTCPServer.Active := False, never returnsTidCustomTCPServer.Active := False，永不返回
【发布时间】：2018-01-31 06:03:32
【问题描述】：

我从Indy 10 TIdTCPServer 下载了一些有趣的代码并编译并运行了它。它有点乱，可能需要工作，但它是有趣的事情的良好基础。至少我不必在这里发布所有代码。无论如何，我决定首先需要停用ExampleServer，而不仅仅是在OnDestroy 中释放。所以我补充说：

procedure TServerPushExampleForm.FormClose(Sender: TObject);
begin
  ExampleServer.Active := False; // bug here - never returns
end;

为了尝试调试此问题，我将 IdCustomTCPServer.pas 添加到项目中并进入其中。

在TIdCustomTCPServer.StopListening; 的LListener.WaitFor; 行中引发了一个异常此异常被捕获在TIdListenerThread.Run; 的异常处理程序中，但E.message 没有在那里检索，所以我不得不修改那里的代码以获得消息：

“操作中止”

在那之后我进一步追踪它，但代码执行最终还是回到了同一个异常处理程序。

这是一个错误还是永远不要将 Active 属性设置为 False 更好？在我的测试中，如果我关闭应用程序并让 RTL 管理所有空闲。没有发生无限循环（应用程序确实关闭了）

【问题讨论】：

这只是想法的糟糕实现，还是这里发现了一些更深层次的问题？ LListener.WaitFor; 引发“操作中止”异常？
这不是 Hey Fred 的网站。你能亲自为我调查一下这个帖子吗？如果您有一个特定的问题，请将问题写给任何选择阅读它的人。这不是社交网站、聊天室或论坛。仅供参考，您不能只使用@ ping 任何人；仅当您在评论中回复某人或对您的问题或答案发表评论时才有效。如果他们根本没有参与您的帖子，则 ping 不会到达他们。
好的，既然我已经引起了您的注意，您对这个问题有任何 cmet（甚至可能是答案）吗？
是的，我有意见。正如我之前所说，如果您有特定问题，请将问题写给阅读它的任何人和每个人，这意味着您需要对其进行编辑以使您的问题更加清晰和具体.
@Ken White：已排序。

标签： delphi indy

【解决方案1】：

异常是正常行为。

Indy 使用阻塞套接字。

TIdListenerThread 运行一个循环等待客户端连接。每个等待都是一个阻塞操作。

当服务器被停用时，它会关闭其侦听套接字，导致挂起的套接字操作中止，然后终止侦听线程。中止异常在内部处理。

服务器的析构函数也设置了Active=False，所以无论你是否显式停用，服务器都会被停用。

这本身并不会导致您挂起。通常，设置Active=False 可以挂起的唯一方法是，如果服务器事件处理程序尝试与主 UI 线程同步同步，而主线程被阻塞等待服务器停用。经典的死锁场景。

不过，在您链接到的演示中，情况似乎并非如此（唯一使用的同步是异步的）。因此，您的调试尚未揭晓的其他事情可能正在发生。应该没有挂起。

【讨论】：

谢谢雷米。我决定从头重写示例以执行相同的功能（异步 readln），但以完全不同的方式（使用 Indy 组件和匿名线程，我没有得到我在这里报告的问题。
在编写新应用程序和调试的过程中，我发现服务器没有进入活动状态的原因。如果客户端发送的数据没有被服务器读取（反之亦然），服务器不会关闭。
@nolaspeaker 这当然是一种可能性（至少是阅读部分）。如果IOHandler.InputBuffer 中有未读数据，那么即使套接字关闭，IOHandler.Connected 也会为真。 TIdTCPServer 套接字线程将循环只要其关联的IOHandler 是“连接的”并且可以满足读取操作而无需返回套接字获取更多数据。但是一旦这样做，Active setter 执行的套接字关闭将导致读取错误，如果您允许，它将终止线程。 Active setter 等待所有套接字线程终止。
再次感谢雷米。当然，现在我知道了这一点，我可以编写更好的代码，始终匹配写入和读取的代码以防止这种情况发生。