Communication OLE VB.NET [Résolu]

Messages postés
4
Date d'inscription
mardi 6 avril 2004
Dernière intervention
16 novembre 2005
- - Dernière réponse : cs_GLANDU
Messages postés
3
Date d'inscription
jeudi 30 janvier 2003
Dernière intervention
14 février 2008
- 14 févr. 2008 à 23:42
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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
3
Date d'inscription
jeudi 30 janvier 2003
Dernière intervention
14 février 2008
3
Merci
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

Dire « Merci » 3

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

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.