co_main.dfm

很好用的串口通信工具软件。Comport目录下是用到的通信控件。

      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 12
        Width = 24
        Height = 12
        Caption = #31471#21475
      end
      object Label2: TLabel
        Left = 8
        Top = 36
        Width = 24
        Height = 12
        Caption = #36895#29575
      end
      object Label4: TLabel
        Left = 8
        Top = 60
        Width = 36
        Height = 12
        Caption = #25968#25454#20301
      end
      object Label5: TLabel
        Left = 8
        Top = 84
        Width = 36
        Height = 12
        Caption = #20572#27490#20301
      end
      object Label6: TLabel
        Left = 8
        Top = 108
        Width = 36
        Height = 12
        Caption = #26657#39564#20301
      end
      object Combo_Port: TComboBox
        Left = 48
        Top = 8
        Width = 73
        Height = 20
        Hint = #36890#20449#31471#21475
        Style = csDropDownList
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnChange = Combo_PortChange
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4')
      end
      object Combo_BaudRate: TComboBox
        Left = 48
        Top = 32
        Width = 73
        Height = 20
        Hint = #31471#21475#27874#29305#29575
        Style = csDropDownList
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnChange = Combo_BaudRateChange
        Items.Strings = (
          '110'
          '300'
          '600'
          '1200'
          '2400'
          '4800'
          '9600'
          '14400'
          '19200'
          '38400'
          '56000'
          '57600'
          '115200'
          '128000'
          '256000')
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 136
        Width = 113
        Height = 73
        Caption = #30828#20214#20449#21495#21442#25968
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        object CB_RTS: TCheckBox
          Left = 16
          Top = 24
          Width = 49
          Height = 17
          Hint = #35774#23450'RTS'#20449#21495
          Caption = 'RTS'
          TabOrder = 0
          OnClick = CB_RTSClick
        end
        object CB_DTR: TCheckBox
          Left = 16
          Top = 48
          Width = 49
          Height = 17
          Hint = #35774#23450'DTR'#20449#21495
          Caption = 'DTR'
          TabOrder = 1
          OnClick = CB_DTRClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 216
        Width = 113
        Height = 73
        Caption = #21457#36865#21442#25968
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        object CB_CRLF: TCheckBox
          Left = 16
          Top = 24
          Width = 81
          Height = 17
          Hint = #21457#36865#25968#25454#26102#26411#23614#38468#21152#22238#36710#25442#34892#31526
          Caption = #22238#36710#25442#34892
          TabOrder = 0
        end
        object CB_Hex: TCheckBox
          Left = 16
          Top = 48
          Width = 81
          Height = 17
          Hint = #35201#21457#36865#30340#25968#25454#26159#20197'16'#36827#21046#24418#24335#34920#31034#30340
          Caption = #21313#20845#36827#21046
          TabOrder = 1
        end
      end
      object Cb_DataBits: TComboBox
        Left = 48
        Top = 56
        Width = 73
        Height = 20
        Hint = #31471#21475#27874#29305#29575
        Style = csDropDownList
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnChange = Cb_DataBitsChange
        Items.Strings = (
          '5'
          '6'
          '7'
          '8')
      end
      object CB_StopBits: TComboBox
        Left = 48
        Top = 80
        Width = 73
        Height = 20
        Hint = #31471#21475#27874#29305#29575
        Style = csDropDownList
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnChange = CB_StopBitsChange
        Items.Strings = (
          '1'
          '1.5'
          '2')
      end
      object Cb_ParityBits: TComboBox
        Left = 48
        Top = 104
        Width = 73
        Height = 20
        Hint = #31471#21475#27874#29305#29575
        Style = csDropDownList
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnChange = Cb_ParityBitsChange
        Items.Strings = (
          'EVEN'
          'MARK'
          'NONE'
          'ODD'
          'SPACE')
      end
    end
    object Panel4: TPanel
      Left = 129
      Top = 0
      Width = 456
      Height = 292
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter1: TSplitter
        Left = 0
        Top = 121
        Width = 456
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Pc_Info: TPageControl
        Left = 0
        Top = 124
        Width = 456
        Height = 168
        ActivePage = TabSheet1
        Align = alClient
        HotTrack = True
        MultiLine = True
        TabOrder = 0
        TabPosition = tpBottom
        object TabSheet1: TTabSheet
          Caption = #21313#20845#36827#21046
          object Mem_Hex: TMemo
            Left = 0
            Top = 0
            Width = 448
            Height = 143
            Align = alClient
            ScrollBars = ssBoth
            TabOrder = 0
            WordWrap = False
          end
        end
        object TabSheet2: TTabSheet
          Caption = #25991#26412
          ImageIndex = 1
          object Mem_Text: TMemo
            Left = 0
            Top = 0
            Width = 448