4

我正在编写 opc 客户端,使用来自 opc 基金会的 .NET API。

在我只看到的示例中,项目的名称是硬编码的,例如:

items[0] = new Opc.Da.Item();
items[0].ItemName = "blahblahblah";

我想要的,不是亲手写下所有物品的名称。例如,我想将服务器中的所有项目加载到树中。我该怎么做?

4

5 回答 5

6

您可以使用以下构造浏览服务器:

using Opc.Da;
using Server=Opc.Da.Server;
using Factory=OpcCom.Factory;

string urlstring = string.Format("opcda://{0}/{1}/{{{2}}}", _hostName, _serverName, serverid);
Server s = new Server(new Factory(), new URL(urlstring));
s.Connect();
ItemIdentifier itemId = null;
BrowsePosition position;
BrowseFilters filters = new BrowseFilters() {BrowseFilter = browseFilter.item};
BrowseElement[] elements = s.Browse(itemId, filters, out position);

标签位于elements[i].Name 中。

于 2010-09-16T14:21:21.933 回答
1

您从 XML 文件加载项目。您可以使用任意数量的项目创建一次 XML 文件,然后仅在需要时对其进行编辑。例如,要解析它,您可以使用 MSXML DOM。VB.NET 中有一个解析器Parsing XML file in VB.NET using DOM。但是您可以在 C# 中搜索实现。

于 2011-08-07T18:50:47.867 回答
0

好吧,我不熟悉您的 opc 客户端库,但您应该能够浏览服务器项目。这是许多独立 OPC 客户端使用的通用功能。

于 2010-09-16T14:10:26.393 回答
0
Public Function Browse(ByRef node As TreeNode, Optional id As Opc.ItemIdentifier = Nothing) As Integer
    Try
        Dim clone As Opc.Da.Server = your_connected_server
        Dim filters As New Opc.Da.BrowseFilters
        filters.BrowseFilter = Opc.Da.browseFilter.all
        Dim pos As Opc.Da.BrowsePosition = Nothing
        Dim elements() As Opc.Da.BrowseElement = clone.Browse(id, filters, pos)
        If (elements IsNot Nothing) Then
            For Each element As Opc.Da.BrowseElement In elements
                Console.WriteLine(element.ItemName)
                AddBrowseElement(node, element)
                If (element.HasChildren = True) Then
                    id = New Opc.ItemIdentifier(element.ItemPath, element.ItemName)
                    Browse(node.Nodes.Item(node.Nodes.Count - 1), id)
                End If
            Next
        End If
        Return 0
    Catch ex As Exception
        RaiseEvent OnException(GetCurrentMethod, ex)
        Return -1
    End Try
End Function

Private Sub AddBrowseElement(ByRef parent As TreeNode, element As Opc.Da.BrowseElement)
    Dim node As TreeNode = New TreeNode(element.Name)
    node.Text = element.Name
    node.Tag = element

    ' add properties
    If (element.Properties IsNot Nothing) Then
        For Each [property] As Opc.Da.ItemProperty In element.Properties
            AddItemProperty(node, [property])
        Next
    End If
    ' add to parent.
    parent.Nodes.Add(node)
End Sub
于 2012-10-01T11:55:54.070 回答
0

使用 XML 或 NLOG 或 log4NET 文件加载标记项。

使用 opcdaauto.dll。它是 OPC 基金会成员的免费 dll

于 2014-02-11T11:16:24.903 回答