Discussion :

[Wilco]

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

[Paul TOTH]

tu parles du keepalive TCP ou HTTP ?

[Wilco]

TCP keep alive

[Paul TOTH]

et le code que tu donnes ne fonctionne pas ?!

[ShaiLeTroll]

Ce sujet devrait te plaire : ServerSocket Comment vérifier si un client est connecté
J'y évoque juste le TCP Keep Alive sur un TidTCPServer
Note que les développeurs Indy ont appelé leur méthode SetSockOpt en référence à l'API MS setsockopt

Pour un TServerSocket utilise son Handle et l'API setsockopt \ SO_KEEPALIVE ou l'API
WSAIoctl \ SIO_KEEPALIVE_VALS

[Wilco]

Merci Shail,

Aurais tu un petit exemple Delphi pour utiliser cette fonction ?

Merci d'avance,
Wilco

[ShaiLeTroll]

Tu ne fournis pas bcp d'effort !

"setsockopt SO_KEEPALIVE tclientsocket"

Premier lien : Embarcadero Newsgroups Archived.At > Re: How to detect connection state in TClientSocket? [Edit]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.sckClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  KeepAliveEnabled: BOOL; // not Boolean!
begin
  ListMessage('Connected to: ' + Socket.RemoteAddress);
  if ckbUseKA.Checked then
  begin
    ListMessage('Activating Keepalive');
    KeepAliveEnabled := True;
    WinSock.SetSockOpt(Socket.SocketHandle, SOL_SOCKET, SO_KEEPALIVE,
                      PChar(@KeepAliveEnabled), SizeOf(KeepAliveEnabled));
  end;
  stxLED.Color := clLime;
  btnDisconnect.Enabled := true;
  btnConnect.Enabled := false;
end;

[Wilco]

Merci beaucoup ShaiLeTroll.

[ShaiLeTroll]

N'oublie pas en bas à droite