Exemple : Envoyer un message du poste client vers le poste serveur
L'exemple suivant permet d'envoyer un message Windows personnalisé du poste client vers le poste serveur et de récupérer ce message sur le poste serveur grâce à la fonction
Evénement.
// Sur le poste client
ConnectRPC est un entier
ConnectRPC = NetConnecte("148.61.125.245", ServeurRPC, "GUEST", "")
...
// Coté client : envoi d'un message Windows au serveur
NetEnvoieMessage(ConnectRPC, "MonMessage")
// Sur le poste serveur
Evénement("RéceptionMessage", "*.*", "MonMessage")
// Procédure RéceptionMessage
PROCÉDURE RéceptionMessage()
Trace("Message reçu")
...
NetEnvoieMessageClient(idServeur, "Reçu", 0, 0)