
OpcLabs.EasyOpcUA Assembly > OpcLabs.EasyOpc.UA.Engine.ComTypes Namespace : _UAClientServerApplicationParameters Interface |
[CLSCompliant(false)] [ComVisible(true)] [Guid("4EBB9E50-E292-4D01-A182-8345BC293D21")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface _UAClientServerApplicationParameters
[CLSCompliant(false)] [ComVisible(true)] [Guid("4EBB9E50-E292-4D01-A182-8345BC293D21")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface class _UAClientServerApplicationParameters
'Declaration
<CLSCompliantAttribute(False)> <ComVisibleAttribute(True)> <GuidAttribute("4EBB9E50-E292-4D01-A182-8345BC293D21")> <InterfaceTypeAttribute(ComInterfaceType.InterfaceIsDual)> Public Interface _UAClientServerApplicationParameters
'Usage
Dim instance As _UAClientServerApplicationParameters
// This example demonstrates how to set the application name for the client certificate. // // Find all latest examples here : https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . type TClientManagementEventHandlers103 = class procedure OnLogEntry( ASender: TObject; sender: OleVariant; const eventArgs: _LogEntryEventArgs); end; // Event handler for the LogEntry event. // Print the loggable entry containing client certificate parameters. procedure TClientManagementEventHandlers103.OnLogEntry( ASender: TObject; sender: OleVariant; const eventArgs: _LogEntryEventArgs); begin if eventArgs.EventId = 161 then WriteLn(eventArgs.ToString); end; class procedure ApplicationName.Main; var Application: TEasyUAApplication; Client: OpcLabs_EasyOpcUA_TLB._EasyUAClient; ClientManagement: TEasyUAClientManagement; ClientManagementEventHandlers: TClientManagementEventHandlers103; Value: OleVariant; begin // The configuration object allows access to static behavior - here, the // shared LogEntry event. ClientManagement := TEasyUAClientManagement.Create(nil); ClientManagementEventHandlers := TClientManagementEventHandlers103.Create; ClientManagement.OnLogEntry := ClientManagementEventHandlers.OnLogEntry; ClientManagement.Connect; // Obtain the application interface. Application := TEasyUAApplication.Create(nil); try // Set the application name, which determines the subject of the client certificate. // Note that this only works once in each host process. Application.ApplicationParameters.ApplicationManifest.ApplicationName := 'QuickOPC - Delphi example application'; // Do something - invoke an OPC read, to trigger some loggable entries. Client := CoEasyUAClient.Create; try Value := Client.ReadValue( //'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', 'nsu=http://test.org/UA/Data/ ;i=10853'); except on E: EOleException do begin WriteLn(Format('*** Failure: %s', [E.GetBaseException.Message])); end; end; // The certificate will be located or created in a directory similar to: // C:\ProgramData\OPC Foundation\CertificateStores\MachineDefault\certs // and its subject will be as given by the application name. WriteLn('Processing log entry events for 10 seconds...'); PumpSleep(10*1000); WriteLn('Finished...'); finally FreeAndNil(Application); FreeAndNil(ClientManagement); FreeAndNil(ClientManagementEventHandlers); end; end;
// This example demonstrates how to set the application name for the client certificate. // // Find all latest examples here : https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . class ClientManagementEvents { // Event handler for the LogEntry event. // Print the loggable entry containing client certificate parameters. function LogEntry($Sender, $E) { if ($E->EventId == 161) printf("%s\n", $E); } } // The management object allows access to static behavior - here, the // shared LogEntry event. $ClientManagement = new COM("OpcLabs.EasyOpc.UA.EasyUAClientManagement"); $ClientManagementEvents = new ClientManagementEvents(); com_event_sink($ClientManagement, $ClientManagementEvents, "DEasyUAClientManagementEvents"); // Obtain the application interface. $Application = new COM("OpcLabs.EasyOpc.UA.Application.EasyUAApplication"); // Set the application name, which determines the subject of the client certificate. // Note that this only works once in each host process. $Application->ApplicationParameters->ApplicationManifest->ApplicationName = "QuickOPC - PHP example application"; // Do something - invoke an OPC read, to trigger some loggable entries. $Client = new COM("OpcLabs.EasyOpc.UA.EasyUAClient"); try { $value = $Client->ReadValue( //"http://opcua.demo-this.com:51211/UA/SampleServer", "opc.tcp://opcua.demo-this.com:51210/UA/SampleServer", "nsu=http://test.org/UA/Data/ ;i=10853"); } catch (com_exception $e) { printf("*** Failure: %s\n", $e->getMessage()); } // The certificate will be located or created in a directory similar to: // C:\ProgramData\OPC Foundation\CertificateStores\MachineDefault\certs // and its subject will be as given by the application name. printf("Processing log entry events for 10 seconds..."); $startTime = time(); do { com_message_pump(1000); } while (time() < $startTime + 10); printf("Finished.\n");
REM This example demonstrates how to set the application name for the client certificate. REM REM Find all latest examples here : https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . Private Sub ApplicationName_Main_Command_Click() OutputText = "" ' Obtain the application interface Dim Application As New EasyUAApplication ' Set the application name, which determines the subject of the client certificate. ' Note that this only works once in each host process. Application.ApplicationParameters.ApplicationManifest.applicationName = "QuickOPC - VB6 example application" ' Do something - invoke an OPC read, to trigger some loggable entries. Dim client As New EasyUAClient On Error Resume Next Dim value As Variant value = client.ReadValue("opc.tcp://opcua.demo-this.com:51210/UA/SampleServer", "nsu=http://test.org/UA/Data/ ;i=10853") If Err.Number <> 0 Then OutputText = OutputText & "*** Failure: " & Err.Source & ": " & Err.Description & vbCrLf Exit Sub End If On Error GoTo 0 ' The certificate will be located or created in a directory similar to: ' C:\ProgramData\OPC Foundation\CertificateStores\MachineDefault\certs ' and its subject will be as given by the application name. OutputText = OutputText & "Processing log entry events for 10 seconds..." & vbCrLf Pause 10000 Set Application = Nothing OutputText = OutputText & "Finished..." & vbCrLf End Sub ' Event handler for the LogEntry event. It simply prints out the event. Private Sub ClientManagement1_LogEntry(ByVal sender As Variant, ByVal eventArgs As OpcLabs_BaseLib.LogEntryEventArgs) If eventArgs.eventId = 161 Then OutputText = OutputText & eventArgs & vbCrLf End If End Sub
Rem This example demonstrates how to set the application name for the client certificate. Rem Rem Find all latest examples here : https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html . Option Explicit ' The management object allows access to static behavior. WScript.Echo "Obtaining the client management object..." Dim ClientManagement: Set ClientManagement = CreateObject("OpcLabs.EasyOpc.UA.EasyUAClientManagement") WScript.ConnectObject ClientManagement, "ClientManagement_" WScript.Echo "Obtaining the application interface..." Dim Application: Set Application = CreateObject("OpcLabs.EasyOpc.UA.Application.EasyUAApplication") ' Set the application name, which determines the subject of the client certificate. ' Note that this only works once in each host process. WScript.Echo "Setting the application name..." Application.ApplicationParameters.ApplicationManifest.ApplicationName = "QuickOPC - VBScript example application" WScript.Echo "Creating a client object..." Dim Client: Set Client = CreateObject("OpcLabs.EasyOpc.UA.EasyUAClient") ' Do something - invoke an OPC read, to trigger some loggable entries. WScript.Echo "Reading a value..." On Error Resume Next Dim value: value = Client.ReadValue("opc.tcp://opcua.demo-this.com:51210/UA/SampleServer", "nsu=http://test.org/UA/Data/ ;i=10853") If Err.Number <> 0 Then WScript.Echo "*** Failure: " & Err.Source & ": " & Err.Description WScript.Quit End If On Error Goto 0 ' The certificate will be located or created in a directory similar to: ' C:\Users\All Users\OPC Foundation\CertificateStores\UA Applications\certs\ ' and its subject will be as given by the application name. WScript.Echo "Processing log entry events for 10 seconds..." WScript.Sleep 10*1000 WScript.Echo "Finished." ' Event handler for the LogEntry event. ' Print the loggable entry containing client certificate parameters. Sub ClientManagement_LogEntry(Sender, e) If e.EventId = 161 Then WScript.Echo e End Sub
Target Platforms: .NET Framework: Windows 10 (selected versions), Windows 11 (selected versions), Windows Server 2016, Windows Server 2022; .NET: Linux, macOS, Microsoft Windows
Copyright © 2004-2024 CODE Consulting and Development, s.r.o., Plzen. All rights reserved. Web page: www.opclabs.com
Send Documentation Feedback. Resources: Knowledge Base, Product Downloads. Technical support: Online Forums, FAQ.Missing some example? Ask us for it on our Online Forums! You do not have to own a commercial license in order to use Online Forums, and we reply to every post.