Connexion à un serveur DDE
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.
// 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écuter 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
// ...
// Envoi d'une valeur
DDEEnvoie(NumConnexion, "Item2", Valeur)
// ...
// Déconnexion
DDEDéconnecte(NumConnexion)