SungjuNewPrime/OPC Server Setting/OPC Client sample(DotNet to Delphi13)/Delphi13_VCL/__history/uOPCClient.dfm.~7~
jhw 6516e4a8f0 first upload
OPC test program upload
2026-09-04 11:41:21 +09:00

134 lines
2.3 KiB
Plaintext

object fOPCClient: TfOPCClient
Left = 0
Top = 0
Caption = 'OPC Client Sample'
ClientHeight = 513
ClientWidth = 414
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
OnCreate = FormCreate
OnDestroy = FormDestroy
TextHeight = 15
object Label5: TLabel
Left = 16
Top = 12
Width = 67
Height = 15
Caption = 'Server Name'
end
object Label1: TLabel
Left = 16
Top = 168
Width = 59
Height = 15
Caption = 'Item Name'
end
object Label2: TLabel
Left = 112
Top = 168
Width = 28
Height = 15
Caption = 'Value'
end
object Label3: TLabel
Left = 168
Top = 168
Width = 56
Height = 15
Caption = 'Date/Time'
end
object Label4: TLabel
Left = 304
Top = 168
Width = 38
Height = 15
Caption = 'Quality'
end
object Label6: TLabel
Left = 360
Top = 168
Width = 25
Height = 15
Caption = 'Type'
end
object txtSvrName: TEdit
Left = 96
Top = 8
Width = 136
Height = 23
TabOrder = 0
Text = 'Takebishi.Dxp.7'
end
object btnConnect: TButton
Left = 16
Top = 48
Width = 104
Height = 32
Caption = 'Connect'
TabOrder = 1
OnClick = btnConnectClick
end
object btnRead: TButton
Left = 128
Top = 48
Width = 104
Height = 32
Caption = 'Read'
Enabled = False
TabOrder = 2
OnClick = btnReadClick
end
object btnWrite: TButton
Left = 240
Top = 48
Width = 104
Height = 32
Caption = 'Write'
Enabled = False
TabOrder = 3
OnClick = btnWriteClick
end
object btnAdvise: TButton
Left = 16
Top = 120
Width = 104
Height = 32
Caption = 'Advise'
Enabled = False
TabOrder = 4
OnClick = btnAdviseClick
end
object btnAsyncRead: TButton
Left = 128
Top = 120
Width = 104
Height = 32
Caption = 'Async Read'
Enabled = False
TabOrder = 5
OnClick = btnAsyncReadClick
end
object btnAsyncWrite: TButton
Left = 240
Top = 120
Width = 104
Height = 32
Caption = 'Async Write'
Enabled = False
TabOrder = 6
OnClick = btnAsyncWriteClick
end
object txtUpdateRate: TEdit
Left = 16
Top = 88
Width = 65
Height = 23
TabOrder = 7
Text = '1000'
end
end