Bonjour à tous et meilleurs voeux pour cette nouvelle année 2013.

Existe t il un moyen facile de mettre ne place TCP keep alive sur TServerSocket ?

Par exemple j'ai trouvé ce code pour HTTPServer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
procedure TForm1.IdHTTPServer1Connect(AContext: TIdContext);
begin
  AContext.Binding.SetSockOpt(Id_SOL_SOCKET, Id_SO_KEEPALIVE, 1);
end;

Merci d'avance pour vos réponses
Wilco