pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


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
hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurRPC , "GUEST", "")
...
// Code d'initialisation de la fenêtre "ClientRPC"
Evénement("Reçu_Event", "ClientRPC", "Reçu")

// Côté client : envoi d'un message au serveur
NetEnvoieMessage(hConnect, "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)