Communication OLE VB.NET [Résolu]

Signaler
Messages postés
4
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
16 novembre 2005
-
Messages postés
3
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
14 février 2008
-
Bonjour, je souhaiterai récupéré des informations en temps réel d'un logiciel de supervision PCVUE afin de stocker des données dans différentes bases de données.

Mon problème est que je ne sais pas du tout comment faire en .NET pour accéder à ces données car apparement c'est du DDE.

Comment faire pour accéder aux composants OLE ?

Si vous aviez des exemple ça m'intéresse énormémént car je coince vraiment.

Merci de votre aide

1 réponse

Messages postés
3
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
14 février 2008

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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci