// This example shows how to write values into 3 nodes at once, test for success of each write and display the exception
// message in case of failure.
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
// Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
// a commercial license in order to use Online Forums, and we reply to every post.
#include "stdafx.h" // Includes "QuickOpc.h", and other commonly used files
#include <atlsafe.h>
#include "WriteMultipleValues.h"
namespace _EasyUAClient
{
void WriteMultipleValues::TestSuccess()
{
// Initialize the COM library
CoInitializeEx(NULL, COINIT_MULTITHREADED);
{
// Instantiate the client object
_EasyUAClientPtr ClientPtr(__uuidof(EasyUAClient));
_UAWriteValueArgumentsPtr WriteValueArguments1Ptr(_uuidof(UAWriteValueArguments));
WriteValueArguments1Ptr->EndpointDescriptor->UrlString =
//L"http://opcua.demo-this.com:51211/UA/SampleServer";
L"opc.tcp://opcua.demo-this.com:51210/UA/SampleServer";
WriteValueArguments1Ptr->NodeDescriptor->NodeId->ExpandedText = L"nsu=http://test.org/UA/Data/ ;i=10221";
WriteValueArguments1Ptr->Value = 23456;
_UAWriteValueArgumentsPtr WriteValueArguments2Ptr(_uuidof(UAWriteValueArguments));
WriteValueArguments2Ptr->EndpointDescriptor->UrlString =
//L"http://opcua.demo-this.com:51211/UA/SampleServer";
L"opc.tcp://opcua.demo-this.com:51210/UA/SampleServer";
WriteValueArguments2Ptr->NodeDescriptor->NodeId->ExpandedText = L"nsu=http://test.org/UA/Data/ ;i=10226";
WriteValueArguments2Ptr->Value = L"This string cannot be converted to Double";
_UAWriteValueArgumentsPtr WriteValueArguments3Ptr(_uuidof(UAWriteValueArguments));
WriteValueArguments3Ptr->EndpointDescriptor->UrlString =
//L"http://opcua.demo-this.com:51211/UA/SampleServer";
L"opc.tcp://opcua.demo-this.com:51210/UA/SampleServer";
WriteValueArguments3Ptr->NodeDescriptor->NodeId->ExpandedText = L"nsu=http://test.org/UA/Data/ ;s=UnknownNode";
WriteValueArguments3Ptr->Value = L"ABC";
CComSafeArray<VARIANT> arguments(3);
arguments.SetAt(0, _variant_t((IDispatch*)WriteValueArguments1Ptr));
arguments.SetAt(1, _variant_t((IDispatch*)WriteValueArguments2Ptr));
arguments.SetAt(2, _variant_t((IDispatch*)WriteValueArguments3Ptr));
CComVariant vArguments(arguments);
// Obtain values. By default, the Value attributes of the nodes will be Write.
CComSafeArray<VARIANT> results;
results.Attach(ClientPtr->WriteMultipleValues(&vArguments));
// Display results
for (int i = results.GetLowerBound(); i <= results.GetUpperBound(); i++)
{
_UAWriteResultPtr ResultPtr = results[i];
if (ResultPtr->Succeeded)
_tprintf(_T("Result %d success\n"), i);
else
_tprintf(_T("Result s\n"), i, (LPCTSTR)CW2CT(ResultPtr->Exception->GetBaseException()->Message));
}
}
// Release all interface pointers BEFORE calling CoUninitialize()
CoUninitialize();
}
}
// This example shows how to write values into 3 nodes at once, test for
// success of each write and display the exception message in case of failure.
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
// Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
// a commercial license in order to use Online Forums, and we reply to every post.
class procedure WriteMultipleValues.TestSuccess;
var
Arguments: OleVariant;
Client: EasyUAClient;
I: Cardinal;
WriteResult: _UAWriteResult;
WriteValueArguments1, WriteValueArguments2, WriteValueArguments3: _UAWriteValueArguments;
Results: OleVariant;
begin
WriteValueArguments1 := CoUAWriteValueArguments.Create;
WriteValueArguments1.EndpointDescriptor.UrlString :=
//'http://opcua.demo-this.com:51211/UA/SampleServer';
'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer';
WriteValueArguments1.NodeDescriptor.NodeId.ExpandedText := 'nsu=http://test.org/UA/Data/ ;i=10221';
WriteValueArguments1.Value := 23456;
WriteValueArguments2 := CoUAWriteValueArguments.Create;
WriteValueArguments2.EndpointDescriptor.UrlString :=
//'http://opcua.demo-this.com:51211/UA/SampleServer';
'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer';
WriteValueArguments2.NodeDescriptor.NodeId.ExpandedText := 'nsu=http://test.org/UA/Data/ ;i=10226';
WriteValueArguments2.Value := 'This string cannot be converted to Double';
WriteValueArguments3 := CoUAWriteValueArguments.Create;
WriteValueArguments3.EndpointDescriptor.UrlString :=
//'http://opcua.demo-this.com:51211/UA/SampleServer';
'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer';
WriteValueArguments3.NodeDescriptor.NodeId.ExpandedText := 'nsu=http://test.org/UA/Data/ ;s=UnknownNode';
WriteValueArguments3.Value := 'ABC';
Arguments := VarArrayCreate([0, 2], varVariant);
Arguments[0] := WriteValueArguments1;
Arguments[1] := WriteValueArguments2;
Arguments[2] := WriteValueArguments3;
// Instantiate the client object
Client := CoEasyUAClient.Create;
// Modify values of nodes
TVarData(Results).VType := varArray or varVariant;
TVarData(Results).VArray := PVarArray(Client.WriteMultipleValues(
PSafeArray(TVarData(Arguments).VArray)));
// Display results
for I := VarArrayLowBound(Results, 1) to VarArrayHighBound(Results, 1) do
begin
WriteResult := IInterface(Results[I]) as _UAWriteResult;
if WriteResult.Succeeded then
WriteLn('Result ', I, ' success')
else
WriteLn('Result ', I, ': ', WriteResult.Exception.GetBaseException.Message);
end;
end;
// This example shows how to write values into 3 nodes at once, test for
// success of each write and display the exception message in case of failure.
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
// OPC client and subscriber examples in Object Pascal (Delphi) on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-OP .
// Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
// a commercial license in order to use Online Forums, and we reply to every post.
class procedure WriteMultipleValues.TestSuccess;
var
Arguments: OleVariant;
Client: OpcLabs_EasyOpcUA_TLB._EasyUAClient;
I: Cardinal;
WriteResult: _UAWriteResult;
WriteValueArguments1, WriteValueArguments2, WriteValueArguments3: _UAWriteValueArguments;
Results: OleVariant;
begin
WriteValueArguments1 := CoUAWriteValueArguments.Create;
WriteValueArguments1.EndpointDescriptor.UrlString :=
//'http://opcua.demo-this.com:51211/UA/SampleServer';
//'https://opcua.demo-this.com:51212/UA/SampleServer/';
'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer';
WriteValueArguments1.NodeDescriptor.NodeId.ExpandedText := 'nsu=http://test.org/UA/Data/ ;i=10221';
WriteValueArguments1.Value := 23456;
WriteValueArguments2 := CoUAWriteValueArguments.Create;
WriteValueArguments2.EndpointDescriptor.UrlString :=
//'http://opcua.demo-this.com:51211/UA/SampleServer';
//'https://opcua.demo-this.com:51212/UA/SampleServer/';
'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer';
WriteValueArguments2.NodeDescriptor.NodeId.ExpandedText := 'nsu=http://test.org/UA/Data/ ;i=10226';
WriteValueArguments2.Value := 'This string cannot be converted to Double';
WriteValueArguments3 := CoUAWriteValueArguments.Create;
WriteValueArguments3.EndpointDescriptor.UrlString :=
//'http://opcua.demo-this.com:51211/UA/SampleServer';
//'https://opcua.demo-this.com:51212/UA/SampleServer/';
'opc.tcp://opcua.demo-this.com:51210/UA/SampleServer';
WriteValueArguments3.NodeDescriptor.NodeId.ExpandedText := 'nsu=http://test.org/UA/Data/ ;s=UnknownNode';
WriteValueArguments3.Value := 'ABC';
Arguments := VarArrayCreate([0, 2], varVariant);
Arguments[0] := WriteValueArguments1;
Arguments[1] := WriteValueArguments2;
Arguments[2] := WriteValueArguments3;
// Instantiate the client object
Client := CoEasyUAClient.Create;
// Modify values of nodes
TVarData(Results).VType := varArray or varVariant;
TVarData(Results).VArray := PVarArray(Client.WriteMultipleValues(Arguments));
// Display results
for I := VarArrayLowBound(Results, 1) to VarArrayHighBound(Results, 1) do
begin
WriteResult := IInterface(Results[I]) as _UAWriteResult;
if WriteResult.Succeeded then
WriteLn('Result ', I, ' success')
else
WriteLn('Result ', I, ': ', WriteResult.Exception.GetBaseException.Message);
end;
VarClear(Results);
VarClear(Arguments);
end;
// This example shows how to write values into 3 nodes at once, test for success of each write and display the exception
// message in case of failure.
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
// OPC client and subscriber examples in PHP on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-PHP .
// Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
// a commercial license in order to use Online Forums, and we reply to every post.
// Instantiate the client object
$Client = new COM("OpcLabs.EasyOpc.UA.EasyUAClient");
$WriteValueArguments1 = new COM("OpcLabs.EasyOpc.UA.OperationModel.UAWriteValueArguments");
$WriteValueArguments1->EndpointDescriptor->UrlString =
//"http://opcua.demo-this.com:51211/UA/SampleServer";
//"https://opcua.demo-this.com:51212/UA/SampleServer/";
"opc.tcp://opcua.demo-this.com:51210/UA/SampleServer";
$WriteValueArguments1->NodeDescriptor->NodeId->ExpandedText = "nsu=http://test.org/UA/Data/ ;i=10221";
$WriteValueArguments1->Value = 23456;
$WriteValueArguments2 = new COM("OpcLabs.EasyOpc.UA.OperationModel.UAWriteValueArguments");
$WriteValueArguments2->EndpointDescriptor->UrlString =
//"http://opcua.demo-this.com:51211/UA/SampleServer";
//"https://opcua.demo-this.com:51212/UA/SampleServer/";
"opc.tcp://opcua.demo-this.com:51210/UA/SampleServer";
$WriteValueArguments2->NodeDescriptor->NodeId->ExpandedText = "nsu=http://test.org/UA/Data/ ;i=10226";
$WriteValueArguments2->Value = "This string cannot be converted to Double";
$WriteValueArguments3 = new COM("OpcLabs.EasyOpc.UA.OperationModel.UAWriteValueArguments");
$WriteValueArguments3->EndpointDescriptor->UrlString =
//"http://opcua.demo-this.com:51211/UA/SampleServer";
//"https://opcua.demo-this.com:51212/UA/SampleServer/";
"opc.tcp://opcua.demo-this.com:51210/UA/SampleServer";
$WriteValueArguments3->NodeDescriptor->NodeId->ExpandedText = "nsu=http://test.org/UA/Data/ ;s=UnknownNode";
$WriteValueArguments3->Value = "ABC";
$arguments[0] = $WriteValueArguments1;
$arguments[1] = $WriteValueArguments2;
$arguments[2] = $WriteValueArguments3;
// Modify values of nodes
$results = $Client->WriteMultipleValues($arguments);
// Display results
for ($i = 0; $i < count($results); $i++)
{
$WriteResult = $results[$i];
// The UA Test Server does not support this, and therefore a failure will occur.
if ($WriteResult->Succeeded)
printf("Result %d success\n", $i);
else
printf("Result s \n", $i, $WriteResult->Exception->GetBaseException()->Message);
}
REM This example shows how to write values into 3 nodes at once, test for success of each write and display the exception
REM message in case of failure.
REM
REM Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
REM OPC client and subscriber examples in Visual Basic on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VB .
REM Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
REM a commercial license in order to use Online Forums, and we reply to every post.
Public Sub WriteMultipleValues_TestSuccess_Command_Click()
OutputText = ""
' Instantiate the client object
Dim Client As New EasyUAClient
Dim WriteValueArguments1 As New UAWriteValueArguments
WriteValueArguments1.endpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer"
WriteValueArguments1.nodeDescriptor.NodeId.expandedText = "nsu=http://test.org/UA/Data/ ;i=10221"
WriteValueArguments1.SetValue 23456
Dim WriteValueArguments2 As New UAWriteValueArguments
WriteValueArguments2.endpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer"
WriteValueArguments2.nodeDescriptor.NodeId.expandedText = "nsu=http://test.org/UA/Data/ ;i=10226"
WriteValueArguments2.SetValue "This string cannot be converted to Double"
Dim WriteValueArguments3 As New UAWriteValueArguments
WriteValueArguments3.endpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer"
WriteValueArguments3.nodeDescriptor.NodeId.expandedText = "nsu=http://test.org/UA/Data/ ;s=UnknownNode"
WriteValueArguments3.SetValue "ABC"
Dim arguments(2) As Variant
Set arguments(0) = WriteValueArguments1
Set arguments(1) = WriteValueArguments2
Set arguments(2) = WriteValueArguments3
' Modify values of nodes
Dim results As Variant
results = Client.WriteMultipleValues(arguments)
' Display results
Dim i: For i = LBound(results) To UBound(results)
Dim Result As UAWriteResult: Set Result = results(i)
If Result.Succeeded Then
OutputText = OutputText & "Result " & i & " success" & vbCrLf
Else
OutputText = OutputText & "Result " & i & ": " & Result.Exception.GetBaseException().Message & vbCrLf
End If
Next
End Sub
Rem This example shows how to write values into 3 nodes at once, test for success of each write and display the exception
Rem message in case of failure.
Rem
Rem Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
Rem OPC client and subscriber examples in VBScript on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VBScript .
Rem Missing some example? Ask us for it on our Online Forums, https://www.opclabs.com/forum/index ! You do not have to own
Rem a commercial license in order to use Online Forums, and we reply to every post.
Option Explicit
' Instantiate the client object
Dim Client: Set Client = CreateObject("OpcLabs.EasyOpc.UA.EasyUAClient")
Dim WriteValueArguments1: Set WriteValueArguments1 = CreateObject("OpcLabs.EasyOpc.UA.OperationModel.UAWriteValueArguments")
WriteValueArguments1.EndpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer"
WriteValueArguments1.NodeDescriptor.NodeId.ExpandedText = "nsu=http://test.org/UA/Data/ ;i=10221"
WriteValueArguments1.Value = 23456
Dim WriteValueArguments2: Set WriteValueArguments2 = CreateObject("OpcLabs.EasyOpc.UA.OperationModel.UAWriteValueArguments")
WriteValueArguments2.EndpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer"
WriteValueArguments2.NodeDescriptor.NodeId.ExpandedText = "nsu=http://test.org/UA/Data/ ;i=10226"
WriteValueArguments2.Value = "This string cannot be converted to Double"
Dim WriteValueArguments3: Set WriteValueArguments3 = CreateObject("OpcLabs.EasyOpc.UA.OperationModel.UAWriteValueArguments")
WriteValueArguments3.EndpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer"
WriteValueArguments3.NodeDescriptor.NodeId.ExpandedText = "nsu=http://test.org/UA/Data/ ;s=UnknownNode"
WriteValueArguments3.Value = "ABC"
Dim arguments(2)
Set arguments(0) = WriteValueArguments1
Set arguments(1) = WriteValueArguments2
Set arguments(2) = WriteValueArguments3
' Modify values of nodes
Dim results: results = Client.WriteMultipleValues(arguments)
' Display results
Dim i: For i = LBound(results) To UBound(results)
Dim WriteResult: Set WriteResult = results(i)
If WriteResult.Succeeded Then
WScript.Echo "Result " & i & " success"
Else
WScript.Echo "Result " & i & ": " & WriteResult.Exception.GetBaseException().Message
End If
Next