如何保证TCP保持长时间连接呢！

Question

var   
      keepalive:   tcp_keepalive;   
      t:   DWORD;   
  ...   
    
  WSAIoctl(socket,   SIO_KEEPALIVE_VALS,   @keekalive,   SizeOf(tcp_keepalive),   
      nil,   0,   t,   nil,   nil);   
indy下…………
没法了……

Answer 1

不知道你是用什么实现通讯,INDY的还是自己封装Socket

Answer 2

indy的话，就用心跳，应该不麻烦吧

Answer 3

用indy 在这个系统中有点麻烦啊！用indy9.不知道能实现吗！

Answer 4

var   
      Form1:   TForm1;   
      ServerCount,ClientCount:integer;   
    
  implementation   
    
  {$R   *.dfm}   
    
  procedure   TForm1.NMUDP1DataReceived(Sender:   TComponent;   
      NumberBytes:   Integer;   FromIP:   String;   Port:   Integer);   
  begin   
      ServerCount:=ServerCount+1;   
  end;   
    
  procedure   TForm1.Timer1Timer(Sender:   TObject);   
  begin   
      ClientCount:=ClientCount+1;   
      if   ClientCount   >   ServerCount+1   then   Showmessage('掉线了');   
  end;