Tentative de lecture ou d'écriture de mémoire protégée avec OPC

**StarIST** · 11/06/2013, 17h53

Bonjour à tous je développe une appli qui va dialoguer avec un serveur OPC, sur le PC et qui attaque un automate (M340 Schneider) et j'ai un soucis de temps en temps en débugage, mais jamais si je lance l'exe. Par contre quand j'installe sur un Poste en XP cela plante ! mais si j'installe sous un poste en Windows7 nickel.
Voici le code cela plante en général aux alentours de la création du 17ème item...

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
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
Imports System
Imports System.IO
Imports Microsoft.Office.Interop.Excel
 
 
Module ModuleCommun
 
  Public AutoConnection As Boolean
  Public FlagFrontMontantChange As Boolean
  Public CheminLog As String
  Public CheminRecette As String
  Public CheminModeleExcel As String
  Public CheminExcel As String
  Public FlagConnectionOPC As Boolean
  Public ChaineConnectionOFS As String
  Public SerialIncremental As Double
  Public AnneeSerialIncremental As String
  Public SerialComplet As String
  Public NumeroRapport As String
  Public FlagConnectionReseau As Boolean
  Public AdresseIPAutomate As String
 
  Public ServeurOPC As New SAOPCAutomation.OPCServer
 
  Public WithEvents CollectionGroupesConnecte As SAOPCAutomation.OPCGroups
 
  Public WithEvents OFSGroupe As SAOPCAutomation.OPCGroup
  Public WithEvents OFSGroupeFlag As SAOPCAutomation.OPCGroup
  Public WithEvents OFSGroupeBitVie As SAOPCAutomation.OPCGroup
 
  'Déclaration des Items de lecture l'Automate
  Public ItemLectureAutomate_Societe As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Site As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Service As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Moteur As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Designation_piece As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Reference_piece As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_No_serialisation As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_No_ordre_fab As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_No_operation As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Retouche_lavage As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Lavage_FAR As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_No_pgm_gamme As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Type_ver_gamme_op As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_No_machine As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Date_valid_machine As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_No_Pgm_Machine As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Classe As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Temps_cycle As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Date_Deb_Lavage As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Heure_deb_lavage As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Heure_fin_lavage As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_heure_def_lavage As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Tension_surf As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Tension_surf_sanction As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Test_f_eau As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Ctrl_particule As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Sanction As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Nom_operateur As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Mat_operateur As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Produit As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Prod_Ref_SNECMA As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Prod_No_Lot As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Prod_Peremption As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Prod_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Ph_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Date_mont_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Heur_mont_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Date_valid_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Titrage_date As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Titrage_heure As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Titrage_produit As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Titrage_ph As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Titrage_cond As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Produit As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Prod_Ref_SNECMA As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Prod_No_Lot As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Prod_Peremption As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Prod_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Ph_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Date_mont_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Heur_mont_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Date_valid_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Titrage_date As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Titrage_heure As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Titrage_ph As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Titrage_cond As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Produit As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Prod_Ref_SNECMA As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Prod_No_Lot As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Prod_Peremption As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Prod_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Ph_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Date_mont_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Heur_mont_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Date_valid_bain As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Titrage_date As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Titrage_heure As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Titrage_ph As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Titrage_cond As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Bain_Utilise As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Duree_phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Cond_Avant As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Cond_apres As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Asper_duree As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Asper_pression As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement1_Asper_Temperature As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Bain_Utilise As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Duree_phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Cond_Avant As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Cond_apres As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Asper_duree As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Asper_pression As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement2_Asper_Temperature As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Bain_Utilise As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Duree_phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Cond_Avant As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Cond_apres As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Asper_duree As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Asper_pression As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement3_Asper_Temperature As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement4_Phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement4_Duree_phase As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Flag_Transfert As SAOPCAutomation.OPCItem
  Public ItemEcritureAutomate_Flag_Transfert_Ok As SAOPCAutomation.OPCItem
 
  Public ItemEcritureAutomate_Bit_Vie As SAOPCAutomation.OPCItem
 
  Public ItemLectureAutomate_Date_fin_lavage As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Defaut_Cycle As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Solution As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Titrage_huile As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Titrage_particule As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Filtre_Date As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette1_Filtre_Heure As SAOPCAutomation.OPCItem
 
  Public ItemLectureAutomate_Recette2_Solution As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Titrage_huile As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Titrage_particule As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Filtre_Date As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Filtre_Heure As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Titrage_polluant As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Polluant_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette2_Cond_consigne As SAOPCAutomation.OPCItem
 
  Public ItemLectureAutomate_Recette3_Solution As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Titrage_Polluant As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Titrage_huile As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Titrage_particule As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Filtre_Date As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Filtre_Heure As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Polluant_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Cond_Consigne As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Resine As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Resine_Ref_SNECMA As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Resine_Peremption As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Resine_No_lot As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Resine_date As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Recette3_Resine_heure As SAOPCAutomation.OPCItem
 
  Public ItemLectureAutomate_Traitement4_Souf_Pression As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement4_Souf_duree As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement4_Circa_Temperature As SAOPCAutomation.OPCItem
  Public ItemLectureAutomate_Traitement4_Circa_duree As SAOPCAutomation.OPCItem
 
  Public AliasOFSAutomate As String
 
  'Fonction qui lit un tableau et renvoye une string
  Function LectureTableau(Tableau As Array) As String
 
    'On boucle sur la longueur du tableau et on sort dès que l'on rencontre le caractère Ascii 0 
    'Cela évite d'avoir la chaine polluée avec d'anciens caractères²
 
    Dim I As Integer
    Dim TamponString As String
    TamponString = ""
 
    For I = 0 To Tableau.Length - 1
      If Tableau(I) <> 0 Then
        TamponString = TamponString & Chr(Tableau(I))
      Else
        Exit For
      End If
 
    Next
 
    Return TamponString.Trim
 
  End Function
 
