Discussion :

[Coussati]

salut tlm

j'utilise Tclientsocket et Tserverscocket pour un tchat ...
et il arrive que des msg d'erreurs apparaissent et me déconnecte par la suite
il me semble avoir déjà vu un code qui permet d'empécher les msg d'erreur, mais je ne sais plus ou je l'avais vu

je ne sais pas exactement à quel moment les erreurs apparaissent EXEPTE pour 1 seul : c'est lorsque j'ordonne au client de se déconencter avec :

Code :

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

ClientSocket1.Close;

ce code n'est pas bon ?
vous savez quoi mettre pour plus avoir d'erreur ?

merci à tous

[Coussati]

personne ?

[heider]

tu peux toujours tenter d'intercepter les messages d'erreurs générés avec try et except, par exemple :

Code :

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

1
2
3
4
5
6
7
8
 
var ch : String;
begin
  try 
  //connectionServeur ou client 
  except on Erreur : Exception do ch := Erreur.Message;
  end;
end;

Je suis pas sur demon coup mais ca pourra surement t'aider ^^.

bonne progr.

[Coussati]

non ça fonctionne pas ...
pourtant je suis sur d'avoir déjà vu sur le forum

[Graffito]

Bonjour,

Peut-etre faudrait-il traiter les événements OnDisconnect et Onerror des sockets.

Dans le onerror, mettre errorcode à 0 en sortie pour indiquer que l'erreur a été traitée, afin dd'éviter les exceptions.

[Coussati]

fonctionne pas

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode := 0;
end;