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.
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)
|