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;