ucommtest.dfm

DELPHI串口通讯程序

object CommTestFrm: TCommTestFrm
  Left = 150
  Top = 108
  Width = 542
  Height = 419
  Caption = #30005#21147#36828#21160#20018#21475#36890#20449'232'#27979#35797#31995#32479'V1.0'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 313
    Top = 59
    Width = 2
    Height = 295
    Cursor = crHSplit
    OnMoved = Splitter1Moved
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 59
    Width = 105
    Height = 295
    Align = alLeft
    Caption = #20018#21475#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 11
      Top = 21
      Width = 36
      Height = 12
      Caption = #27874#29305#29575
    end
    object Label3: TLabel
      Left = 11
      Top = 46
      Width = 36
      Height = 12
      Caption = #21457#36865#21475
    end
    object Label5: TLabel
      Left = 11
      Top = 72
      Width = 36
      Height = 12
      Caption = #25509#25910#21475
    end
    object CmbBaudrate: TComboBox
      Left = 46
      Top = 20
      Width = 52
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      ItemIndex = 3
      TabOrder = 0
      Text = '9600'
      Items.Strings = (
        '1200'
        '2400'
        '4800'
        '9600'
        '19200'
        '38400'
        '57600'
        '115200')
    end
    object CmbSendComm: TComboBox
      Left = 46
      Top = 46
      Width = 52
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 1
      Text = 'Com1'
      Items.Strings = (
        'Com1'
        'Com2'
        'Com3'
        'Com4')
    end
    object RadioByteSize: TRadioGroup
      Left = 7
      Top = 137
      Width = 91
      Height = 33
      Caption = #23383#33410#38271#24230
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '8'
        '7')
      TabOrder = 2
    end
    object RadioStopBits: TRadioGroup
      Left = 7
      Top = 176
      Width = 91
      Height = 65
      Caption = #20572#27490#20301
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '1'
        '2'
        '1.5')
      TabOrder = 3
    end
    object RadioParity: TRadioGroup
      Left = 7
      Top = 98
      Width = 91
      Height = 33
      Caption = #22855#20598#26657#39564#20301
      Columns = 2
      ItemIndex = 1
      Items.Strings = (
        #26377
        #26080)
      TabOrder = 4
    end
    object BTNResetCommSet: TBitBtn
      Left = 7
      Top = 247
      Width = 91
      Height = 20
      Caption = #24674#22797#19978#27425#35774#32622
      TabOrder = 5
      OnClick = BTNResetCommSetClick
    end
    object BTNSaveCommSet: TBitBtn
      Left = 7
      Top = 266
      Width = 91
      Height = 20
      Caption = #20445#23384#20026#40664#35748#20540
      TabOrder = 6
      OnClick = BTNSaveCommSetClick
    end
    object CmbRecvComm: TComboBox
      Left = 46
      Top = 72
      Width = 52
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 7
      Text = 'Com2'
      Items.Strings = (
        'Com1'
        'Com2'
        'Com3'
        'Com4')
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 534
    Height = 33
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 33
        Width = 530
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 517
      Height = 33
      ButtonHeight = 26
      Caption = 'ToolBar1'
      TabOrder = 0
      object BTNOpen: TBitBtn
        Left = 0
        Top = 2
        Width = 50
        Height = 26
        Action = OpenFileAction
        Caption = #25171#24320'(&O)'
        TabOrder = 0
      end
      object BTNSave: TBitBtn
        Left = 50
        Top = 2
        Width = 90
        Height = 26
        Action = SaveFileAction
        Caption = #20445#23384#25910#21040#20869#23481'(&A)'
        TabOrder = 1
      end
      object BTNTest: TBitBtn
        Left = 140
        Top = 2
        Width = 85
        Height = 26
        Action = TestCommAction
        Caption = #27979#35797#36890#20449#21475'(&T)'
        TabOrder = 2
      end
      object BTNStartSend: TBitBtn
        Left = 225
        Top = 2
        Width = 85
        Height = 26
        Action = StartSendAction
        Caption = #24320#22987#20256#36865'(&S)'
        TabOrder = 5
      end
      object BTNStopSend: TBitBtn
        Left = 310
        Top = 2
        Width = 60
        Height = 26
        Action = StopSendAction
        Caption = #20572#27490#20256#36865
        TabOrder = 4
      end
      object BTNStartRecv: TBitBtn
        Left = 370
        Top = 2
        Width = 85
        Height = 26
        Action = StartReciveAction
        Caption = #24320#22987#25509#25910'(&R)'
        TabOrder = 3
      end
      object BTNStopRecv: TBitBtn
        Left = 455
        Top = 2
        Width = 60
        Height = 26
        Action = StopReciveAction
        Caption = #20572#27490#25509#25910
        TabOrder = 6
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 354
    Width = 534
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = #22823#24198#30707#27833#23398#38498#33258#21160#21270#31995#36719#20214#25152
        Width = 160
      end
      item
        Width = 210
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 105
    Top = 59
    Width = 208
    Height = 295
    Align = alLeft
    Caption = #23558#35201#21457#36865#30340#20869#23481
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 204
      Height = 260
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        '')
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 2
      Top = 275
      Width = 204
      Height = 18
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 1
      object BTNSaveLeft: TBitBtn
        Left = 98
        Top = -2
        Width = 72
        Height = 21
        Caption = #20445#23384#20869#23481
        TabOrder = 0
        OnClick = BTNSaveLeftClick
      end
      object BTNClearLeft: TBitBtn
        Left = 24
        Top = -2
        Width = 72
        Height = 21
        Caption = #20840#37096#28165#38500
        TabOrder = 1
        OnClick = BTNClearLeftClick
      end
    end
  end
  object GroupBox3: TGroupBox
    Left = 315
    Top = 59
    Width = 219
    Height = 295
    Align = alClient
    Caption = #25509#25910#21040#30340#20869#23481
    TabOrder = 4
    object Memo2: TMemo
      Left = 2
      Top = 14
      Width = 215
      Height = 261
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 2
      Top = 275
      Width = 215
      Height = 18
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 1
      object BTNClearRight: TBitBtn
        Left = 22
        Top = 0
        Width = 72