Fonctions DDE

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

DDEChaine (en anglais DDEString)

// 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

Début de la page

DDEConnecte (en anglais DDEConnect)

// Ouverture d'une connexion DDE
NumConnexion= DDEConnecte (NomServeur, "MonSujet")

Début de la page

DDEDeconnecte (en anglais DDEDisconnect)

Connexion = DDEConnecte("Excel", Sujet) // Connexion
Compteur = 3      // Répète 3 fois si nécessaire
BOUCLE            // Envoie les données
  SI DDEEnvoie(Connexion, Item, Data, 10) ALORS SORTIR
   Compteur --
SI Compteur = 0 ALORS
      Erreur("L'information n'a pas pu être envoyée à Excel")
      SORTIR
FIN
FIN
DDEDéconnecte (Connexion)    // Déconnexion

Début de la page

DDEDestinataire (en anglais DDERecipient)

// Ouverture d'une connexion DDE
NumConnexion = DDEConnecte(NomServeur, "MonSujet")
...

// Destinataire de la connexion en cours
ResDestinataire = DDEDestinataire (NumConnexion)

Début de la page

DDEEnvoie (en anglais DDESend)

Connexion = DDEConnecte("Excel", Sujet) // Connexion
Compteur = 3      // Répète 3 fois si nécessaire
BOUCLE       // Envoie les données
    SI DDEEnvoie (Connexion, Item, Data, 10) ALORS SORTIR
    Compteur --
    SI Compteur = 0 ALORS
        Erreur("L'information n'a pas pu être envoyée à Excel")
        SORTIR
    FIN
FIN
DDEDéconnecte(Connexion)    // Déconnexion

Début de la page

DDEErreur (en anglais DDEError)

// Connexion
Connexion = DDEConnecte("Excel", Sujet)
// Erreur rencontrée ?
SI Connexion = 0 ALORS
   SELON DDEErreur ()
     CAS 1 : Erreur("Erreur d'initialisation")
     CAS 6 : Erreur("Le destinataire est inconnu")
   FIN
FIN

Début de la page

DDEEvenement (en anglais DDEEvent)

// Provoquer l'appel de la procédure "ReceptionDonnée" chaque fois que le
// programme reçoit une donnée envoyée par DDE par une autre application
DDEEvénement ("ReceptionDonnée", DDEARecevoir )
PROCEDURE ReceptionDonnée
SI (_DDE.Sujet = "MonSujet") ET (_DDE.Item = "MonItem") ALORS
    _DDE.Cr = 1
    Info("Donnée reçue : " + _DDE.Chaîne)
SINON
    _DDE.Cr = 0
FIN

Début de la page

DDEExecute (en anglais DDEExecute)

Connexion = DDEConnecte("Excel", "System")
DDEExécute (Connexion, "[Erreur(Faux)]")
// Terminer Excel
DDEExécute (Connexion, "[QUITTER()]")
DDEDéconnecte(Connexion)

Début de la page

DDEFinLien (en anglais DDEUnLink)

Connexion = DDEConnecte("Excel", "Feuille1")
// Idem pour DDELienTiède
DDELien(Connexion, "L1C1", 1)
// Opérations diverses
// ...
DDEFinLien (Connexion, "L1C1", 1)

Début de la page

DDEItem (en anglais DDEItem)

// Équivalent à : Item = _DDE.Item
Item = DDEItem ()

Début de la page

DDELance (en anglais DDEStart)

// Lancement du bloc-notes avec le mode par défaut
DDELance ("NOTEPAD.EXE Lisezmoi.txt")

Début de la page

DDELien (en anglais DDELink)

Connexion = DDEConnecte("Excel", "Feuille1")
DDEEvénement("ProcModif", DDEAModifier )
DDELien (Connexion, "L1C1", 1)

Début de la page

DDELienTiede (en anglais DDEWarmLink)

Connexion = DDEConnecte("Excel", "Feuille1")
DDEEvénement("ProcModif", DDEAModifier )
DDELienTiède (Connexion, "L1C1", 1)

Début de la page

DDEModifie (en anglais DDEUpdate)

DDEEvénement("ProcLier", DDEALier )
DDEModifie ("MonSujet", "MonItem", "abcd")

Début de la page

DDERecupere (en anglais DDERetrieve)

DDEExécute(NumConn, "EXE1")
SI DDERécupère (NumDDE, "Item1") ALORS
Info("La donnée récupérée est : " + DDEChaîne())
FIN

Début de la page

DDESujet (en anglais DDETopic)

// Ouverture d'une connexion DDE
NumConnexion = DDEConnecte(NomServeur, "MonSujet")

...

// Sujet de la conversation ?
Sujet = DDESujet (NumConnexion)

Début de la page