
'Declaration
<CLSCompliantAttribute(False)> <ComVisibleAttribute(True)> <GuidAttribute("50F0BA3D-30B6-40C6-882A-323484B9DD4C")> <InterfaceTypeAttribute(ComInterfaceType.InterfaceIsDual)> Public Interface _OpcServerDialog
'Usage
Dim instance As _OpcServerDialog
[CLSCompliant(false)] [ComVisible(true)] [Guid("50F0BA3D-30B6-40C6-882A-323484B9DD4C")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface _OpcServerDialog
[CLSCompliant(false)] [ComVisible(true)] [Guid("50F0BA3D-30B6-40C6-882A-323484B9DD4C")] [InterfaceType(ComInterfaceType.InterfaceIsDual)] public interface class _OpcServerDialog
This member or type is for use from COM. It is not meant to be used from .NET or Python. Refer to the corresponding .NET member or type instead, if you are developing in .NET or Python.
// This example shows how to let the user browse for an OPC "Classic" server. // // 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 ShowDialog.Main; var ServerDialog: OpcLabs_EasyOpcForms_TLB._OpcServerDialog; begin // Instantiate the dialog object ServerDialog := CoOpcServerDialog.Create; ServerDialog.ShowDialog(nil); // Display results WriteLn(ServerDialog.ServerElement.ToString); end;
Rem This example shows how to let the user browse for an OPC "Classic" server. 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. Private Sub ShowDialog_Main_Command_Click() OutputText = "" ' Instantiate the dialog object Dim serverDialog As New OpcServerDialog Dim DialogResult DialogResult = serverDialog.ShowDialog OutputText = OutputText & DialogResult & vbCrLf If DialogResult <> 1 Then ' OK Exit Sub End If ' Display results OutputText = OutputText & serverDialog.ServerElement & vbCrLf End Sub
Rem This example shows how to let the user browse for an OPC "Classic" server. 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 Const DialogResult_OK = 1 Dim ServerDialog: Set ServerDialog = CreateObject("OpcLabs.EasyOpc.Forms.Browsing.OpcServerDialog") 'ServerDialog.Location = "" Dim dialogResult: dialogResult = ServerDialog.ShowDialog WScript.Echo dialogResult If dialogResult <> DialogResult_OK Then WScript.Quit End If ' Display results WScript.Echo ServerDialog.ServerElement