delphi - Indy TCPClient OnDisconnect 事件不起作用

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 永远不会得到处理。为什么？

最佳答案

Indy 客户端组件不是事件驱动的(有几个异常(exception)，例如 TIdTelnet )。当服务器断开连接时，不会触发 TIdTCPClient.OnDisconnect 事件，就像您假设的那样。这是设计使然。 TIdTCPClient 不会知道断开连接，直到它再次尝试访问套接字，此时它会引发异常，例如 EIdConnClosedGracefully 。 TIdTCPClient.OnDisconnect 事件仅在客户端调用 TIdTCPClient.Disconnect() 方法时触发，而您没有这样做。

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

关于delphi - Indy TCPClient OnDisconnect 事件不起作用，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7096188/