Communication OLE VB.NET
Résolu
loicblaise
Messages postés
4
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
16 novembre 2005
-
16 nov. 2005 à 18:56
cs_GLANDU Messages postés 3 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 14 février 2008 - 14 févr. 2008 à 23:42
cs_GLANDU Messages postés 3 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 14 février 2008 - 14 févr. 2008 à 23:42
1 réponse
cs_GLANDU
Messages postés
3
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
14 février 2008
14 févr. 2008 à 23:42
14 févr. 2008 à 23:42
Bonsoir , je récupére des valeurs de variables de PCVUE par DDE , moi j'ai utilisé Windev car je doit charger une base de donnée externe et c'est plus facile en windev (pour moi) mais sinon .
il faut utiliser comme SUJET DDE : DB et DESTINATAIRE DDE : SV32 puis le nom des variables telle quelles sont écrit dans la base de PCVUE ( DOMAINE.NATURE.VARIABLE)
en gros il faut initialiser une connexion DDE , puis un timer va périodiquement lancer une procedure de lecture ou d'ecriture ..
en WINDEV-----------------------------------------------
DDELance("SV32")
Connexion = DDEConnecte("SV32","DB")
SI Connexion = 0 ALORS
ERR_DDE= DDEErreur(Connexion)
Info ("Erreur de communication avec PC-VUE","Connection DDE N° : " + Connexion , "Erreur DDE N° : " + ERR_DDE ,"Vérifiez que le Superviseur est en service")
FIN
DDE_D est une chaîne
DDE_D = DDEDestinataire(Connexion)
DDE_S est une chaîne
DDE_S = DDESujet(Connexion)
//-------------------------------------------------------------------------------------------
TT = Timer(LectureDDE,TOP,3)
//-------------------------------------------------------------------------------------------
PROCEDURE LectureDDE()
DDEEvénement("ProcModif", DDEAModifier)
DDELien(Connexion, " SYNOPTIQUE.TITRE ", 1) "SYNOPTIQUE.TITRE est une variable texte de PCVUE qui est lue"
DDERécupère(Connexion, "SYNOPTIQUE.TITRE")
CONS_Titre = DDEChaîne(Connexion)
LIB_Titre = CONS_Titre
DDELien(Connexion, " SYNOPTIQUE.CODE ", 1)
DDERécupère(Connexion, "SYNOPTIQUE.CODE")
CONS_CODE = DDEChaîne(Connexion)
LIB_CODE= CONS_CODE
DDELien(Connexion, " SYNOPTIQUE.NBCONS ", 1)
DDERécupère(Connexion, "SYNOPTIQUE.NBCONS")
CONS_NB = DDEChaîne(Connexion)
DDELien(Connexion, "SYNOPTIQUE.CONSIGNE", 1)
DDERécupère(Connexion, "SYNOPTIQUE.CONSIGNE")
CONS_BIT = DDEChaîne(Connexion)
//--------------------------------------------------------------------------------------
Table..Filtre=CONS_CODE
CONS_NB = TableOccurrence(Table)
LIB_NB = CONS_NB
DDEEnvoie(Connexion, "SYNOPTIQUE.NBCONS", LIB_NB, 5)
" la je vais écrire un nombre (LIB_NB) dans la variable de PCVUE : SYNOPTIQUE.NBCONS"
//--------------------------------------------------------------------------------------
Voila j'espére que cela vous sera Utile !!
A+
Glandu
il faut utiliser comme SUJET DDE : DB et DESTINATAIRE DDE : SV32 puis le nom des variables telle quelles sont écrit dans la base de PCVUE ( DOMAINE.NATURE.VARIABLE)
en gros il faut initialiser une connexion DDE , puis un timer va périodiquement lancer une procedure de lecture ou d'ecriture ..
en WINDEV-----------------------------------------------
DDELance("SV32")
Connexion = DDEConnecte("SV32","DB")
SI Connexion = 0 ALORS
ERR_DDE= DDEErreur(Connexion)
Info ("Erreur de communication avec PC-VUE","Connection DDE N° : " + Connexion , "Erreur DDE N° : " + ERR_DDE ,"Vérifiez que le Superviseur est en service")
FIN
DDE_D est une chaîne
DDE_D = DDEDestinataire(Connexion)
DDE_S est une chaîne
DDE_S = DDESujet(Connexion)
//-------------------------------------------------------------------------------------------
TT = Timer(LectureDDE,TOP,3)
//-------------------------------------------------------------------------------------------
PROCEDURE LectureDDE()
DDEEvénement("ProcModif", DDEAModifier)
DDELien(Connexion, " SYNOPTIQUE.TITRE ", 1) "SYNOPTIQUE.TITRE est une variable texte de PCVUE qui est lue"
DDERécupère(Connexion, "SYNOPTIQUE.TITRE")
CONS_Titre = DDEChaîne(Connexion)
LIB_Titre = CONS_Titre
DDELien(Connexion, " SYNOPTIQUE.CODE ", 1)
DDERécupère(Connexion, "SYNOPTIQUE.CODE")
CONS_CODE = DDEChaîne(Connexion)
LIB_CODE= CONS_CODE
DDELien(Connexion, " SYNOPTIQUE.NBCONS ", 1)
DDERécupère(Connexion, "SYNOPTIQUE.NBCONS")
CONS_NB = DDEChaîne(Connexion)
DDELien(Connexion, "SYNOPTIQUE.CONSIGNE", 1)
DDERécupère(Connexion, "SYNOPTIQUE.CONSIGNE")
CONS_BIT = DDEChaîne(Connexion)
//--------------------------------------------------------------------------------------
Table..Filtre=CONS_CODE
CONS_NB = TableOccurrence(Table)
LIB_NB = CONS_NB
DDEEnvoie(Connexion, "SYNOPTIQUE.NBCONS", LIB_NB, 5)
" la je vais écrire un nombre (LIB_NB) dans la variable de PCVUE : SYNOPTIQUE.NBCONS"
//--------------------------------------------------------------------------------------
Voila j'espére que cela vous sera Utile !!
A+
Glandu