Client avec OPC Schneider

**Moscade** · 10/07/2014, 09h32

Bonjour à tous,

Le sujet a été abordé plusieurs fois mais je bloque depuis plusieurs jours sur l'ajout d'un item dans un groupe

voici le code que j'utilise pour mon client OPC:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
//Création de la connection au Serveur OPC
gautOPCFactoryServer est un objet Automation "Schneider-Aut.ofsAut"
 
// Ajout d'un Groupe au Serveur OPC
gpautGroupeOPC est un objet Automation dynamique
gsNameGroup est une chaîne					//In: Nom Du Groupe
gbValide est un booléen						//In: Groupe Actif/Inactif
gnRequestedUpdateRate est un entier			//In: Periode de Lecture du Groupe en ms
gnClientGroupHandle est un entier			//In: Handle Client
gxPercentDeadband est un numérique			//In: Pourcentage d'utilisation de la bande passante
gnLCID est un entier						//In: Id de la langue
gnServerGroupHandle est un entier			//Out: Handle Serveur
gnRevisedUpdateRate est un entier			//Out: Periode de rafraichissement du serveur
 
gpautGroupeOPC = allouer un objet Automation  "Schneider-Aut.ofsAut"
gsNameGroup="Main"
gbValide=False
gnRequestedUpdateRate=1000
gnClientGroupHandle=1
gxPercentDeadband=1.0
gnLCID=1024
 
gpautGroupeOPC = gautOPCFactoryServer>>AddGroup(gsNameGroup,gbValide,gnRequestedUpdateRate,gnClientGroupHandle,1,gnLCID,gnServerGroupHandle,gnRevisedUpdateRate) 
 
//Ajout d'un Item au groupe
gtabItemOPC est un objet Automation  dynamique
 
gnNbItems est un entier
gtabNameItem est un tableau de 1 chaînes
gtabClientHandle est un tableau de 1 entiers
gtabItemsActive est un tableau de 1 booléens
gtabItemsClientHdls est un tableau de 1 entiers
gtabItemsSvrHdls est un tableau de 1 Variants
gtabItemsErrors est un tableau de 1 Variants
 
gnNbItems=1
gtabNameItem[1]= "Automate!%MD302"   
gtabClientHandle[1]=1
gtabItemsActive[1]=Vrai
gtabItemsClientHdls[1]=1
 
