comdebug.~dfm

把自己的电脑的RS232的2,3脚短起来就可以看到返回了

object Form1: TForm1
  Left = 195
  Top = 158
  Width = 527
  Height = 278
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 285
    Top = 224
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 1
    Caption = 'B'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 308
    Top = 224
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 1
    Caption = 'D'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 331
    Top = 224
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 1
    Caption = 'H'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 354
    Top = 224
    Width = 23
    Height = 22
    AllowAllUp = True
    GroupIndex = 1
    Caption = 'S'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton4Click
  end
  object ListView1: TListView
    Left = 0
    Top = 0
    Width = 377
    Height = 217
    Columns = <
      item
        Caption = 'Style'
        Width = 40
      end
      item
        Caption = 'Type'
        Width = 40
      end
      item
        Caption = 'Content'
        Width = 243
      end
      item
        Caption = 'State'
      end>
    TabOrder = 0
    ViewStyle = vsReport
  end
  object Edit1: TEdit
    Left = 0
    Top = 224
    Width = 241
    Height = 21
    TabOrder = 1
    OnKeyPress = Edit1KeyPress
  end
  object Button1: TButton
    Left = 242
    Top = 224
    Width = 41
    Height = 22
    Caption = 'Send'
    TabOrder = 2
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 384
    Top = 0
    Width = 129
    Height = 169
    Caption = #21021#22987#21270
    TabOrder = 3
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 51
      Height = 13
      Caption = #36873#25321#20018#21475':'
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 36
      Height = 13
      Caption = #27874#29305#29575
    end
    object Label3: TLabel
      Left = 8
      Top = 72
      Width = 36
      Height = 13
      Caption = #25968#25454#20301
    end
    object Label4: TLabel
      Left = 8
      Top = 96
      Width = 36
      Height = 13
      Caption = #20572#27490#20301
    end
    object Label5: TLabel
      Left = 8
      Top = 120
      Width = 36
      Height = 13
      Caption = #26657#39564#20301
    end
    object Label6: TLabel
      Left = 88
      Top = 147
      Width = 3
      Height = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ComboBox2: TComboBox
      Left = 56
      Top = 40
      Width = 65
      Height = 21
      Style = csDropDownList
      Ctl3D = True
      ItemHeight = 13
      ItemIndex = 3
      ParentCtl3D = False
      TabOrder = 0
      Text = '9600'
      OnClick = ComboBox2Click
      Items.Strings = (
        '1200'
        '2400'
        '4800'
        '9600'
        '14400')
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 16
      Width = 65
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = 'COM1'
      OnClick = ComboBox1Click
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4'
        'COM5'
        'COM6')
    end
    object ComboBox3: TComboBox
      Left = 56
      Top = 64
      Width = 65
      Height = 21
      Style = csDropDownList
      Ctl3D = True
      ItemHeight = 13
      ItemIndex = 3
      ParentCtl3D = False
      TabOrder = 2
      Text = '_8'
      OnClick = ComboBox3Click
      Items.Strings = (
        '_5'
        '_6'
        '_7'
        '_8')
    end
    object ComboBox4: TComboBox
      Left = 56
      Top = 88
      Width = 65
      Height = 21
      Style = csDropDownList
      Ctl3D = True
      ItemHeight = 13
      ItemIndex = 0
      ParentCtl3D = False
      TabOrder = 3
      Text = '_1'
      OnClick = ComboBox4Click
      Items.Strings = (
        '_1'
        '_1.5'
        '_2')
    end
    object ComboBox5: TComboBox
      Left = 56
      Top = 112
      Width = 65
      Height = 21
      Style = csDropDownList
      Ctl3D = True
      ItemHeight = 13
      ItemIndex = 0
      ParentCtl3D = False
      TabOrder = 4
      Text = 'None'
      OnClick = ComboBox5Click
      Items.Strings = (
        'None'
        'Odd'
        'Even'
        'Mark'
        'Space')
    end
    object Button2: TButton
      Left = 8
      Top = 144
      Width = 67
      Height = 21
      Caption = #25171#24320#20018#21475
      TabOrder = 5
      OnClick = Button2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 384
    Top = 176
    Width = 129
    Height = 73
    Caption = 'Other'
    TabOrder = 4
    object Button3: TButton
      Left = 8
      Top = 16
      Width = 53
      Height = 22
      Caption = 'CLS'
      TabOrder = 0
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 8
      Top = 43
      Width = 53
      Height = 22
      Caption = 'Button4'
      TabOrder = 1
    end
    object Button5: TButton
      Left = 67
      Top = 16
      Width = 53
      Height = 22
      Caption = 'Button3'
      TabOrder = 2
    end
    object Button6: TButton
      Left = 67
      Top = 43
      Width = 53
      Height = 22
      Caption = 'Button3'
      TabOrder = 3
    end
  end
  object Comm1: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    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 = Comm1ReceiveData
    Left = 152
    Top = 64
  end
end