Discussion :

[pdgnr]

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...

Merci d'avance,

Robert

[ALWEBER]

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.

[pdgnr]

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

[ALWEBER]

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.

[Reisubar]

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

[pdgnr]

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

[Reisubar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
LCommand := AContext.Connection.ReadLn();
if LCommand = 'SAYHELLO' then
begin
  //faire quelque chose
end;

[pdgnr]

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

[pdgnr]

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

[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 :-)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

AContext.Connection.WriteLn('BIEN_RECU');

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

etc.

[pdgnr]

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!

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

Cordialement,

Robert