222 lines
4.7 KiB
Plaintext
222 lines
4.7 KiB
Plaintext
object frmMain: TfrmMain
|
|
Left = 451
|
|
Top = 223
|
|
Width = 862
|
|
Height = 609
|
|
Caption = 'MQTT Client for NILM[Program by QSenTech. Co. Ltd]'
|
|
Color = clBtnFace
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
Menu = MainMenu1
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 12
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 531
|
|
Width = 846
|
|
Height = 19
|
|
Panels = <
|
|
item
|
|
Width = 50
|
|
end
|
|
item
|
|
Width = 50
|
|
end
|
|
item
|
|
Width = 50
|
|
end
|
|
item
|
|
Width = 50
|
|
end>
|
|
end
|
|
object ListBox1: TListBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 846
|
|
Height = 455
|
|
Align = alClient
|
|
Color = clSilver
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
ItemHeight = 12
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnDblClick = ListBox1DblClick
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 455
|
|
Width = 846
|
|
Height = 76
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
Color = clBlack
|
|
TabOrder = 2
|
|
object Label1: TLabel
|
|
Left = 10
|
|
Top = 5
|
|
Width = 37
|
|
Height = 12
|
|
Caption = 'Label1'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clYellow
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 10
|
|
Top = 25
|
|
Width = 37
|
|
Height = 12
|
|
Caption = 'Label1'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clYellow
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label3: TLabel
|
|
Left = 10
|
|
Top = 40
|
|
Width = 37
|
|
Height = 12
|
|
Caption = 'Label1'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clYellow
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label4: TLabel
|
|
Left = 10
|
|
Top = 55
|
|
Width = 37
|
|
Height = 12
|
|
Caption = 'Label1'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clYellow
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object MQTTClient1: TMQTTClient
|
|
ClientID = 'DATA_HUB_PRY'
|
|
KeepAlive = 10
|
|
MaxRetries = 8
|
|
RetryTime = 60
|
|
Clean = True
|
|
Broker = False
|
|
AutoSubscribe = False
|
|
Username = 'qsentech'
|
|
Password = 'qsentech!1233'
|
|
Host = '192.168.200.200'
|
|
Port = 1883
|
|
LocalBounce = False
|
|
OnClientID = MQTTClient1ClientID
|
|
OnMon = MQTTClient1Mon
|
|
OnOnline = MQTTClient1Online
|
|
OnOffline = MQTTClient1Offline
|
|
OnEnableChange = MQTTClient1EnableChange
|
|
OnFailure = MQTTClient1Failure
|
|
OnMsg = MQTTClient1Msg
|
|
Left = 216
|
|
Top = 144
|
|
end
|
|
object initTimer: TTimer
|
|
OnTimer = initTimerTimer
|
|
Left = 65
|
|
Top = 118
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 115
|
|
Top = 170
|
|
object File2: TMenuItem
|
|
Caption = 'File'
|
|
object DebugMode1: TMenuItem
|
|
Caption = 'Debug Mode'
|
|
OnClick = DebugMode1Click
|
|
end
|
|
object N8: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object ProgramExit1: TMenuItem
|
|
Caption = 'Program Exit'
|
|
OnClick = ProgramExit1Click
|
|
end
|
|
end
|
|
object File1: TMenuItem
|
|
Caption = 'MQTT'
|
|
object Config1: TMenuItem
|
|
Caption = 'MQTT '#50672#44208#49444#51221
|
|
OnClick = Config1Click
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Connect1: TMenuItem
|
|
Caption = 'Broker '#50672#44208
|
|
OnClick = Connect1Click
|
|
end
|
|
object Disconnect1: TMenuItem
|
|
Caption = 'Broker '#45130#44592
|
|
OnClick = Disconnect1Click
|
|
end
|
|
end
|
|
object NILM1: TMenuItem
|
|
Caption = 'NILM'
|
|
object Edit1: TMenuItem
|
|
Caption = #51109#52824#44288#47532
|
|
OnClick = Edit1Click
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = #49444#48708#50672#44208
|
|
OnClick = N1Click
|
|
end
|
|
end
|
|
end
|
|
object JsonConvertor1: TJsonConvertor
|
|
Left = 345
|
|
Top = 230
|
|
end
|
|
object insertTimer: TTimer
|
|
Enabled = False
|
|
OnTimer = insertTimerTimer
|
|
Left = 350
|
|
Top = 142
|
|
end
|
|
object ZConnection1: TZConnection
|
|
Protocol = 'mysql'
|
|
Database = 'nilm'
|
|
Left = 175
|
|
Top = 255
|
|
end
|
|
object ZReadOnlyQuery1: TZReadOnlyQuery
|
|
Connection = ZConnection1
|
|
Params = <>
|
|
Left = 175
|
|
Top = 320
|
|
end
|
|
object ZQuery1: TZQuery
|
|
Connection = ZConnection1
|
|
Params = <>
|
|
Left = 175
|
|
Top = 395
|
|
end
|
|
end
|