#Region "Ecriture Fichiers"
 
  Function EcritureFichierLog(Texte As String) As Boolean
 
    Dim SW As StreamWriter
    Dim CheminFichier As String
 
 
    'On va écrire suivant l'arborscence suivante :
    '\Logs\Année\Mois\Jour.log
    'On va créer le répertoire Logs
    If Not Directory.Exists(CheminLog) Then
      Directory.CreateDirectory(CheminLog)
    End If
 
    'On va créer le répertoire Année
    If Not Directory.Exists(CheminLog & Date.Today.Year) Then
      Directory.CreateDirectory(CheminLog & Date.Today.Year)
    End If
 
    'On va créer le répertoire Mois
    If Not Directory.Exists(CheminLog & Date.Today.Year & "\" & Date.Today.Month) Then
      Directory.CreateDirectory(CheminLog & Date.Today.Year & "\" & Date.Today.Month)
    End If
 
    CheminFichier = (CheminLog & "\" & Date.Today.Year & "\" & Date.Today.Month & "\" & Date.Today.Day & "-" & Date.Today.ToString("MMMM") & "-" & Date.Today.Year & ".log")
    'On teste si le fichier existe
    If File.Exists(CheminFichier) = False Then
      SW = File.CreateText(CheminFichier)
      SW.Close()
    End If
 
    SW = File.AppendText(CheminFichier)
    Texte = Date.Today.ToLongDateString & " - " & Date.Now.ToLongTimeString & " - " & Texte
    SW.WriteLine(Texte)
    SW.Close()
 
    'On va écrire aussi dans la fenetre d'historique
    If FrmPrincipale.TxtHistorique.Text = "" Then
      FrmPrincipale.TxtHistorique.Text = Texte
    Else
      FrmPrincipale.TxtHistorique.Text = FrmPrincipale.TxtHistorique.Text & vbCrLf & Texte
    End If
    Return CBool(vbNull)
 
  End Function
 
 
 
#End Region
 
#Region "OPC"
 
  Public Sub AjoutItemOPC()
 
    On Error Resume Next
 
    ItemLectureAutomate_Societe = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Societe", 1)
        ItemLectureAutomate_Site = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Site", 2)
        ItemLectureAutomate_Moteur = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Moteur", 3)
        ItemLectureAutomate_Designation_piece = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Designation_Piece", 4)
        ItemLectureAutomate_Reference_piece = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Reference_Piece", 5)
        ItemLectureAutomate_No_serialisation = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "!RecetteData.Table.No_serialisation", 6)
        ItemLectureAutomate_No_ordre_fab = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Ordre_Fab", 7)
        ItemLectureAutomate_No_operation = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Operation", 8)
        ItemLectureAutomate_Retouche_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Retouche_Lavage", 9)
        ItemLectureAutomate_Lavage_FAR = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Lavage_FAR", 10)
        ItemLectureAutomate_No_pgm_gamme = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_pgm_gamme", 11)
        ItemLectureAutomate_Type_ver_gamme_op = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Type_ver_gamme_op", 12)
        ItemLectureAutomate_No_machine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Machine", 13)
        ItemLectureAutomate_Date_valid_machine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Date_Valid_Machine", 14)
        ItemLectureAutomate_No_Pgm_Machine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.No_Pgm_Machine", 15)
        ItemLectureAutomate_Classe = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Classe", 16)
        ItemLectureAutomate_Temps_cycle = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Temps_cycle", 17)
        ItemLectureAutomate_Date_Deb_Lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Date_Deb_Lavage", 18)
        ItemLectureAutomate_Heure_deb_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Heure_deb_lavage", 19)
        ItemLectureAutomate_Heure_fin_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Heure_Fin_Lavage", 20)
        ItemLectureAutomate_heure_def_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Heure_Def_Lavage", 21)
        ItemLectureAutomate_Tension_surf = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Tension_Surf", 22)
        ItemLectureAutomate_Tension_surf_sanction = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Tension_Surf_Sanction", 23)
        ItemLectureAutomate_Test_f_eau = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Test_f_eau", 24)
        ItemLectureAutomate_Ctrl_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Ctrl_particule", 25)
        ItemLectureAutomate_Sanction = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Sanction", 26)
        ItemLectureAutomate_Nom_operateur = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Nom_Operateur", 27)
        ItemLectureAutomate_Mat_operateur = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Mat_Operateur", 28)
        ItemLectureAutomate_Recette1_Bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Bain", 29)
        ItemLectureAutomate_Recette1_Produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Produit", 30)
        ItemLectureAutomate_Recette1_Prod_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_Ref_SNECMA", 31)
        ItemLectureAutomate_Recette1_Prod_No_Lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_No_Lot", 32)
        ItemLectureAutomate_Recette1_Prod_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_Peremption ", 33)
        ItemLectureAutomate_Recette1_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_consigne", 34)
        ItemLectureAutomate_Recette1_Ph_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Ph_Consigne", 35)
        ItemLectureAutomate_Recette1_Date_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Date_Mont_Bain", 36)
        ItemLectureAutomate_Recette1_Heur_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Heure_Mont_Bain", 37)
        ItemLectureAutomate_Recette1_Date_valid_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Date_Valid_Bain", 38)
        ItemLectureAutomate_Recette1_Titrage_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Date", 39)
        ItemLectureAutomate_Recette1_Titrage_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Heure", 40)
        ItemLectureAutomate_Recette1_Titrage_produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Produit", 41)
        ItemLectureAutomate_Recette1_Titrage_ph = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Ph", 42)
        ItemLectureAutomate_Recette1_Titrage_cond = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Cond", 43)
        ItemLectureAutomate_Recette1_Solution = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Solution", 44)
        ItemLectureAutomate_Recette1_Titrage_huile = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Huile", 45)
        ItemLectureAutomate_Recette1_Titrage_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Titrage_Particule", 46)
        ItemLectureAutomate_Recette1_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Prod_consigne", 47)
        ItemLectureAutomate_Recette1_Filtre_Date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Filtre_Date", 48)
        ItemLectureAutomate_Recette1_Filtre_Heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[1].Filtre_Heure", 49)
        ItemLectureAutomate_Recette2_Bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Bain", 50)
        ItemLectureAutomate_Recette2_Produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Produit", 51)
        ItemLectureAutomate_Recette2_Prod_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_Ref_SNECMA", 52)
        ItemLectureAutomate_Recette2_Prod_No_Lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_No_Lot", 53)
        ItemLectureAutomate_Recette2_Prod_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_Peremption ", 54)
        ItemLectureAutomate_Recette2_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Prod_consigne", 55)
        ItemLectureAutomate_Recette2_Ph_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Ph_Consigne", 56)
        ItemLectureAutomate_Recette2_Date_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Date_Mont_Bain", 57)
        ItemLectureAutomate_Recette2_Heur_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Heure_Mont_Bain", 58)
        ItemLectureAutomate_Recette2_Date_valid_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Date_Valid_Bain", 59)
        ItemLectureAutomate_Recette2_Titrage_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Date", 60)
        ItemLectureAutomate_Recette2_Titrage_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Heure", 61)
        ItemLectureAutomate_Recette2_Titrage_ph = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Ph", 62)
        ItemLectureAutomate_Recette2_Titrage_cond = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Cond", 63)
        ItemLectureAutomate_Recette2_Solution = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Solution", 64)
        ItemLectureAutomate_Recette2_Titrage_huile = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Huile", 65)
        ItemLectureAutomate_Recette2_Titrage_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Particule", 66)
        ItemLectureAutomate_Recette2_Titrage_polluant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Titrage_Polluant", 67)
        ItemLectureAutomate_Recette2_Polluant_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Polluant_Consigne", 68)
        ItemLectureAutomate_Recette2_Cond_consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Cond_Consigne", 69)
        ItemLectureAutomate_Recette2_Filtre_Date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Filtre_Date", 70)
        ItemLectureAutomate_Recette2_Filtre_Heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[2].Filtre_Heure", 71)
        ItemLectureAutomate_Recette3_Bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Bain", 72)
        ItemLectureAutomate_Recette3_Produit = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Produit", 73)
        ItemLectureAutomate_Recette3_Prod_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_Ref_SNECMA", 74)
        ItemLectureAutomate_Recette3_Prod_No_Lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_No_Lot", 75)
        ItemLectureAutomate_Recette3_Ph_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Ph_Consigne", 76)
        ItemLectureAutomate_Recette3_Date_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Date_Mont_Bain", 77)
        ItemLectureAutomate_Recette3_Heur_mont_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Heure_Mont_Bain", 78)
        ItemLectureAutomate_Recette3_Date_valid_bain = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Date_Valid_Bain", 79)
        ItemLectureAutomate_Recette3_Titrage_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Date", 80)
        ItemLectureAutomate_Recette3_Titrage_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Heure", 81)
        ItemLectureAutomate_Recette3_Titrage_ph = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Ph", 82)
        ItemLectureAutomate_Recette3_Titrage_cond = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Cond", 83)
        ItemLectureAutomate_Recette3_Solution = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Solution", 84)
        ItemLectureAutomate_Recette3_Titrage_Polluant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Polluant", 85)
        ItemLectureAutomate_Recette3_Titrage_huile = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Huile", 86)
        ItemLectureAutomate_Recette3_Titrage_particule = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Titrage_Particule", 87)
        ItemLectureAutomate_Recette3_Prod_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_Consigne", 88)
        ItemLectureAutomate_Recette3_Prod_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Prod_Peremption ", 89)
        ItemLectureAutomate_Recette3_Resine = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine", 90)
        ItemLectureAutomate_Recette3_Resine_Ref_SNECMA = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Ref_SNECMA", 91)
        ItemLectureAutomate_Recette3_Resine_Peremption = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Peremption ", 92)
        ItemLectureAutomate_Recette3_Resine_No_lot = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_No_lot", 93)
        ItemLectureAutomate_Recette3_Resine_date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Date", 94)
        ItemLectureAutomate_Recette3_Resine_heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Resine_Heure", 95)
        ItemLectureAutomate_Recette3_Polluant_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Polluant_Consigne", 96)
        ItemLectureAutomate_Recette3_Cond_Consigne = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Cond_Consigne", 97)
        ItemLectureAutomate_Recette3_Filtre_Date = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Filtre_Date", 98)
        ItemLectureAutomate_Recette3_Filtre_Heure = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Recette[3].Filtre_Heure", 99)
        ItemLectureAutomate_Traitement1_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Phase", 100)
        ItemLectureAutomate_Traitement1_Bain_Utilise = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Bain_Utilise", 101)
        ItemLectureAutomate_Traitement1_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Duree_Phase", 102)
        ItemLectureAutomate_Traitement1_Cond_Avant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Cond_Avant", 103)
        ItemLectureAutomate_Traitement1_Cond_apres = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Cond_Apres", 104)
        ItemLectureAutomate_Traitement1_Asper_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Asper_Duree", 105)
        ItemLectureAutomate_Traitement1_Asper_pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].Asper_Pression", 106)
        ItemLectureAutomate_Traitement1_Asper_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[1].AsperTemperature", 107)
        ItemLectureAutomate_Traitement2_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Phase", 108)
        ItemLectureAutomate_Traitement2_Bain_Utilise = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Bain_Utilise", 109)
        ItemLectureAutomate_Traitement2_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Duree_Phase", 110)
        ItemLectureAutomate_Traitement2_Cond_Avant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Cond_Avant", 111)
        ItemLectureAutomate_Traitement2_Cond_apres = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Cond_Apres", 112)
        ItemLectureAutomate_Traitement2_Asper_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Asper_Duree", 113)
        ItemLectureAutomate_Traitement2_Asper_pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].Asper_Pression", 114)
        ItemLectureAutomate_Traitement2_Asper_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[2].AsperTemperature", 115)
        ItemLectureAutomate_Traitement3_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Phase", 116)
        ItemLectureAutomate_Traitement3_Bain_Utilise = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Bain_Utilise", 117)
        ItemLectureAutomate_Traitement3_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Duree_Phase", 118)
        ItemLectureAutomate_Traitement3_Cond_Avant = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Cond_Avant", 119)
        ItemLectureAutomate_Traitement3_Cond_apres = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Cond_Apres", 120)
        ItemLectureAutomate_Traitement3_Asper_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Asper_Duree", 121)
        ItemLectureAutomate_Traitement3_Asper_pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].Asper_Pression", 122)
        ItemLectureAutomate_Traitement3_Asper_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[3].AsperTemperature", 123)
        ItemLectureAutomate_Traitement4_Phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Phase", 124)
        ItemLectureAutomate_Traitement4_Duree_phase = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Duree_Phase", 125)
        ItemLectureAutomate_Traitement4_Souf_Pression = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Souf_Pression", 126)
        ItemLectureAutomate_Traitement4_Souf_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Souf_Duree", 127)
        ItemLectureAutomate_Traitement4_Circa_Temperature = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Circa_Temperature", 128)
        ItemLectureAutomate_Traitement4_Circa_duree = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Traitement[4].Circa_Duree", 129)
        ItemLectureAutomate_Date_fin_lavage = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Date_Fin_Lavage", 130)
        ItemLectureAutomate_Defaut_Cycle = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Defaut_Cycle", 131)
        ItemLectureAutomate_Service = OFSGroupe.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Table.Service", 132)
 
        ItemLectureAutomate_Flag_Transfert = OFSGroupeFlag.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Flag_Transfert", 1)
        ItemEcritureAutomate_Flag_Transfert_Ok = OFSGroupeFlag.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Flag_Transfert_Ok", 2)
 
        ItemEcritureAutomate_Bit_Vie = OFSGroupeBitVie.OPCItems.AddItem(AliasOFSAutomate & "!" & "RecetteData.Bit_Vie", 1)
 
  End Sub
 
  Public Sub ConnectionOPC()
 
    ServeurOPC.Connect(ChaineConnectionOFS)
    If ServeurOPC.ServerState = 1 Then
      EcritureFichierLog("Connection OFS - OK")
      'Connection OK création du groupe
 
      'On rajoute une collection de Groupes
      CollectionGroupesConnecte = ServeurOPC.OPCGroups
      CollectionGroupesConnecte.DefaultGroupIsActive = True
 
      OFSGroupe = ServeurOPC.OPCGroups.Add("GroupeAutomate")
      OFSGroupe.IsSubscribed = True 'OFSGroupe.IsActive
      OFSGroupeFlag = ServeurOPC.OPCGroups.Add("GroupeAutomateFlag")
      OFSGroupeFlag.IsSubscribed = True 'OFSGroupeFlag.IsActive
      OFSGroupeBitVie = ServeurOPC.OPCGroups.Add("GroupeBitVie")
      OFSGroupeBitVie.IsSubscribed = True 'OFSGroupe.IsActive
 
 
      AjoutItemOPC()
      'DoEvents()
    Else
      EcritureFichierLog("Connection OFS - KO")
      Exit Sub
    End If
 
  End Sub
 
  Public Sub DeConnectionOPC()
 
    ServeurOPC.OPCGroups.RemoveAll()
 
    CollectionGroupesConnecte.RemoveAll()
 
    ServeurOPC.Disconnect()      'déconnection du serveur
 
    EcritureFichierLog("Déconnection OFS")
 
  End Sub
 
  Sub OFSGroupeFlag_DataChange(ByVal TransactionID As Integer, ByVal NumItems As Integer, ByRef ClientHandles As System.Array, ByRef ItemValues As System.Array, ByRef Qualities As System.Array, ByRef TimeStamps As System.Array) Handles OFSGroupeFlag.DataChange
    'On rajoute un flag pour ne passer dans la boucle qu'à la deuxième fois, la première étant la création
    Dim I As Integer
 
    For I = 1 To NumItems
      Select Case ClientHandles(I)
        'S'il y a eu modif sur le flag Transfert alors
        Case 1
 
          If FlagFrontMontantChange = True And ItemLectureAutomate_Flag_Transfert.Value = vbTrue Then
 
            'On vérifie le Serial pour le réinitialiser si on change d'année
            ConstructionSerialIncremental()
 
            EcritureFichierLog(SerialComplet)
 
            'Alors on va écrire le Fichier de Recette
            EcritureFichierLog("Ecriture Fichier Recette")
            EcritureFichierRecette()
            Try
              'Je vais mettre le Flag à 1 pour dire que j'ai tout lu
              EcritureFichierLog("Flag_Transfert_OK Mis à 1")
            Catch ex As Exception
              EcritureFichierLog("Erreur mise à 1 Flag_Transfert_OK")
            End Try
            EcritureFichierLog("Ecriture Fichier Excel")
            EcritureFichierExcel()
            'On va écrire sur l'automate que le transfert est Ok
            ItemEcritureAutomate_Flag_Transfert_Ok.Write(vbTrue)
 
            ' On incrémente le Serial
            SerialIncremental = SerialIncremental + 1
 
            'On sauvegarde le Serial
            EcritureSerial(CStr(SerialIncremental))
          Else
            FlagFrontMontantChange = True
          End If
 
      End Select
    Next
  End Sub
 