gtabItemOPC=gpautGroupeOPC>>AddItems(gnNbItems,gtabNameItem,gtabItemsActive,gtabItemsActive,gtabItemsClientHdls,gtabItemsSvrHdls,gtabItemsErrors)     <-- Blocage Ici :(

J'ai le message d'erreur suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Erreur à la ligne 44 du traitement Déclarations globales de FEN_Principale.
Vous avez appelé la méthode Automation 'AddItems'.
Erreur 80020006, Nom inconnu
 
----- Informations techniques -----
 
Projet : OPC Schneider
 
Appel WL :
Traitement de 'Déclarations globales de FEN_Principale' (FEN_Principale), ligne 44, thread 0
 
Que s'est-il passé ?
Vous avez appelé la méthode Automation 'AddItems'.
Erreur 80020006, Nom inconnu
 
Code erreur : 2205
Niveau : erreur fatale (EL_FATAL)
 
Dump de l'erreur du module 'wd190vm.dll' (19.0.176.0).
Identifiant des informations détaillées (.err) : 130001
Informations supplémentaires :
EIT_PILEWL :
Déclarations globales de FEN_Principale (FEN_Principale), ligne 44
EIT_DATEHEURE : 10/07/2014 09:27:25

Merci d'avance pour toutes aides apportées

PS: je suis en WinDev 19 et j'utilise OPC Factory Server V3.50

**Moscade** · 11/07/2014, 11h50

Bonjour,

Quelques détails supplémentaires pour aider à résoudre mon problème

L'exemple Windev WD OPC fonctionnait jusqu'à l'installation du Driver XIP

j'ai édité la DLL schneider avec OLEview et voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
// Generated .IDL file (by the OLE/COM Object Viewer)
// 
// typelib filename: ofssimuauto.dll
 
[
  uuid(39C13A56-011E-11D0-9675-0020AFD8ADB3),
  version(1.0),
  helpstring("OPCDisp")
]
library OPCDisp
{
    // TLib :     // TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}
    importlib("stdole2.tlb");
 
    // Forward declare all types defined in this typelib
    interface IOPCServerDisp;
    interface IOPCServerPublicGroupsDisp;
    interface IOPCBrowseServerAddressSpaceDisp;
    interface IOPCItemMgtDisp;
    interface IOPCGroupStateMgtDisp;
    interface IOPCSyncIODisp;
    interface IOPCAsyncIODisp;
    interface IOPCPublicGroupStateMgtDisp;
    interface IOPCItemDisp;
 
    [
      odl,
      uuid(39C13A57-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCServerDisp : IDispatch {
        [id(0x60020000), propget]
        HRESULT Count([out, retval] long* pCount);
        [id(0xfffffffc), propget, restricted]
        HRESULT _NewEnum([out, retval] IUnknown** ppUnk);
        [id(0x60020002), propget]
        HRESULT StartTime([out, retval] DATE* pStartTime);
        [id(0x60020003), propget]
        HRESULT CurrentTime([out, retval] DATE* pCurrentTime);
        [id(0x60020004), propget]
        HRESULT LastUpdateTime([out, retval] DATE* pLastUpdateTime);
        [id(0x60020005), propget]
        HRESULT MajorVersion([out, retval] short* pMajorVersion);
        [id(0x60020006), propget]
        HRESULT MinorVersion([out, retval] short* pMinorVersion);
        [id(0x60020007), propget]
        HRESULT BuildNumber([out, retval] short* pBuildNumber);
        [id(0x60020008), propget]
        HRESULT VendorInfo([out, retval] BSTR* pVendorInfo);
        [id(0x60020009)]
        HRESULT Item(
                        [in] VARIANT Item, 
                        [out, retval] IDispatch** ppDisp);
        [id(0x6002000a)]
        HRESULT AddGroup(
                        [in] BSTR Name, 
                        [in] VARIANT_BOOL Active, 
                        [in] long ReqestedUpdateRate, 
                        [in] long ClientGroupHandle, 
                        [in] single* pPercentDeadband, 
                        [in] long LCID, 
                        [out] long* pServerGroupHandle, 
                        [out] long* pRevisedUpdateRate, 
                        [in, optional] VARIANT* pTimeBias, 
                        [out, retval] IDispatch** ppDisp);
        [id(0x6002000b)]
        HRESULT GetErrorString(
                        [in] long Error, 
                        [in] long Locale, 
                        [out, retval] BSTR* ErrorString);
        [id(0x6002000c)]
        HRESULT GetGroupByName(
                        [in] BSTR Name, 
                        [out, retval] IDispatch** ppDisp);
        [id(0x6002000d)]
        HRESULT RemoveGroup(
                        [in] long ServerGroupHandle, 
                        [in] VARIANT_BOOL Force);
        [id(0x6002000e)]
        HRESULT SaveConfig([in] BSTR FileName);
        [id(0x6002000f)]
        HRESULT LoadConfig([in] BSTR FileName);
        [id(0x60020010)]
        HRESULT SetEnumeratorType(
                        [in] long Scope, 
                        [in] short Type);
    };
 
    [
      odl,
      uuid(39C13A58-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCServerPublicGroupsDisp : IDispatch {
        [id(0x60020000)]
        HRESULT GetPublicGroupByName(
                        [in] BSTR Name, 
                        [out, retval] IDispatch** ppDisp);
        [id(0x60020001)]
        HRESULT RemovePublicGroup(
                        [in] long ServerGroupHandle, 
                        [in] VARIANT_BOOL Force);
    };
 
    [
      odl,
      uuid(39C13A59-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCBrowseServerAddressSpaceDisp : IDispatch {
        [id(0xfffffffc), propget, restricted]
        HRESULT _NewEnum([out, retval] IUnknown** ppUnk);
        [id(0x60020001), propget]
        HRESULT Organization([out, retval] long* pNameSpaceType);
        [id(0x60020002)]
        HRESULT ChangeBrowsePosition(
                        [in] long BrowseDirection, 
                        [in] BSTR Position);
        [id(0x60020003)]
        HRESULT SetItemIDEnumerator(
                        [in] long BrowseFilterType, 
                        [in] BSTR FilterCriteria, 
                        [in] VARIANT DataTypeFilter, 
                        [in] long AccessRightsFilter);
        [id(0x60020004)]
        HRESULT GetItemIDString(
                        [in] BSTR ItemDataID, 
                        [out, retval] BSTR* ItemID);
        [id(0x60020005)]
        HRESULT SetAccessPathEnumerator([in] BSTR ItemID);
    };
 
    [
      odl,
      uuid(39C13A5A-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCItemMgtDisp : IDispatch {
        [id(0x60020000), propget]
        HRESULT Count([out, retval] long* pCount);
        [id(0xfffffffc), propget, restricted]
        HRESULT _NewEnum([out, retval] IUnknown** ppUnk);
        [id(0x60020002)]
        HRESULT Item(
                        [in] VARIANT ItemSpecifier, 
                        [out, retval] IDispatch** ppDisp);
        [id(0x60020003)]
        HRESULT AddItems(
                        [in] long NumItems, 
                        [in] VARIANT ItemIDs, 
                        [in] VARIANT ActiveStates, 
                        [in] VARIANT ClientHandles, 
                        [out] VARIANT* pServerHandles, 
                        [out] VARIANT* pErrors, 
                        [out] VARIANT* pItemObjects, 
                        [in, optional] VARIANT AccessPaths, 
                        [in, optional] VARIANT RequestedDataTypes, 
                        [in, out, optional] VARIANT* pBlobs, 
                        [out, optional] VARIANT* pCanonicalDataTypes, 
                        [out, optional] VARIANT* pAccessRights);
        [id(0x60020004)]
        HRESULT ValidateItems(
                        [in] long NumItems, 
                        [in] VARIANT ItemIDs, 
                        [out] VARIANT* pErrors, 
                        [in, optional] VARIANT AccessPaths, 
                        [in, optional] VARIANT RequestedDataTypes, 
                        [in, optional] VARIANT BlobUpdate, 
                        [in, out, optional] VARIANT* pBlobs, 
                        [out, optional] VARIANT* pCanonicalDataTypes, 
                        [out, optional] VARIANT* pAccessRights);
        [id(0x60020005)]
        HRESULT RemoveItems(
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [out] VARIANT* pErrors, 
                        [in] VARIANT_BOOL Force);
        [id(0x60020006)]
        HRESULT SetActiveState(
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [in] VARIANT_BOOL ActiveState, 
                        [out] VARIANT* pErrors);
        [id(0x60020007)]
        HRESULT SetClientHandles(
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [in] VARIANT ClientHandles, 
                        [out] VARIANT* pErrors);
        [id(0x60020008)]
        HRESULT SetDatatypes(
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [in] VARIANT RequestedDataTypes, 
                        [out] VARIANT* pErrors);
    };
 
    [
      odl,
      uuid(39C13A5B-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCGroupStateMgtDisp : IDispatch {
        [id(0x60020000), propget]
        HRESULT ActiveStatus([out, retval] VARIANT_BOOL* pActiveStatus);
        [id(0x60020000), propput]
        HRESULT ActiveStatus([in] VARIANT_BOOL pActiveStatus);
        [id(0x60020002), propget]
        HRESULT ClientGroupHandle([out, retval] long* phClientGroupHandle);
        [id(0x60020002), propput]
        HRESULT ClientGroupHandle([in] long phClientGroupHandle);
        [id(0x60020004), propget]
        HRESULT ServerGroupHandle([out, retval] long* phServerGroupHandle);
        [id(0x60020005), propget]
        HRESULT Name([out, retval] BSTR* pName);
        [id(0x60020005), propput]
        HRESULT Name([in] BSTR pName);
        [id(0x60020007), propget]
        HRESULT UpdateRate([out, retval] long* pUpdateRate);
        [id(0x60020007), propput]
        HRESULT UpdateRate([in] long pUpdateRate);
        [id(0x60020009), propget]
        HRESULT TimeBias([out, retval] long* pTimeBias);
        [id(0x60020009), propput]
        HRESULT TimeBias([in] long pTimeBias);
        [id(0x6002000b), propget]
        HRESULT PercentDeadBand([out, retval] single* pPercentDeadband);
        [id(0x6002000b), propput]
        HRESULT PercentDeadBand([in] single pPercentDeadband);
        [id(0x6002000d), propget]
        HRESULT LCID([out, retval] long* pLCID);
        [id(0x6002000d), propput]
        HRESULT LCID([in] long pLCID);
        [id(0x6002000f)]
        HRESULT CloneGroup(
                        [in, optional] VARIANT Name, 
                        [out, retval] IDispatch** ppDisp);
    };
 
    [
      odl,
      uuid(39C13A5C-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCSyncIODisp : IDispatch {
        [id(0x60020000)]
        HRESULT OPCRead(
                        [in] short Source, 
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [out] VARIANT* pValues, 
                        [out, optional] VARIANT* pQualities, 
                        [out, optional] VARIANT* pTimeStamps, 
                        [out, optional] VARIANT* pErrors);
        [id(0x60020001)]
        HRESULT OPCWrite(
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [in] VARIANT Values, 
                        [out, optional] VARIANT* pErrors);
    };
 
    [
      odl,
      uuid(39C13A5D-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCAsyncIODisp : IDispatch {
        [id(0x60020000)]
        HRESULT AddCallbackReference(
                        [in] long Context, 
                        [in] IDispatch* pCallback, 
                        [out, retval] long* pConnection);
        [id(0x60020001)]
        HRESULT DropCallbackReference([in] long Connection);
        [id(0x60020002)]
        HRESULT OPCRead(
                        [in] short Source, 
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [out, optional] VARIANT* pErrors, 
                        [out, retval] long* pTransactionID);
        [id(0x60020003)]
        HRESULT OPCWrite(
                        [in] long NumItems, 
                        [in] VARIANT ServerHandles, 
                        [in] VARIANT Values, 
                        [out, optional] VARIANT* pErrors, 
                        [out, retval] long* pTransactionID);
        [id(0x60020004)]
        HRESULT Cancel([in] long TransactionID);
        [id(0x60020005)]
        HRESULT Refresh(
                        [in] short Source, 
                        [out, retval] long* pTransactionID);
    };
 
    [
      odl,
      uuid(39C13A5E-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCPublicGroupStateMgtDisp : IDispatch {
        [id(0x60020000), propget]
        HRESULT State([out, retval] VARIANT_BOOL* pPublic);
        [id(0x60020001)]
        HRESULT MoveToPublic();
    };
 
    [
      odl,
      uuid(39C13A5F-011E-11D0-9675-0020AFD8ADB3),
      dual,
      oleautomation
    ]
    interface IOPCItemDisp : IDispatch {
        [id(0x60020000), propget]
        HRESULT AccessPath([out, retval] BSTR* pAccessPath);
        [id(0x60020001), propget]
        HRESULT AccessRights([out, retval] long* pAccessRights);
        [id(0x60020002), propget]
        HRESULT ActiveStatus([out, retval] VARIANT_BOOL* pActiveStatus);
        [id(0x60020002), propput]
        HRESULT ActiveStatus([in] VARIANT_BOOL pActiveStatus);
        [id(0x60020004), propget]
        HRESULT Blob([out, retval] VARIANT* pBlob);
        [id(0x60020005), propget]
        HRESULT ClientHandle([out, retval] long* phClient);
        [id(0x60020005), propput]
        HRESULT ClientHandle([in] long phClient);
        [id(0x60020007), propget]
        HRESULT ItemID([out, retval] BSTR* pItemID);
        [id(0x60020008), propget]
        HRESULT ServerHandle([out, retval] long* pServer);
        [id(0x60020009), propget]
        HRESULT RequestedDataType([out, retval] short* pRequestedDataType);
        [id(0x60020009), propput]
        HRESULT RequestedDataType([in] short pRequestedDataType);
        [id(0x6002000b), propget]
        HRESULT Value([out, retval] VARIANT* pValue);
        [id(0x6002000b), propput]
        HRESULT Value([in] VARIANT pValue);
        [id(0x6002000d), propget]
        HRESULT Quality([out, retval] short* pQuality);
        [id(0x6002000e), propget]
        HRESULT Timestamp([out, retval] DATE* pTimeStamp);
        [id(0x6002000f), propget]
        HRESULT ReadError([out, retval] long* pError);
        [id(0x60020010), propget]
        HRESULT WriteError([out, retval] long* pError);
        [id(0x60020011), propget]
        HRESULT EUType([out, retval] short* pError);
        [id(0x60020012), propget]
        HRESULT EUInfo([out, retval] VARIANT* pError);
        [id(0x60020013)]
        HRESULT OPCRead(
                        [in] short Source, 
                        [out] VARIANT* pValue, 
                        [out, optional] VARIANT* pQuality, 
                        [out, optional] VARIANT* pTimeStamp);
        [id(0x60020014)]
        HRESULT OPCWrite([in] VARIANT NewValue);
    };
 
    [
      uuid(39C13A60-011E-11D0-9675-0020AFD8ADB3),
      helpstring("OPC Group Class")
    ]
    coclass Group {
        [default] interface IOPCItemMgtDisp;
        interface IOPCGroupStateMgtDisp;
        interface IOPCSyncIODisp;
        interface IOPCAsyncIODisp;
        interface IOPCPublicGroupStateMgtDisp;
    };
 
    [
      uuid(39C13A61-011E-11D0-9675-0020AFD8ADB3),
      helpstring("OPC Item Class")
    ]
    coclass Item {
        [default] interface IOPCItemDisp;
    };
};

La methode (si c'est la bonne formulation) AddItems est bien présente mais non accessible pour Windev, j'ai testé les méthodes suivantes HeureServeur, MajorVersion, MinorVersion, BuildNumber, VendorInfo sans rencontré de problèmes particuliers

Bon Weekend à tous

**Simeonn** · 11/07/2014, 11h57

Salut et bienvenue!

Premièrement dans un souci de lisibilité, tu devrais faire dans le poste 2 la même chose que dans le 1 à savoir, utiliser la balise CODE

Concernant le problème, pourrais-tu montrer les déclarations globales de ta fenêtre et plus précisément la ligne 44 (ligne indiquée en erreur).

Merci

**Moscade** · 16/07/2014, 15h11

Bonjour,

Merci à vous pour l’intérêt porté à mon problème.

Le blocage se fait à la ligne 42, j'ai du manipuler le code par inadvertance au moment du poste sur le forum

Voici le code non publié, il s'agit de la déclaration des constantes dans le projet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CONSTANT
	CLIENT_OPC_AUTOMATION = "Schneider-Aut.OFSAut" 
 
	GUID_INTERFACE_EVENEMENT_SERVEUR_AUTOMATION = "{39C13A5A-011E-11D0-9675-0020AFD8ADB3}"														
	GUID_INTERFACE_EVENEMENT_GROUPES_AUTOMATION	= "{39C13A5A-011E-11D0-9675-0020AFD8ADB3}"														
	GUID_INTERFACE_EVENEMENT_GROUPE_AUTOMATION 	= "{39C13A5A-011E-11D0-9675-0020AFD8ADB3}"
	NOM_GROUPE = "Groupe"
FIN
AutomationParamètre(apIndiceBaseTableau,1)
 
 
 
Hinst est un entier
gnHappel est un entier
sCheminDLL est une chaîne
sCheminDLL="C:\Program Files (x86)\Schneider Electric\OFS\OFS\Server\OfsAuto.dll"
 
Hinst=ChargeDLL(sCheminDLL)
SI Hinst=0 ALORS
	Erreur(ErreurInfo())
FIN

j'ai testé différentes adresses de GUID que j'ai trouvé dans la base de registres comme indiqué dans l'aide WinDev mais cela n'améliore pas la situation.

**SultanGeek** · 14/02/2015, 19h11

Vous trouverez des cours sur les serveurs OPC et automatisme sur ce lien:
http://www.automation-sense.com

Client avec OPC Schneider

WinDev

Discussions similaires

Partager

Partager