Delphi IdMappedPortTCP 问题

Question

有办法断开事件连接吗？我知道使用 OnConnect 您可以拒绝连接...但那只是在有连接时

Answer 1

是的，TidMappedPortTCP 是 TidTCPServer 的后代，因此您基本上可以使用几种不同的方法来断开事件客户端的连接。例如，如果您想在 OnExecute 事件中断开事件客户端的连接(基于某些任意条件)，您可以简单地在事件处理程序中的某个位置执行此操作:

AContext.Connection.Disconnect;

如果您需要在代码中的其他位置断开事件连接(例如不在 OnExecute 事件处理程序中)，则方法如下:

• 创建一个列表(TList 或某些集合类)来保存您的事件连接；
• 在 OnConnect 事件处理程序内，将任何新客户端添加到此列表；
• 在 OnDisconnect 事件处理程序内，从此列表中删除已断开连接的客户端；

这样，您将始终拥有一组事件客户端，这将使您能够找到特定客户端、访问其连接对象并在需要时调用 Disconnect 方法。

如果您需要更详细的代码示例，请告诉我。