// Shows how to update an application registration in the GDS, keeping its application ID if possible.
using System;
using Microsoft.Extensions.DependencyInjection;
using OpcLabs.EasyOpc.UA;
using OpcLabs.EasyOpc.UA.AddressSpace;
using OpcLabs.EasyOpc.UA.Application;
using OpcLabs.EasyOpc.UA.Application.Extensions;
using OpcLabs.EasyOpc.UA.Extensions;
using OpcLabs.EasyOpc.UA.OperationModel;
namespace UADocExamples.Application._IEasyUAClientApplication
{
class UpdateGdsRegistration
{
public static void Main1()
{
// Define which GDS we will work with.
UAEndpointDescriptor gdsEndpointDescriptor =
((UAEndpointDescriptor)"opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer")
.WithUserNameIdentity("appadmin", "demo");
// Obtain the client application service.
var client = new EasyUAClient();
IEasyUAClientApplication clientApplication = client.GetService<IEasyUAClientApplication>();
// Display which application we are about to work with.
Console.WriteLine("Application URI string: {0}",
clientApplication.GetApplicationElement().ApplicationUriString);
// Update an application registration in the GDS, keeping its application ID if possible.
UANodeId applicationId;
try
{
applicationId = clientApplication.UpdateGdsRegistration(gdsEndpointDescriptor);
}
catch (UAException uaException)
{
Console.WriteLine("*** Failure: {0}", uaException.GetBaseException().Message);
return;
}
// Display results
Console.WriteLine("Application ID: {0}", applicationId);
}
}
}
// Shows how to update an application registration in the GDS, keeping its application ID if possible.
class procedure UpdateGdsRegistration.Main;
var
ApplicationId: _UANodeId;
Client: _EasyUAClient;
ClientApplication: _EasyUAClientApplication;
GdsEndpointDescriptor: _UAEndpointDescriptor;
begin
// Define which GDS we will work with.
GdsEndpointDescriptor := CoUAEndpointDescriptor.Create;
GdsEndpointDescriptor.UrlString := 'opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer';
GdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.UserName := 'appadmin';
GdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.Password := 'demo';
// Obtain the client application service.
Client := CoEasyUAClient.Create;
ClientApplication := IInterface(Client.GetServiceByName('OpcLabs.EasyOpc.UA.Application.IEasyUAClientApplication, OpcLabs.EasyOpcUA')) as _EasyUAClientApplication;
// Display which application we are about to work with.
WriteLn('Application URI string: ', ClientApplication.GetApplicationElement.ApplicationUriString);
// Update an application registration in the GDS, keeping its application ID if possible.
try
ApplicationId := ClientApplication.UpdateGdsRegistration(gdsEndpointDescriptor);
except
on E: EOleException do
begin
WriteLn(Format('*** Failure: %s', [E.GetBaseException.Message]));
end;
end;
// Display results
WriteLn('Application ID: ', ApplicationId.ToString);
end;
// Shows how to update an application registration in the GDS, keeping its application ID if possible.
// Define which GDS we will work with.
$GdsEndpointDescriptor = new COM("OpcLabs.EasyOpc.UA.UAEndpointDescriptor");
$GdsEndpointDescriptor->UrlString = "opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer";
$GdsEndpointDescriptor->UserIdentity->UserNameTokenInfo->UserName = "appadmin";
$GdsEndpointDescriptor->UserIdentity->UserNameTokenInfo->Password = "demo";
// Obtain the client application service.
$Client = new COM("OpcLabs.EasyOpc.UA.EasyUAClient");
$ClientApplication = $Client->GetServiceByName("OpcLabs.EasyOpc.UA.Application.IEasyUAClientApplication, OpcLabs.EasyOpcUA");
// Display which application we are about to work with.
printf("Application URI string: %s\n", $ClientApplication->GetApplicationElement->ApplicationUriString);
// Update an application registration in the GDS, keeping its application ID if possible.
try
{
$ApplicationId = $ClientApplication->UpdateGdsRegistration($GdsEndpointDescriptor);
}
catch (com_exception $e)
{
printf("*** Failure: %s\n", $e->getMessage());
exit();
}
// Display results
printf("Application ID: %s\n", $ApplicationId);
Rem Shows how to update an application registration in the GDS, keeping its application ID if possible.
Private Sub IEasyUAClientApplication_UpdateGdsRegistration_Main_Command_Click()
OutputText = ""
' Define which GDS we will work with.
Dim gdsEndpointDescriptor As New UAEndpointDescriptor
gdsEndpointDescriptor.UrlString = "opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer"
gdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.UserName = "appadmin"
gdsEndpointDescriptor.UserIdentity.UserNameTokenInfo.Password = "demo"
' Obtain the client application service.
Dim client As New EasyUAClient
Dim clientApplication As AbstractEasyUAClientApplication
Set clientApplication = client.GetServiceByName("OpcLabs.EasyOpc.UA.Application.IEasyUAClientApplication, OpcLabs.EasyOpcUA")
' Display which application we are about to work with.
OutputText = OutputText & "Application URI string: " & clientApplication.GetApplicationElement.applicationUriString & vbCrLf
' Update an application registration in the GDS, keeping its application ID if possible.
On Error Resume Next
Dim applicationId As UANodeId
Set applicationId = clientApplication.UpdateGdsRegistration(gdsEndpointDescriptor)
If Err.Number <> 0 Then
OutputText = OutputText & "*** Failure: " & Err.Source & ": " & Err.Description & vbCrLf
Exit Sub
End If
On Error GoTo 0
' Display results
OutputText = OutputText & "Application ID: " & applicationId & vbCrLf
End Sub
' Shows how to update an application registration in the GDS, keeping its application ID if possible.
Imports Microsoft.Extensions.DependencyInjection
Imports OpcLabs.EasyOpc.UA
Imports OpcLabs.EasyOpc.UA.AddressSpace
Imports OpcLabs.EasyOpc.UA.Application
Imports OpcLabs.EasyOpc.UA.Application.Extensions
Imports OpcLabs.EasyOpc.UA.Extensions
Imports OpcLabs.EasyOpc.UA.OperationModel
Namespace UADocExamples.Application._IEasyUAClientApplication
Friend Class UpdateGdsRegistration
Public Shared Sub Main1()
' Define which GDS we will work with.
Dim gdsEndpointDescriptor As UAEndpointDescriptor =
New UAEndpointDescriptor("opc.tcp://opcua.demo-this.com:58810/GlobalDiscoveryServer") _
.WithUserNameIdentity("appadmin", "demo")
' Obtain the client application service.
Dim client = New EasyUAClient()
Dim clientApplication = client.GetService(Of IEasyUAClientApplication)()
' Display which application we are about to work with.
Console.WriteLine("Application URI string: {0}",
clientApplication.GetApplicationElement().ApplicationUriString)
' Update an application registration in the GDS, keeping its application ID if possible.
Dim applicationId As UANodeId
Try
applicationId = clientApplication.UpdateGdsRegistration(gdsEndpointDescriptor)
Catch uaException As UAException
Console.WriteLine("*** Failure: {0}", uaException.GetBaseException.Message)
Exit Sub
End Try
' Display results
Console.WriteLine("Application ID: {0}", applicationId)
End Sub
End Class
End Namespace