#End Region
 
#Region "FonctionsDiverses"
 
 
 #End Region
 
End Module

**StarIST** · 14/06/2013, 11h23

J'ai trouvé ! Mais je ne comprends pas pourquoi... En fait dans les références j'ai la référence au COM SAOPCAutomation mais j'ai rajouté aussi l'espace de noms importés SAOPCAutomation et cela fonctionne nickel ! Plus aucun plantage ! Si quelqu'un pouvait me dire pourquoi...

Merci d'avance. !

**StarIST** · 16/06/2013, 20h11

Bon en fait cela fonctionne parfaitement sous Windows XP en compilé, et sous Windows 7. Mais en mode déboguage sous Windows 7 ca plante encore... pourquoi cela marche en compilé mais pas en déboguage ?

**bhaal76** · 15/07/2013, 13h22

J'ai exactement le même problème sous win 7 32bits, as-tu eu une info coté Schenider ???
( Sous win 7 x64, j'en parle même pas, impossible d'ouvrir le serveur via Vb.net)

**StarIST** · 15/07/2013, 13h44

Alors côté Schneider j'ai jamais trouvé quelqu'un qui ait déjà fait cela... Ils ne connaissent pas même pas au support !
As tu rajouté les références comme j'ai précisé plus haut ?

**bhaal76** · 15/07/2013, 14h08

