IdTCPServer1窗口关闭了IdTCPClient1端如何知道IdTCPServer1以关闭
IdTCPServer1窗口关闭了IdTCPClient1端如何知道IdTCPServer1以关闭

[解决办法]

Delphi(Pascal) code

procedure TForm.IdTCPClientDisconnect(AThread: TIdPeerThread);beginClearThread(AThread);//断开处理代码end;procedure TForm1.Timer1Timer(Sender: TObject);//定时检测是否连接着，5秒一次beginif TcpOnline.Connected=false then begin   try   TcpOnline.Connect(2000);   memo1.Lines.Add('需要重新连接');   except    end; end;try  TcpOnline.WriteLn('连通测试');except TcpOnline.Disconnect;end;end;