REDHOT!!!Moi aussi jai un logiciel de chat qui me mais asynchrone10053
mais en + y marche pô !!
-------------------------------
Réponse au message :
-------------------------------
> Phear> aurais-tu mal lu mes réponses précédentes? g un case qui traite les erreurs sockets donc je ne vois pas en quoi "elles n'expliquent pas d'où ça vient ni pourquoi elle a été déclenchée". Bien au contraire c assez précis comme cela!
>
>
> Visitez http://www.visiomaster.net :)
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> salut, j'ai créé un chat en delphi avec ces même composants, tu peux consulter les executables sur mon site http://phear.fr.st
> par contre, en effet j'ai eu le même problème que toi concernant l'erreur socket 10053, les solutions précédentes permettent en effet de ne pas montrer l'erreur mais elles n'expliquent pas d'où ça vient ni pourquoi elle a été déclenchée... par ailleurs, le serveur du chat que j'ai fais n'est pas multi-thread, l'erreur "asynchrone" vient peut-être de là...
>
> pHeAr
>
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Mon projet de chat n'est pas pret de sortir, je suis en train d'apprendre le multhreading pour le server... ensuite je verrai si je souhaite faire paraître la source mais a mon avis, pas entiere!!!
>
> Visitez http://www.visiomaster.net :)
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Dépêches toi de mettre ton source. J'ai un projet de chat aussi je voudrais bien voir les possibilités que tu proposes.
>
> Bonne prog.
>
>
Bruto --- Le p'tit belge --- pour vous servir
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Perso j'utilise l'evennement du composant TServerSocket de la facon suivante :
>
> procedure TServerForm.ServerSocket1ClientError(Sender: TObject;
> Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
> var ErrorCode: Integer);
> var Rapport : String;
> begin
> Case ErrorEvent Of
> eeGeneral : Rapport := 'Erreur inattendu '+Socket.RemoteAddress;
> eeSend : Rapport := 'Erreur d''écriture sur la connexion socket'+Socket.RemoteAddress;
> eeReceive : Rapport := 'Erreur de lecture sur la connexion socket'+Socket.RemoteAddress;
> eeConnect : Rapport := 'Une demande de connexion déjà acceptée n''a pas pu être achevée'+Socket.RemoteAddress;
> eeDisconnect : Rapport :='Erreur de fermeture d''une connexion'+Socket.RemoteAddress;
> eeAccept : Rapport := 'Erreur d''acceptation d''une demande de connexion cliente'+Socket.RemoteAddress;
> else
> end;
>
> AddInfo(Rapport);
> ErrorEvent := Null;
> ErrorCode := 0;
> end;
>
> les 2dernieres lignes permettent de pas generer d'erreur comme ca a dieu aux messages dlg un peu génantes dans le cadre d'un server autonome :)
>
> Visitez http://www.visiomaster.net :)
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Une solution est d'utiliser un TApplicationEvents, puis de mettre dans l'évenement OnException :
> procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
> E: Exception);
> begin
> If Not (E Is ESocketError ) Then ShowException(E,ExceptAddr);
> end;
>
> Ce n'est pas la meilleure méthode, mais ça fonctionne...
>
> ---
Nono du Moulin
---
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> J'ai créer un chat en delphi avec les composant ClientSocket et ServerSocket. Mais il y a encore kelke erreur comme quand un client se déconnecte sa fait une erreur sur le server : "Erreur socket asynchrone 10053". J'aimerais savoir comment faire pour ignorer l'erreur, car le programme marche!
>
> MERCI a vous a+ ;)
> Lanosic
>
>
>
>
>
>