// This example shows how to monitor OPC UA client connections to the server. // You can use any OPC UA client, including our Connectivity Explorer and OpcCmd utility, to connect to the server. // // Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . // OPC client, server and subscriber examples in C# on GitHub: https://github.com/OPCLabs/Examples-OPCStudio-CSharp . // 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. using System; using Microsoft.Extensions.DependencyInjection; using OpcLabs.EasyOpc.UA; using OpcLabs.EasyOpc.UA.NodeSpace; using OpcLabs.EasyOpc.UA.OperationModel; using OpcLabs.EasyOpc.UA.Services; namespace UAServerDocExamples._EasyUAServerConnectionMonitoring { class ClientSessions { public static void Main1() { // Instantiate the server object. // By default, the server will run on endpoint URL "opc.tcp://localhost:48040/". var server = new EasyUAServer(); // Define a data variable providing random integers. var random = new Random(); server.Add(new UADataVariable("MyDataVariable").ReadValueFunction(() => random.Next())); // Obtain the server connection monitoring service. IEasyUAServerConnectionMonitoring serverConnectionMonitoring = server.GetService<IEasyUAServerConnectionMonitoring>(); if (serverConnectionMonitoring is null) { Console.WriteLine("The server connection monitoring service is not available."); return; } // Hook events. serverConnectionMonitoring.ClientSessionConnected += ServerConnectionMonitoringOnClientSessionConnected; serverConnectionMonitoring.ClientSessionDisconnected += ServerConnectionMonitoringOnClientSessionDisconnected; // Start the server. Console.WriteLine("The server is starting..."); server.Start(); Console.WriteLine("The server is started."); Console.WriteLine(); // Let the user decide when to stop. Console.WriteLine("Press Enter to stop the server..."); Console.ReadLine(); // Stop the server. Console.WriteLine("The server is stopping..."); server.Stop(); Console.WriteLine("The server is stopped."); } // Event handler for the ClientSessionConnected event. static private void ServerConnectionMonitoringOnClientSessionConnected( object sender, EasyUAClientSessionConnectionEventArgs e) { var serverConnectionMonitoring = (IEasyUAServerConnectionMonitoring)sender; Console.WriteLine( $"A client session has connected to endpoint \"{e.EndpointUrlString}\". " + $"There is now {serverConnectionMonitoring.ClientSessionCount} client session(s)."); } // Event handler for the ClientSessionDisconnected event. static private void ServerConnectionMonitoringOnClientSessionDisconnected( object sender, EasyUAClientSessionConnectionEventArgs e) { var serverConnectionMonitoring = (IEasyUAServerConnectionMonitoring)sender; Console.WriteLine( $"A client session has disconnected from endpoint \"{e.EndpointUrlString}\". " + $"There is now {serverConnectionMonitoring.ClientSessionCount} client session(s)."); } } }
' This example shows how to monitor OPC UA client connections to the server. ' You can use any OPC UA client, including our Connectivity Explorer and OpcCmd utility, to connect to the server. ' ' Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . ' OPC client and subscriber examples in VB.NET on GitHub: https://github.com/OPCLabs/Examples-QuickOPC-VBNET . ' 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. Imports System Imports Microsoft.Extensions.DependencyInjection Imports OpcLabs.EasyOpc.UA Imports OpcLabs.EasyOpc.UA.NodeSpace Imports OpcLabs.EasyOpc.UA.OperationModel Imports OpcLabs.EasyOpc.UA.Services Namespace _EasyUAServerConnectionMonitoring Partial Friend Class ClientSessions Shared Sub Main1() ' Instantiate the server object. ' By default, the server will run on endpoint URL "opc.tcp://localhost:48040/". Dim server = New EasyUAServer() ' Define a data variable providing random integers. Dim random = New Random() server.Add(New UADataVariable("MyDataVariable").ReadValueFunction(Function() random.Next())) ' Obtain the server connection monitoring service. Dim serverConnectionMonitoring As IEasyUAServerConnectionMonitoring = server.GetService(Of IEasyUAServerConnectionMonitoring) If serverConnectionMonitoring Is Nothing Then Console.WriteLine("The server connection monitoring service is not available.") Exit Sub End If ' Hook events. AddHandler serverConnectionMonitoring.ClientSessionConnected, AddressOf ServerConnectionMonitoringOnClientSessionConnected AddHandler serverConnectionMonitoring.ClientSessionDisconnected, AddressOf ServerConnectionMonitoringOnClientSessionDisconnected ' Start the server. Console.WriteLine("The server is starting...") server.Start() Console.WriteLine("The server is started.") Console.WriteLine() ' Let the user decide when to stop. Console.WriteLine("Press Enter to stop the server...") Console.ReadLine() ' Stop the server. Console.WriteLine("The server is stopping...") server.Stop() Console.WriteLine("The server is stopped.") End Sub ' Event handler for the ClientSessionConnected event. Private Shared Sub ServerConnectionMonitoringOnClientSessionConnected(ByVal sender As Object, ByVal e As EasyUAClientSessionConnectionEventArgs) Dim serverConnectionMonitoring As IEasyUAServerConnectionMonitoring = sender Console.WriteLine( $"A client session has connected to endpoint ""{e.EndpointUrlString}"". " + $"There is now {serverConnectionMonitoring.ClientSessionCount} client session(s).") End Sub ' Event handler for the ClientSessionDisconnected event. Private Shared Sub ServerConnectionMonitoringOnClientSessionDisconnected(ByVal sender As Object, ByVal e As EasyUAClientSessionConnectionEventArgs) Dim serverConnectionMonitoring As IEasyUAServerConnectionMonitoring = sender Console.WriteLine( $"A client session has disconnected from endpoint ""{e.EndpointUrlString}"". " + $"There is now {serverConnectionMonitoring.ClientSessionCount} client session(s).") End Sub End Class End Namespace
Copyright © 2004-2024 CODE Consulting and Development, s.r.o., Plzen. All rights reserved.
Documentation Home, Send Documentation Feedback. Technical Support