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


Cet exemple de code est composé :

- d'un code client permettant de lancer le serveur DDE, d'envoyer et de récupérer des informations.

- d'un code serveur correspondant aux différentes procédures du serveur DDE.



// Exemple de client
// Connexion
 NumConnexion est un entier
DDELance(NomServeur)
NumConnexion = DDEConnecte (NomServeur, "MonSujet")
// Préparation à la réception des messages
// Traité dans la procédure MODIF
 DDEEvénement("MODIF", DDEAModifier )
// ...
// Exécute une action par le serveur
 DDEExécute(NumConnexion, "EXE1")
SI DDERécupère(NumConnexion, "Item1") ALORS
  Info("La donnée récupérée est" + DDEChaîne())
FIN
//...
// Envoie une valeur
 DDEEnvoie(NumConnexion, "Item2", Valeur)
//...
// Déconnexion
 DDEDéconnecte(NumConnexion)

// Exemple de serveur
// Préparation à la réception des messages
DDEEvénement ( "ARépondre" , DDEARépondre )
DDEEvénement ( "ARecevoir" , DDEARecevoir )
DDEEvénement ( "AExécuter" , DDEAExécuter )

// Dans le serveur
// Procédure AExécuter pour faire exécuter un traitement
 SI _DDE.Sujet = "MonSujet" ET _DDE.Chaîne = "Exce1" ALORS
    _DDE.Cr = 1
   // Traitement
 SINON
    _DDE.Cr = 0
 FIN
 // Dans le serveur
 // Procédure ARépondre pour récupérer une valeur
 SI _DDE.Sujet = "MonSujet" ET _DDE.Item = "Item1" ALORS
   _DDE.Cr = 1
   _DDE.Chaîne = ValeurRetour
 SINON
   _DDE.Cr = 0
 FIN
 // Procédure ARecevoir pour envoyer une valeur
 SI _DDE.Sujet = "MonSujet" ET _DDE.Item = "Item2" ALORS
   _DDE.Cr = 1
    Info ( "Valeur reçue" + _DDE.Chaîne )
 SINON
   _DDE.Cr = 0
 FIN