Utiliser TCP/IP

Bonjour à tous,
j'ai deux applis Delphi qui peuvent cohabiter sur le même PC ou être sur deux PC différents. Ces deux applis ont besoin d'échanger des messages très courts d'environ une vingtaine de caractères. J'ai pensé à utiliser TCP/IP mais... je nage! D'abord, est-ce que c'est une bonne idée et ensuite y-a-t-il un tutorial ou un exemple simple se rapprochant de ce que je veux faire?
Je dois avouer que je n'ai pas trouvé, mais j'ai peut-être pas su chercher...:oops:

Merci d'avance,

Robert

Regardes dans le dossier CHAT qui est contenu dans ton installation de delphi ('C:\Program files\Borland\....'). Tu trouveras les premiers éléments de réponse.

Merci...
j'y cours et je reviens...

Petite info. Si tu veux tester l'envoi et la réception via TCP/IP dans une même application. L'un des deux codes doit être mis dans un thread.

Regarde du côté des composants Indy. Il y a des tutoriels sur ce site, ils ne sont pas très compliqués à utiliser.

Merci, je n'y connais pas grand chose, mais c'est ce qui a l'air d'être fait dans l'exemple dont tu m'as parlé...
Mon besoin est beaucoup plus simple: il y a un programme qui "cause", et l'autre qui écoute...
Ce n'est pas gagné pour autant, surtout que, quand ça ne veut rien savoir, c'est difficile de déterminer si c'est l'émetteur ou le récepteur qui est en cause...
Enfin... faut bien commencer un jour...!:roll:

Le programme qui écoute sera le programme qui embarquera le serveur (IdTCPServer). Le programme qui "cause" sera le programme qui embarquera le client (IdTCPClient). Les deux doivent dialoguer sur un même port afin que la communication se passe. Voilà un petit synopsis de communication (à deux balles, je sais) :

Client:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

with TIdTCPClient1 do begin Host := '127.0.0.1'; //Machine locale Port := 7007; //Canal de communication choisi arbitrairement Connect; //Tente de se connecter au serveur try WriteLn('SAYHELLO'); //Envoie la chaine "SAYHELLO" au serveur finally Disconnect; //Déconnexion serveur end; end;

---

Serveur, dans la procédure OnExecute :

Code:

---

1 2 3 4 5 6

LCommand := AContext.Connection.ReadLn(); if LCommand = 'SAYHELLO' then begin //faire quelque chose end;

---

Merci beaucoup pour le "truc à deux balles". Je n'ai pas besoin de quelque chose de plus sophistiqué! Je cours essayer de suite!

Cordialement,

Robert

Pas de problème! c'est simple et ça fonctionne! Encore merci...
Une dernière question, tant que j'y suis : est-ce qu'un serveur sait aussi répondre, ou bien est-ce qu'il faut inverser les rôles ? (Par exemple si le serveur doit traiter les données et renvoyer un résultat).

Cordialement,

Robert

Un serveur sait bien sûr répondre. Regarde: quand ton client Web demande une page web sur Developpez.com, la page t'es renvoyé en répose sans que tu aie besoin de devenir serveur Web entre temps :-)

Pour que le serveur réponde, il faut utiliser les méthodes WriteLn(), Write(), etc. de l'objet Connection ou IOHandler du contexte courant :

Code:

---

AContext.Connection.WriteLn('BIEN_RECU');

---

Côté client, il suffit alors d'utiliser la méthode ReadLn pour lire la réponse serveur :

Code:

---

1 2	LResponse = ReadLn(); if LResponse = 'BIEN_RECU' then...

---

etc.

Citation:

---

Envoyé par Reisubar

Un serveur sait bien sûr répondre. Regarde: quand ton client Web demande une page web sur Developpez.com, la page t'es renvoyé en répose sans que tu aie besoin de devenir serveur Web entre temps :-)

---

Autant pour moi...! Tu as raison, ma question était idiote! :oops:

Merci beaucoup pour ton aide, j'ai maintenant tout ce qu'il me faut...

Cordialement,

Robert