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
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