用Winsock通讯,当TServerSocket组件忽然中断后,怎么自动重新连接TClientSocket?(40分)

  • 主题发起人 主题发起人 duanyu
  • 开始时间 开始时间
D

duanyu

Unregistered / Unconfirmed
GUEST, unregistred user!
用Winsock通讯,当TServerSocket组件忽然中断后,怎么自动重新连接TClientSocket?
 
请高手指点
 
好像是不可以的。
 
没办法。
应该由客户端来侦测服务端是否断开。
如果断了,客户端主动连接。
 
to 呆非4,
但有两种情况:一,服务器断开时主动告诉客户端;二,客户端查询服务器端是否已断开
 
用iimer控件
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=3000; //定时器,3秒钟间隔
Timer1.Enabled:=False;
if ClientSocket.Active then ClientSocket.Active := False;

if Length(Server) > 0 then
with ClientSocket do
begin
Host := Server;
Active := True;

end;
Timer1.Enabled:=True;
end;
 
接受答案了.
 
后退
顶部