main.dfm

一个不错的串口调试工具！！ 利用常用的SPCOMM控件

        Top = 125
        Width = 35
        Height = 29
        Brush.Color = clMedGray
        Shape = stCircle
      end
      object btnSwitch: TButton
        Left = 53
        Top = 128
        Width = 79
        Height = 25
        Caption = #25171#24320#20018#21475
        TabOrder = 0
        OnClick = btnSwitchClick
      end
      object ComboBox1: TComboBox
        Left = 53
        Top = 11
        Width = 79
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 1
        OnChange = ComboBox1Change
      end
      object ComboBox2: TComboBox
        Left = 52
        Top = 34
        Width = 79
        Height = 20
        AutoComplete = False
        Style = csDropDownList
        DropDownCount = 13
        ItemHeight = 12
        MaxLength = 6
        TabOrder = 2
        OnChange = ComboBox2Change
        Items.Strings = (
          'Custom'
          '300'
          '600'
          '1200'
          '2400'
          '4800'
          '9600'
          '19200'
          '38400'
          '43000'
          '56000'
          '57600'
          '115200')
      end
      object ComboBox3: TComboBox
        Left = 53
        Top = 56
        Width = 79
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 3
        OnChange = ComboBox3Change
        Items.Strings = (
          'None'
          'Odd'
          'Even'
          'Mark'
          'Space')
      end
      object ComboBox4: TComboBox
        Left = 53
        Top = 79
        Width = 79
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 4
        OnChange = ComboBox4Change
        Items.Strings = (
          '5'
          '6'
          '7'
          '8')
      end
      object ComboBox5: TComboBox
        Left = 53
        Top = 102
        Width = 79
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 5
        OnChange = ComboBox5Change
        Items.Strings = (
          '1'
          '1.5'
          '2')
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 242
    Height = 394
    Align = alLeft
    Color = clGradientInactiveCaption
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 322
      Width = 72
      Height = 12
      Caption = #33258#21160#21457#36865#21608#26399
    end
    object Label2: TLabel
      Left = 183
      Top = 320
      Width = 24
      Height = 12
      Caption = #27627#31186
    end
    object Memo2: TMemo
      Left = 1
      Top = 1
      Width = 240
      Height = 198
      TabStop = False
      Align = alTop
      Color = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      WantTabs = True
    end
    object Button1: TButton
      Left = 18
      Top = 222
      Width = 78
      Height = 21
      Caption = #28165#31354#21457#36865#21306
      TabOrder = 1
      OnClick = Button1Click
    end
    object cbAutoSend: TCheckBox
      Left = 108
      Top = 223
      Width = 81
      Height = 17
      Caption = #33258#21160#21457#36865
      TabOrder = 2
      OnClick = cbAutoSendClick
    end
    object btnSend: TButton
      Left = 20
      Top = 268
      Width = 78
      Height = 20
      Caption = #25163#21160#21457#36865
      Enabled = False
      TabOrder = 3
      OnClick = btnSendClick
    end
    object cbsendHex: TCheckBox
      Left = 105
      Top = 271
      Width = 97
      Height = 17
      Caption = #21313#20845#36827#21046#21457#36865
      TabOrder = 4
    end
    object SpinEdit1: TSpinEdit
      Left = 105
      Top = 316
      Width = 73
      Height = 21
      MaxValue = 100000000
      MinValue = 1
      TabOrder = 5
      Value = 1000
      OnChange = SpinEdit1Change
    end
  end
  object Panel2: TPanel
    Left = 242
    Top = 0
    Width = 345
    Height = 394
    Align = alClient
    TabOrder = 2
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 343
      Height = 392
      Align = alClient
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = 'Arial'
      Font.Style = []
      Lines.Strings = (
        '')
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 394
    Width = 740
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = #20018#21475#35843#35797'1.0'
        Width = 100
      end
      item
        Alignment = taCenter
        Text = 'CHENZHEN'
        Width = 200
      end
      item
        Alignment = taCenter
        Text = 'DELPHI'#19982#35745#31639#26426#25511#21046#31995#32479#24320#21457#20363#31243
        Width = 50
      end>
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 360
    Top = 152
  end
  object OpenDialog1: TOpenDialog
    Left = 395
    Top = 153
  end
  object SaveDialog1: TSaveDialog
    Left = 388
    Top = 197
  end
  object Comm1: TComm
    CommName = 'COM2'
    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 = 427
    Top = 180
  end
end