OPC en VB.net - tipo pc influencia ?
Publicado por Carles Pons (1 intervención) el 05/07/2007 11:48:53
Buenos días,
Estoy programando una aplicacion SCADA en VB.net, atacando un PLC .
El problema lo tengo en que si la aplicacion en VB se ejecuta en el portatil, ningun problema, todo va correctamente, ahora bien, si se ejecuta en el PC donde tendra que ir la aplicación, entonce da un error en el paso que se ejecuta "ServidorOPC.OPCGroups.DefaultGroupLocaleID = 0 ", el numero de error que da es el 91; que significa ??
ServidorOPC = New OPCServer() ' Creamos el servidor
ProgIDServidor = "CoDeSys.OPC.02" ' Cargamos el Nombre del servidor
NodoServidor = "\\CARLESP" ' Cargamos el nodo del servidor
ServidorOPC.Connect(ProgIDServidor, NodoServidor) ' Conectamos el servidor
Si_Error_QueryInterface: ' Etiqueta donde se tiene que volver en el caso de tener un error en la siguiente intrucción de tipo QueryInterface
GruposOPC = ServidorOPC.OPCGroups() ' Cargamos la coleccion de Grupos
ServidorOPC.OPCGroups.DefaultGroupLocaleID = 0 ' Pore defecto a los grupos que se creen se las dara una ID = 0
Return True
VerError:
If Err.Number = 13 And Num_Errores < 2 Then ' Si el error se ha provocado por la OPCDaAuto.DLL en la Interface ( Error Provocado solo en .net)
Estoy programando una aplicacion SCADA en VB.net, atacando un PLC .
El problema lo tengo en que si la aplicacion en VB se ejecuta en el portatil, ningun problema, todo va correctamente, ahora bien, si se ejecuta en el PC donde tendra que ir la aplicación, entonce da un error en el paso que se ejecuta "ServidorOPC.OPCGroups.DefaultGroupLocaleID = 0 ", el numero de error que da es el 91; que significa ??
ServidorOPC = New OPCServer() ' Creamos el servidor
ProgIDServidor = "CoDeSys.OPC.02" ' Cargamos el Nombre del servidor
NodoServidor = "\\CARLESP" ' Cargamos el nodo del servidor
ServidorOPC.Connect(ProgIDServidor, NodoServidor) ' Conectamos el servidor
Si_Error_QueryInterface: ' Etiqueta donde se tiene que volver en el caso de tener un error en la siguiente intrucción de tipo QueryInterface
GruposOPC = ServidorOPC.OPCGroups() ' Cargamos la coleccion de Grupos
ServidorOPC.OPCGroups.DefaultGroupLocaleID = 0 ' Pore defecto a los grupos que se creen se las dara una ID = 0
Return True
VerError:
If Err.Number = 13 And Num_Errores < 2 Then ' Si el error se ha provocado por la OPCDaAuto.DLL en la Interface ( Error Provocado solo en .net)
Valora esta pregunta
0