Quantcast
Channel: OPC Labs - OPC Labs - Recent Topics - OPC Labs Online Forums
Viewing all articles
Browse latest Browse all 1794

Xojo Client.ReadMultiple - by: NorbertKollmetz

$
0
0
Hello, is there an example code to read multiple values for Xojo.

get stuck:

// Create EasyOPC-UA component
Dim Client As New OleObject ("OpcLabs.EasyOpc.UA.EasyUAClient")

Dim ReadArguments1 As New OleObject ("OpcLabs.EasyOpc.UA.OperationModel.UAReadArguments")
ReadArguments1.EndpointDescriptor.UrlString = "opc.tcp://127.0.0.1:4840"
ReadArguments1.NodeDescriptor.NodeId.ExpandedText = "nsu=http://www.atvise.com/atServer/UA/;ns=1;s=AGENT.OBJECTS.TC_02.AV_TE"

Dim ReadArguments2 As New OleObject ("OpcLabs.EasyOpc.UA.OperationModel.UAReadArguments")
ReadArguments2.EndpointDescriptor.UrlString = "opc.tcp://127.0.0.1:4840"
ReadArguments2.NodeDescriptor.NodeId.ExpandedText = "nsu=http://www.atvise.com/atServer/UA/;ns=1;s=AGENT.OBJECTS.TC_03.AV_TE"

Dim ReadArguments3 As New OleObject ("OpcLabs.EasyOpc.UA.OperationModel.UAReadArguments")
ReadArguments3.EndpointDescriptor.UrlString = "opc.tcp://127.0.0.1:4840"
ReadArguments3.NodeDescriptor.NodeId.ExpandedText = "nsu=http://www.atvise.com/atServer/UA/;ns=1;s=AGENT.OBJECTS.TC_04.AV_TE"

Dim arguments(2) As Variant
arguments(0) = ReadArguments1
arguments(1) = ReadArguments2
arguments(2) = ReadArguments3

Dim results(2) As Variant

results = Client.ReadMultiple(arguments)


For Each result As OleObject In results

next

Viewing all articles
Browse latest Browse all 1794

Trending Articles