programme de chat avec delphi !-Partie 2-

le server:
dans un nouveau projet ,ajouter au form le composant serversocket de internet(palette de composants)
changer le port de server par le meme numero que  avez posez  dans la partie client,changer le caption de form en 'chat(server) 0.0.1' ,double clique sur form et ajouter ce code la

Form1.caption:='chat(server)...entend pour connecter';

serversocket1.active:='true';

explication du code quand on ouvre le server attend la connexion d'un client et la question est comme il sait qu' un client est connecte

quand on a programme la partie client on a ajoute au evenement onconnect  un code qui permert de connaitre qu on est connecte

maintenant on fait la meme chose pour le server ,un clique sur serversocket puis evenement On ClientConnect et ajouter ce code :

Form1.caption:='chat1 est connecte';

comme ça on va savoir que le client est connecte

ajoutez ce code dans evenement On ClientDisConnect

Form1.caption:='chat1 est deconnecte';

et dernierement ajouter ce code dans evenment On Client Error

Form1.caption:='chat1..erreur de connexion';

comme ça on a termine la partie server il nous reste  maintenant la forme finale de notre projet