gpt4 book ai didi

delphi - Indy TCPClient OnDisconnect 事件不起作用

转载 作者:行者123 更新时间:2023-12-03 15:39:31 26 4
gpt4 key购买 nike

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 在尝试再次访问套接字之前不会知道断开连接,此时它会引发异常,例如 EIdConnClosedGraceously。仅当在客户端调用 TIdTCPClient.Disconnect() 方法时才会触发 TIdTCPClient.OnDisconnect 事件,而您并未执行此操作。

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

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

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com