oui, j'ai bien les référence ...
Et quand je dis que j'ai le même problème, je parle du plantage en débogage sous win 7 (32 ou 64)

Du couo, pour l'instant, je débogue avec des Msgbox() ... pas top

Chose surprenante, sous win 7 32, lors de la création des items, le programme s'arrête net et je reviens en mode développement sans message d'erreur !

J'attends des nouvelles de Chorus, des fois ...

**StarIST** · 15/07/2013, 14h13

Ah ok ! Donc on a bien le même problème... Ouaih débogage à coup de MsgBox j'ai connu cela... Pas glop ! Chez Chorus personne ne connaissait VB .net donc bon... J'avais fini par laisser tomber !

**StarIST** · 22/07/2013, 12h12

Alors des news de Chorus ???

**bhaal76** · 28/08/2013, 15h45

Salut et désolé du retard, vacances oblige ...

Les dernières news de chorus seraient qu'ils n'intègrent plus tout ce qui est nécessaire coté OPC Foundation dans la version 3.40 de l'OFS !!!

Ils me parlent de télécharger 2 trucs sur le site OPC Foundation :
"OPC Data Access" et ".Net API"

il faut s'inscrire sur le site pour avoir accès au téléchargement, ce que j'ai fait ...
et oh surprise, les téléchargements ne sont pas tous accessible !!!
l'inscription ne suffit pas, il faut que l'entreprise soit membre, et bien sur, c'est pas gratuit.

