Thank you for the fast reply.
The Example should also work, because it is calling BrowseNodes, at least the version I claim does so. But I think I already figured it out. The Problem is that if I am starting the program via debugger, it won’t give me any results for the CodeSys Server but if I start the .exe it will work just fine.
Even though I managed to solve this kind of Problem somehow (by starting the .exe not the debugger) I can show you my code for browsing the servers. Maybe you can explain to me why the call via debugger has impact on the result.
- The Serverdescriptor is generated by the ServerElement from BrowseServers
Code:
Public Shared Function LoadViaNetwork() As clsOPCStructureXML
Dim oDAClient As New EasyDAClient
Dim oServerList As ServerElementCollection = oDAClient.BrowseServers("", OpcTechnologies.All)
Dim oServerTree As New List(Of clsOPCServer)
AddHandler oDAClient.EventingFailure, _
Sub(sender As Object, e As OpcLabs.BaseLib.FailureEventArgs)
Logger.WriteException(e.Exception)
End Sub
For Each oServer As ServerElement In oServerList
Dim oOPCServer As New clsOPCServer(oServer)
LoadNodesForServer(oOPCServer, oDAClient)
oServerTree.Add(oOPCServer)
Next
oDAClient.Dispose()
Return New clsOPCStructureXML(oServerTree)
End Function
Public Shared Sub LoadNodesForServer(ByVal poOPCServer As clsOPCServer, ByVal poDAClient As EasyDAClient)
Dim oServerDescriptor As New ServerDescriptor(poOPCServer.Server)
poOPCServer.Nodes.Clear()
poOPCServer.Nodes.AddRange(LoadNodesForBranch(poDAClient, oServerDescriptor, DANodeDescriptor.Root))
End Sub
Public Shared Function LoadNodesForBranch(ByVal poDAClient As EasyDAClient, ByVal poServerDescriptor As ServerDescriptor, ByVal poParentNode As DANodeDescriptor) As List(Of clsOPCNode)
Dim oOPCNodeList As New List(Of clsOPCNode)
Try
Dim oBrowseParams = New DABrowseParameters
Dim oNodeCollection As DANodeElementCollection = poDAClient.BrowseNodes(poServerDescriptor, poParentNode, oBrowseParams)
For Each nodeElement As DANodeElement In oNodeCollection
If nodeElement.IsBranch Then
Dim oOPCBranch As New clsOPCBranch(nodeElement)
oOPCBranch.Nodes.AddRange(LoadNodesForBranch(poDAClient, poServerDescriptor, nodeElement))
oOPCNodeList.Add(oOPCBranch)
Else
oOPCNodeList.Add(nodeElement)
End If
Next nodeElement
Catch ex As OpcException
Logger.WriteException(ex)
Catch ex As Exception
Logger.WriteException(ex)
End Try
Return oOPCNodeList
End Function
For better understanding I am showing you the different results (same Program).
Result of the debugger
Attachment OPCForum_Debugger.PNG not found
Result of runing the .exe (log)
Attachment OPCForum_Log.PNG not found
The last part of question (PLC-Name) was just a mistake of mine and has nothing to do with QuickOPC.
Best regards
