Science!: programme de chat avec delphi !-Partie 2-

Science!: 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...

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

programme de chat avec delphi !

1-  il repose sur le composant serversockets  et clientsockets,ces composants serent a reliee 2 pc .
dans la version de delphi 6  on trouve ces 2 composants installe avec le logiciel mais avec delphi 7 il faut les installer pour pour ça il faut proceder comme suit:
ouvre delphi /composant/installer des paquets/options de projets/ajouter  et on ajoute
dclsockets70.bpl ce dernier on le trouve dans bin du delphi

2-les conditions necessaires pour le connections de 2 pc:
1     IP: est un nombre variable c est dire il change a chaque fois que tu connecte a l internet,il definit votre pc comme le matricule des voitures ou le numero de telephone ...,et dans le cas ou le pc n est pas connecter a l internet leur ip sera 127.0.0.1(ip local).
il y a un autre ip ,ip externe, on utilise ce dernier lorsque on besoin de relier 2 pc par internet
il est compose de 4 colone 255.255.255.255 la premiere colone definit le pays ,la  2 eme est pour le fournisseur du service d internet et comme ça qu ils peuvent vous localiser
2    port: comme leur nom l indique est un petit canal qu'on l utilise pour echange des information entre le server et le client
apres cette petite introduction on commence le travaille
ouvre une nouvelle application delphi
on trouve les 2 composants dans la palette des composants/ internet .

3- on travaille sur client :
preparez cette structure pour votre form client

et on change le texte de notre composant edit comme ça:

on a termine avec notre form maintenant  il nous reste la configuration clientsocket
cliquez une celle fois sur le composant clientsocket pour quelle soit active apres dans leur propriete port ajouter 1213 ou n'importe quelle numero que tu veux et ce dernier sera votre port de communication

maintenant double clique sur boutton1 ou le boutton de communication et on travaille sur le code

clientsocket1.Address:=edit1.Text ;

clientsocket1.Active:=true ;
le premier code est pour adresse de communication ou IP
et le 2eme code est pour activer la connection

on passe au boutton de deconnection double clique:
clientsocket1.Active:=false ;
mets le boutton de deconnection inactif comme suit:

j ai mets le boutton inactif parce que j ai pas besoin de lui tant que je me suis pas connete
on revient a clientsocket unee autre fois
un seul clique sur clientsocket
ouvre la  classe d' evenements

 A/OnConnect
double clique sur OnConnect (partie blanche) et ajouter ce code la :

note:mets speedbouton si tu as utilise le composant speedbouton et bouton si tu as utilise le composant bouton
explication du code
la premiere  ligne :on informe utilisateur que la connection est faite
la 2eme ligne: on desactive le bouton 1 parce que on a besoin de lui car on est connecte
la 3 eme ligne: on active le bouton 2 car on est connecte


B/ OnConnecting
double clique sur evenement onconnecting et mets ce code

Fr_client.caption:='chat 0.0.1...connection en ligne...';

speedboutton1.enabled:=false;

speedboutton2;enabled:=true;

le code est clair

C/OnDisconnect

double clique sur evenement ondisconnet et mets ce code :

Fr_client.caption:='chat 0.0.1...Deconnecter';

speedboutton1.enabled:=true;

speedboutton2;enabled:=false;

tout est clair

D/OnError

Fr_client.caption:='chat 0.0.1...erreur de connection';

speedboutton1.enabled:=true;

speedboutton2;enabled:=false;

on a terminer la premiere  partie de notre petit programme ,sauvegarder votre projet dans un dossier (nom client)
et attendez moi dans la deuxieme partie merci