umaincomm.dfm

spcomm串口编程

object frmMainComm: TfrmMainComm
  Left = 192
  Top = 107
  Width = 649
  Height = 480
  Caption = 'frmMainComm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 153
    Height = 192
    BorderStyle = bsSingle
    TabOrder = 0
    object cbPort: TComboBox
      Left = 74
      Top = 9
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'Com1'
      Items.Strings = (
        'Com1'
        'Com2'
        'Com3'
        'Com4'
        'Com5'
        'Com6')
    end
    object sttPort: TStaticText
      Left = 27
      Top = 12
      Width = 46
      Height = 17
      Caption = #20018#21475#65306'  '
      TabOrder = 1
    end
    object cbBaut: TComboBox
      Left = 74
      Top = 38
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 4
      TabOrder = 2
      Text = '9600'
      Items.Strings = (
        '300'
        '1200'
        '2400'
        '4800'
        '9600'
        '19200')
    end
    object cbParity: TComboBox
      Left = 74
      Top = 68
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = #26080
      Items.Strings = (
        #26080
        #22855
        #20598)
    end
    object cbDataBits: TComboBox
      Left = 74
      Top = 98
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 4
      Text = '8'
      Items.Strings = (
        '8'
        '7'
        '6'
        '5')
    end
    object cbStopBit: TComboBox
      Left = 74
      Top = 128
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 5
      Text = '1'
      Items.Strings = (
        '1'
        '1.5'
        '2')
    end
    object sttBaut: TStaticText
      Left = 15
      Top = 42
      Width = 52
      Height = 17
      Caption = #27874#29305#29575#65306
      TabOrder = 6
    end
    object sttParity: TStaticText
      Left = 14
      Top = 72
      Width = 52
      Height = 17
      Caption = #22855#20598#20301#65306
      TabOrder = 7
    end
    object sttDataBits: TStaticText
      Left = 14
      Top = 102
      Width = 52
      Height = 17
      Caption = #25968#25454#20301#65306
      TabOrder = 8
    end
    object sttStopBit: TStaticText
      Left = 14
      Top = 132
      Width = 52
      Height = 17
      Caption = #20572#27490#20301#65306
      TabOrder = 9
    end
    object Button1: TButton
      Left = 8
      Top = 160
      Width = 75
      Height = 21
      Caption = #25171#24320#20018#21475
      TabOrder = 10
      OnClick = Button1Click
    end
    object btnSend1: TButton
      Left = 88
      Top = 159
      Width = 53
      Height = 21
      Caption = #21457#36865
      TabOrder = 11
      OnClick = btnSend1Click
    end
  end
  object Panel2: TPanel
    Left = 159
    Top = 0
    Width = 481
    Height = 121
    BorderStyle = bsSingle
    TabOrder = 1
    object Memo1: TMemo
      Left = 2
      Top = 3
      Width = 472
      Height = 110
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 159
    Top = 123
    Width = 481
    Height = 69
    BorderStyle = bsSingle
    TabOrder = 2
    object Memo2: TMemo
      Left = 3
      Top = 3
      Width = 474
      Height = 54
      Hint = #21457#36865#21306
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel4: TPanel
    Left = 1
    Top = 258
    Width = 153
    Height = 192
    BorderStyle = bsSingle
    TabOrder = 3
    object ComboBox1: TComboBox
      Left = 74
      Top = 9
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'Com1'
      Items.Strings = (
        'Com1'
        'Com2'
        'Com3'
        'Com4'
        'Com5'
        'Com6')
    end
    object StaticText1: TStaticText
      Left = 27
      Top = 12
      Width = 46
      Height = 17
      Caption = #20018#21475#65306'  '
      TabOrder = 1
    end
    object ComboBox2: TComboBox
      Left = 74
      Top = 38
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 4
      TabOrder = 2
      Text = '9600'
      Items.Strings = (
        '300'
        '1200'
        '2400'
        '4800'
        '9600'
        '19200')
    end
    object ComboBox3: TComboBox
      Left = 74
      Top = 68
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = #26080
      Items.Strings = (
        #26080
        #22855
        #20598)
    end
    object ComboBox4: TComboBox
      Left = 74
      Top = 98
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 4
      Text = '8'
      Items.Strings = (
        '8'
        '7'
        '6'
        '5')
    end
    object ComboBox5: TComboBox
      Left = 74
      Top = 128
      Width = 61
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 5
      Text = '1'
      Items.Strings = (
        '1'
        '1.5'
        '2')
    end
    object StaticText2: TStaticText
      Left = 15
      Top = 42
      Width = 52
      Height = 17
      Caption = #27874#29305#29575#65306
      TabOrder = 6
    end
    object StaticText3: TStaticText
      Left = 14
      Top = 72
      Width = 52
      Height = 17
      Caption = #22855#20598#20301#65306
      TabOrder = 7
    end
    object StaticText4: TStaticText
      Left = 14
      Top = 102
      Width = 52
      Height = 17
      Caption = #25968#25454#20301#65306
      TabOrder = 8
    end
    object StaticText5: TStaticText
      Left = 14
      Top = 132
      Width = 52
      Height = 17
      Caption = #20572#27490#20301#65306
      TabOrder = 9
    end
    object Button2: TButton
      Left = 8
      Top = 160
      Width = 75
      Height = 21
      Caption = #25171#24320#20018#21475
      TabOrder = 10
      OnClick = Button2Click
    end
    object btnSend2: TButton
      Left = 88
      Top = 159
      Width = 53
      Height = 21
      Caption = #21457#36865
      TabOrder = 11
      OnClick = btnSend2Click
    end
  end
  object Panel5: TPanel
    Left = 160
    Top = 258
    Width = 481
    Height = 121
    BorderStyle = bsSingle
    TabOrder = 4
    object Memo3: TMemo
      Left = 2
      Top = 3
      Width = 472
      Height = 110
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel6: TPanel
    Left = 160
    Top = 381
    Width = 481
    Height = 69
    BorderStyle = bsSingle
    TabOrder = 5
    object Memo4: TMemo
      Left = 3
      Top = 3
      Width = 474
      Height = 54
      Hint = #21457#36865#21306
      ImeName = #20013#25991' ('#31616#20307') - '#25340#38899#21152#21152'3.11'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object CommTest1: TComm
    CommName = 'COM1'
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = CommTest1ReceiveData
    Left = 232
    Top = 48
  end
  object CommTest2: TComm
    CommName = 'COM1'
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = CommTest2ReceiveData
    Left = 240
    Top = 296
  end
end