additems probleme en vb
Posté : 07 juin 2017, 11:23
Bonjour,
J'ai besion de vous , j'ai essayé de créer une application.net sur vb (sur visual studio 2013) pour connecter à un serveur OFS
le code est le suivant pour le moment
Option Explicit On
Imports OPCDisp
Public Class Form1
Public OpcServer As IOPCServerDisp
Public OpcItemMgt As IOPCItemMgtDisp
Public OpcItem As IOPCItemDisp
Private Const ItemMax = 8
Private Const OPC_DS_DEVICE = 2
Dim ClientHandles(ItemMax) As Long
Dim ServerHandles As Object
Dim bConnect As Boolean
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i%
'*** Connect to OPC Server ***
OpcServer = CreateObject("Schneider-Aut.OFSAut")
If TypeName(OpcServer) = TypeName(Nothing) Then Return
'*** Add OPCGroup ***
Dim UpdateRate As Long
Dim ServerHdl As Long
UpdateRate = 500
OpcItemMgt = OpcServer.AddGroup("Group One", True, UpdateRate, 22, 1, 0, ServerHdl, UpdateRate)
If TypeName(OpcItemMgt) = TypeName(Nothing) Then Return
'*** Add OPCItems ***
Dim ItemIDs(ItemMax) As String
Dim AccessPaths(ItemMax) As String
Dim Active(ItemMax) As Boolean
Dim Errors As Object = "error"
Dim ItemObjects As Object = 1
Dim DataType(ItemMax) As Object
For i% = 0 To ItemMax - 1
Active(i%) = True
ClientHandles(i%) = 22 + i%
AccessPaths(i%) = ""
ItemIDs(i%) = "TM221ME1!%MW0"
DataType(i%) = 2
Next i%
OpcItemMgt.AddItems(ItemMax, ItemIDs, Active, ClientHandles, ServerHandles, Errors, ItemObjects, AccessPaths, DataType)
End Sub
End Class
la connexion ainsi que la création d'un groupe se fait sans aucun probléme mais lors de l'ajout des items il m'affiche cette erreur
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in autrepro.exe
Additional information: Exception de HRESULT : 0xEFEE4977
jmais j'ai pas trouvé aucune explication à ce type d'erreur
quelqu'un peut m'aider SVP
J'ai besion de vous , j'ai essayé de créer une application.net sur vb (sur visual studio 2013) pour connecter à un serveur OFS
le code est le suivant pour le moment
Option Explicit On
Imports OPCDisp
Public Class Form1
Public OpcServer As IOPCServerDisp
Public OpcItemMgt As IOPCItemMgtDisp
Public OpcItem As IOPCItemDisp
Private Const ItemMax = 8
Private Const OPC_DS_DEVICE = 2
Dim ClientHandles(ItemMax) As Long
Dim ServerHandles As Object
Dim bConnect As Boolean
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i%
'*** Connect to OPC Server ***
OpcServer = CreateObject("Schneider-Aut.OFSAut")
If TypeName(OpcServer) = TypeName(Nothing) Then Return
'*** Add OPCGroup ***
Dim UpdateRate As Long
Dim ServerHdl As Long
UpdateRate = 500
OpcItemMgt = OpcServer.AddGroup("Group One", True, UpdateRate, 22, 1, 0, ServerHdl, UpdateRate)
If TypeName(OpcItemMgt) = TypeName(Nothing) Then Return
'*** Add OPCItems ***
Dim ItemIDs(ItemMax) As String
Dim AccessPaths(ItemMax) As String
Dim Active(ItemMax) As Boolean
Dim Errors As Object = "error"
Dim ItemObjects As Object = 1
Dim DataType(ItemMax) As Object
For i% = 0 To ItemMax - 1
Active(i%) = True
ClientHandles(i%) = 22 + i%
AccessPaths(i%) = ""
ItemIDs(i%) = "TM221ME1!%MW0"
DataType(i%) = 2
Next i%
OpcItemMgt.AddItems(ItemMax, ItemIDs, Active, ClientHandles, ServerHandles, Errors, ItemObjects, AccessPaths, DataType)
End Sub
End Class
la connexion ainsi que la création d'un groupe se fait sans aucun probléme mais lors de l'ajout des items il m'affiche cette erreur
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in autrepro.exe
Additional information: Exception de HRESULT : 0xEFEE4977
jmais j'ai pas trouvé aucune explication à ce type d'erreur
quelqu'un peut m'aider SVP