J'en suis là, je galère pour arriver a faire fonctionner quelque chose qui aurait du être pleinement compatible Win 7 x64 ... selon schneider !

**bhaal76** · 11/09/2013, 09h22

Bonjour StarIST,

juste pour te tenir au courant, il y a du mieux.

Avec :
- une version 3.35 de l'OFS (déjà compatible win 7 x64)
- les composant indiquer par Schneider ("OPC Data Access" et ".Net API")
- et en basculant dans les propriétés du projet -> Compile-> "Options de compilation" de AnyCPU a x86
ça marche, même a partir de l'environnement Visual Studio ...

REste a savoir si la version 3.40 fonctionne, et pourquoi ça ne marche pas en x64 ...

**bhaal76** · 11/09/2013, 09h55

Re bonjour,

Je me suis un peu emballé ...
A partir de l'environnement, le serveur ce lance maintenant sous win 7 x64, mais j'ai un problème lors de la création des items (je zappe direct une partie du code, sans message d'erreur !!!)

par contre, maintenant, ça marche en compiler sous win 7 x64, alors qu'avant non.

**StarIST** · 19/11/2013, 17h16

Salut

Tu as trouvé ou alors

- les composant indiquer par Schneider ("OPC Data Access" et ".Net API") ???

Merci d'avance.

**ariana1993** · 12/06/2017, 14h15

J'ai le meme probleme , j'ai ajouté le Net.API mais j'ai pas trouvé le opc da est ce que vous pouvez m'aider , je suis bloquée dés 3 semaines sur ce point

**ariana1993** · 23/06/2017, 11h33

C bon j'ai trouvé la solution

Tentative de lecture ou d'écriture de mémoire protégée avec OPC

VB.NET

Discussions similaires

Partager

Partager