 |
Publicité 
|
Pour envoyer un message par IP avec Delphi, vous avez besoin de 2 composants qui se trouvent tout les deux dans FastNet :
NMMsg
NMMsgServ
Tout d’abord nous allons voir les propriétés nécessaires à l’envoie de message.
- NMMsg :
FromName : chaîne de caractères identifiant l’expéditeur du message.
Host : adresse IP ou nom de l’ordinateur à qui vous voulez envoyer le message.
Port : ici 6711.
TimeOut : temps d’attente de réponse au bout duquel une exception est déclenchée pour abandonner l’opération en cours. Si TimeOut est égale à 0 aucune exception est déclenchée.
- NMMsgServ :
Port : 6711.
TimeOut : idem que pour NMMsg.
Voilà les changements de propriétés à faire. Maintenant nous pouvons voir la ligne de commande qui affiche les messages reçus.
Pour NMMsg il faut, par exemple, mettre dans l’événement Click d’un bouton, la ligne de commande suivante :
NMMsg.PostIt = : ( « MESSAGE « ) ;
Maintenant celle qui réceptionne et affiche les messages envoyés. La ligne de commande est à mettre dans l’événement OnMsg de NMMsgServ.
Si vous mettez le message dans un memo :
Memo1.Lines.Add(sFrom + sMsg ) ;
Si vous mettez le message dans un Edit :
Edit1.Text := sFrom + sMsg ;
sFrom : correspond à FromName de l’expéditeur.
sMsg : correspond au message reçu.
Pour essayer d’envoyer un message, il suffit de créer un nouveau projet, de mettre 2 Edit pour l’ hôte et l’autre pour le nom de celui qui envoie le message, un mémo pour afficher le message et les 2 composants. Changez les propriétés puis tapez les lignes de code. Attention pour émettre des messages le programme doit être présent sur l’ordinateur réceptionnant le message.
|
