PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → Connexion DDE avec projet visual basic
Connexion DDE avec projet visual basic
Started by michel-gasiglia, Apr., 06 2006 5:43 PM - 1 reply
#1
Posted on April, 06 2006 - 5:43 PM
J'ai un problème de connexion entre un champ label d'une application VB et Windev.
j'arrive à lancer l'application à l'aide de DDElance mais je n'arrive pas à me connecter avec
DDEConnecte.
Comment si prend on, et quels sont les paramètres à passer ?
Si quelqu'un a une réponse, merci d'avance
#2
Posted on April, 07 2006 - 7:37 PM
voici une partie du source lien DDE
// --------------------------------------------------------------------------------------
// LANCER GRAVE.EXE
// --------------------------------------------------------------------------------------
SI PAS ExeLancé(gsNomProgGrave) ALORS
SI PAS LanceAppli(gsNomProgGrave,exeIconise,exeNonBloquant,gsNomRepBL) ALORS
Erreur("Le programme d'acquisition n'a pas été lancé : ", ErreurInfo ())
RETOUR
FIN
FIN

// --------------------------------------------------------------------------------------
// ATTENDRE QUE GRAVE.EXE SOIT LANCE EFFECTIVEMENT
// --------------------------------------------------------------------------------------
BOUCLE
SI PAS ExeLancé(gsNomProgGrave) ALORS
Multitâche(50)
SINON
SORTIR
FIN
FIN
// --------------------------------------------------------------------------------------
// OUVRIR LE CONNEXION DDE EVEC GRAVE.EXE
// --------------------------------------------------------------------------------------
// nom de l'exe, nom de la feuille
gnNumConnexionGrave = DDEConnecte ("GRAVE", "ACQGRAVE")
SI gnNumConnexionGrave = 0 ALORS
plErreurDDE(DDEErreur(),gnNumConnexionGrave,1)
RETOUR
FIN

// --------------------------------------------------------------------------------------
// SE METTRE EN ATTENTE D'UNE MODIFICATION DU DEBIT TOTAL DE LA FENETRE D'ACQUISITIONS
// --------------------------------------------------------------------------------------
// PROCEDURE A EXECUTER EN CAS DE MODIFICATION DANS LA FENETRE VB
DDEEvénement("plAcquisitionTrameDDE", DDEAModifier)

// LIER LES CHAMPS DE LA FENETRE D'ACQUISITION
DDELien(gnNumConnexionGrave, "txtCompteur")
→ Go back to WINDEV 2024