Indy TCPClient OnDisconnect 事件不起作用

Question

type
  TForm8 = class(TForm)
    idtcpclnt1: TIdTCPClient;
    idtcpsrvr1: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure idtcpsrvr1Execute(AContext: TIdContext);
    procedure idtcpclnt1Disconnected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.FormCreate(Sender: TObject);
begin
  idtcpclnt1.Connect;
end;

procedure TForm8.idtcpsrvr1Execute(AContext: TIdContext);
begin
  AContext.Connection.Disconnect(true); //this gets called
end;

procedure TForm8.idtcpclnt1Disconnected(Sender: TObject);
begin
  ShowMessage('true'); //but this does not
end;

OnDC 永远不会被处理。为什么？

Answer 1

Indy 客户端组件不是事件驱动的（有几个例外，例如 TIdTelnet）。当服务器断开连接时，不会触发 TIdTCPClient.OnDisconnect 事件，就像您假设的那样。这是设计使然。 TIdTCPClient 在尝试再次访问套接字之前不会知道断开连接，此时它会引发异常，例如 EIdConnClosedGraceously。仅当在客户端调用 TIdTCPClient.Disconnect() 方法时才会触发 TIdTCPClient.OnDisconnect 事件，而您并未执行此操作。

为了检测服务器端与 TIdTCPClient 的断开连接，您必须定期从套接字读取数据，例如在计时器或单独的线程中。

Answer 2

好吧，我的错。你的代码不起作用，但这是正确的。让我解释一下原因：

AContext.Connection.Disconnect(true) 方法调用 TCPServer 中未实现的 DisconnectNotifyPeer 。为什么？因为不应该。

当您在服务器中断开连接时，indy 所做的就是使套接字无效并关闭它。客户端只有在尝试发送某些请求时才会注意到服务器已断开连接。而你的代码并没有这样做。这是 indy 的默认行为。

为了通知客户端服务器已断开连接，indy 和任何其他套件应该实现我们所说的heartbeat。心跳是一种时不时地尝试向套接字发送小数据包以检测它是否仍然存在的技术。检测套接字断开连接的唯一方法是尝试在该套接字中写入内容。谷歌一下heartbeat，你就会明白我的意思。

编辑

检查此。

Answer 3

您可以通过向客户端添加计时器例程来使客户端轮询断开连接 - 这是最简单的方法。

procedure TForm1.Timer1Timer(Sender: TObject);
   begin                    
      idTCPClient1.Connected;  // Works in Indy for Delphi XE4
   // Be aware this is a property read with side effects
   // It shouldn't get optimized out, but if it does, 
   // then add the appropriate directives to prevent that.
   end;                    

这应该使代码的行为就像旧的 TClientSocket 一样（并且像 TidTelnet 一样）。如果服务器突然消失（即一旦触发定时器例程检测到这种情况），它会为 OnStatus 事件生成一个 hsDisconnected 标志。但是，这种导致断开连接的服务器丢失的特殊情况不会触发 OnDisconnect 事件 - 只是触发 OnStatus。因此，最好始终使用 OnStatus 来捕获所有断开连接，无论是客户端还是服务器引起的。我使用了一个设置为 100 毫秒的计时器，但我想你可以根据需要将其设置为频繁或缓慢 - 它似乎不会造成任何损害。

注意：对于 DELPHI 7（可能还有 D7 和 XE4 之间的其他版本），您必须以稍微不同的方式执行此操作：

procedure TForm1.Timer1Timer(Sender: TObject);
   begin                    
   // This no longer works this way in Indy for XE4, but works in Indy for D7 ... 
      idTCPClient1.CheckForGracefulDisconnect(FALSE);  
   end; 

顺便说一句 - 如果您使用 Delphi 6，请忘记 Indy，它当时的 bug 太多了。