Exemple : Envoyer un message du poste serveur vers les postes clients
Dans l'exemple suivant, le poste client envoie un message au poste serveur (fonction
NetEnvoieMessage). Ce message est traité par le serveur (procédure RéceptionMessage). Le serveur indique ensuite au poste client que le message a bien été reçu (fonction
NetEnvoieMessageClient).
La gestion des messages est réalisée grâce à la fonction Evénement.
// Sur le poste client
ConnectRPC est un entier
ConnectRPC = NetConnecte("148.61.125.245", ServeurRPC, "GUEST", "")
...
// Code d'initialisation de la fenêtre "FEN_ClientRPC"
Evénement(Reçu_Event, "FEN_ClientRPC", "Reçu")
// Côté client : envoi d'un message au serveur
NetEnvoieMessage(ConnectRPC, "MonMessage")
// Procédure Reçu_Event
PROCÉDURE Reçu_Event()
Message("Message ""reçu"" envoyé par le serveur")
// Sur le poste serveur
Evénement(RéceptionMessage, "*.*", "MonMessage")
// Procédure RéceptionMessage
PROCÉDURE RéceptionMessage()
Message("Message reçu")
...
NetEnvoieMessageClient(IDServeur, "Reçu", 0, 0)