摘要： procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);type TCP_KeepAlive = record OnOff: Cardinal; KeepAliveTime: Cardinal; KeepAliveInterval: Cardinal end;var Val: TCP_KeepAlive; Ret: DWord;begin Val.OnOff:=1; Val.KeepAliveTime:=xxx; Val.KeepAliveInterval:=xxx; WSAIoctl(AThread.Connection.So 阅读全文