unit3.dfm

基于MODBUSTCP协议的客户端通讯程序

object Form1: TForm1
  Left = 134
  Top = 125
  Width = 952
  Height = 656
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 20
  object Panel1: TPanel
    Left = 759
    Top = 0
    Width = 185
    Height = 622
    Align = alRight
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 40
      Top = 56
      Width = 97
      Height = 22
      Action = ActConnect
      AllowAllUp = True
      GroupIndex = 1
    end
    object EditIP: TLabeledEdit
      Left = 32
      Top = 24
      Width = 121
      Height = 28
      EditLabel.Width = 140
      EditLabel.Height = 20
      EditLabel.Caption = 'MODBUS Server IP'
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 0
      Text = '127.0.0.1'
    end
    object EditAddr: TLabeledEdit
      Left = 32
      Top = 221
      Width = 121
      Height = 28
      EditLabel.Width = 64
      EditLabel.Height = 20
      EditLabel.Caption = #24320#22987#22320#22336
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 1
      Text = '1'
    end
    object EditQty: TLabeledEdit
      Left = 32
      Top = 285
      Width = 121
      Height = 28
      EditLabel.Width = 64
      EditLabel.Height = 20
      EditLabel.Caption = #25968#25454#38271#24230
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 2
      Text = '7'
    end
    object BitBtn2: TBitBtn
      Left = 32
      Top = 324
      Width = 121
      Height = 25
      Action = ActReadCoils
      Caption = #35835#31163#25955#23492#23384#22120'0'
      TabOrder = 3
    end
    object BitBtn1: TBitBtn
      Left = 32
      Top = 348
      Width = 121
      Height = 25
      Action = ActReadDiscrete
      Caption = #35835#31163#25955#36755#20837'1'
      TabOrder = 4
    end
    object BitBtn3: TBitBtn
      Left = 32
      Top = 372
      Width = 121
      Height = 25
      Action = ActReadInputRegister
      Caption = #35835#36755#20837#23492#23384#22120'3'
      TabOrder = 5
    end
    object BitBtn4: TBitBtn
      Left = 32
      Top = 396
      Width = 121
      Height = 25
      Action = ActReadHoldRegister
      Caption = #35835#20445#25345#23492#23384#22120'4'
      TabOrder = 6
    end
    object BitBtn6: TBitBtn
      Left = 32
      Top = 468
      Width = 121
      Height = 25
      Action = ActWriteHoldRegister
      Caption = #20889#20445#25345#23492#23384#22120'4'
      TabOrder = 7
    end
    object EditDeviceID: TLabeledEdit
      Left = 32
      Top = 165
      Width = 121
      Height = 28
      EditLabel.Width = 36
      EditLabel.Height = 20
      EditLabel.Caption = #31449#21495' '
      LabelPosition = lpAbove
      LabelSpacing = 3
      TabOrder = 8
      Text = '1'
    end
    object BitBtn5: TBitBtn
      Left = 32
      Top = 444
      Width = 121
      Height = 25
      Action = ActWriteCoils
      Caption = #20889#31163#25955#23492#23384#22120'0'
      TabOrder = 9
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 759
    Height = 622
    Align = alClient
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 1
      Top = 185
      Width = 757
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object EditSend: TRichEdit
      Left = 1
      Top = 1
      Width = 757
      Height = 184
      Align = alTop
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object EditRecv: TRichEdit
      Left = 1
      Top = 188
      Width = 757
      Height = 433
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Microsoft Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    Host = '127.0.0.1'
    Port = 502
    Left = 256
    Top = 200
  end
  object ActionList1: TActionList
    Left = 344
    Top = 104
    object ActConnect: TAction
      AutoCheck = True
      Caption = #36830#25509
      Checked = True
      GroupIndex = 1
      OnExecute = ActConnectExecute
    end
    object ActReadCoils: TAction
      Caption = #35835#31163#25955#23492#23384#22120'0'
      OnExecute = ActReadCoilsExecute
    end
    object ActReadDiscrete: TAction
      Caption = #35835#31163#25955#36755#20837'1'
      OnExecute = ActReadDiscreteExecute
    end
    object ActReadInputRegister: TAction
      Caption = #35835#36755#20837#23492#23384#22120'3'
      OnExecute = ActReadInputRegisterExecute
    end
    object ActReadHoldRegister: TAction
      Caption = #35835#20445#25345#23492#23384#22120'4'
      OnExecute = ActReadHoldRegisterExecute
    end
    object ActWriteCoils: TAction
      Caption = #20889#31163#25955#23492#23384#22120'0'
      OnExecute = ActWriteCoilsExecute
    end
    object ActWriteHoldRegister: TAction
      Caption = #20889#20445#25345#23492#23384#22120'4'
      OnExecute = ActWriteHoldRegisterExecute
    end
  end
end