hardouz
Messages postés196Date d'inscriptionjeudi 22 février 2007StatutMembreDernière intervention26 novembre 2009
-
26 juil. 2007 à 04:47
dominique.stock
Messages postés436Date d'inscriptionvendredi 7 novembre 2003StatutMembreDernière intervention 8 octobre 2008
-
31 juil. 2007 à 11:17
salut je vien de creé un mini CHAT local avec les composant SOCKETSERVER et SOCKETCLIENT et ca marche parfait ^_^ .
maintenant j'ai penser a me developper un peut en realisant ce chat sur le NET mais j'en ai aucune ideé :(
merci a tous ceux qui m'aident
amelrc
Messages postés41Date d'inscriptionlundi 25 juin 2007StatutMembreDernière intervention29 août 2010 29 juil. 2007 à 09:54
salut;
si, je connais ce que c'est qu'une socket, j'ai déja travaillé avec les socket mais en langage JAVA mais ça fait longtemps... donc j'ai oublié...
merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
hardouz
Messages postés196Date d'inscriptionjeudi 22 février 2007StatutMembreDernière intervention26 novembre 2009 29 juil. 2007 à 14:32
Ok je te donne quelque base :)
//NB: Ctrl+espace pour afficher qq aides de code
-------------------
SocketServer
-------------------
Socketserver1.port:=555; // port dont il va se connecter exemple le 555 ta le choix en type word
Socketserver1.Open ; //Connection
For i:=1 to (toute les postes)
Socket1server1.Connection[i].sendText('Salut'); //envoi un message a tt les clients
Socket1server1.Connection[0].sendText('Salut');//si ta un seul Client par defaut sont numéro est 0
------------pour la reception d'un message---------------
procedure TForm1.SocketServerAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Showmessage(Socket.receiveTEXT);
ShowMessage('merci a hardouz');
end;
----------------------------------------------------------
-------------------
SocketClient
-------------------
SocketClient.Port:=555//celui du serveur il faut metre les meme port
SocketClient.host:='nom du PC ou le serveur est connecter'; exemple 'monPC';
SocketClient.Open; //Connection
SocketClient.Socket.Socket.SendText('salut server');//envoyer un message
------------pour la reception d'un message---------------
procedure TForm1.SocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Showmessage(Socket.receiveTEXT);
ShowMessage('merci a hardouz');
end;
-----------------------------------------------------------
-----------------------------------------------------------------------------
et voili voilou tas qq base mnt tu peut contunué tt seul
Bonne prog
hardouz
Messages postés196Date d'inscriptionjeudi 22 février 2007StatutMembreDernière intervention26 novembre 2009 29 juil. 2007 à 14:35
oups j'ai fais une ptite faute la ;
For i:=1 to (toute les postes)
Socket1server1.Socket.Connection[i].sendText('Salut'); //envoi un message a tt les clients
Socket1server1.Socket.Connection[0].sendText('Salut');//si ta un seul Client par defaut sont numéro est 0
dominique.stock
Messages postés436Date d'inscriptionvendredi 7 novembre 2003StatutMembreDernière intervention 8 octobre 20087 31 juil. 2007 à 11:17
Bonjour,
Pour info, éviter les port inférieurs à une certaine valeur .... (je ne m'en souviens plus ) mais 555 c'est dedans ....
Prenez plutôt dans les milliers ....
Car il y a des ports réservés (déjà utilisés)