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.
|
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
hConnect est un entier hConnect = NetConnecte("148.61.125.245", ServeurRPC , "GUEST", "") ... // Coté client : envoi d'un message Windows au serveur NetEnvoieMessage(hConnect, "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)
|
Auteur: Patrick Biker