memo_01.~dfm

演示SPCOMM控件在Delphi中的使用。

      '300'
      '600'
      '1200'
      '2400'
      '4800'
      '9600'
      '14400'
      '19200'
      '28800'
      '38400'
      '56000'
      '57600'
      '115200'
      '128000'
      '256000'
      '512000'
      '1024000')
  end
  object CBByteSize: TComboBox
    Left = 56
    Top = 352
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Text = '8'
    Items.Strings = (
      '5'
      '6'
      '7'
      '8'
      '9')
  end
  object CBStopBit: TComboBox
    Left = 56
    Top = 376
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    Text = '1'
    Items.Strings = (
      '1'
      '1.5'
      '2')
  end
  object CBParity: TComboBox
    Left = 56
    Top = 400
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Text = 'None'
    Items.Strings = (
      'None'
      'Odd'
      'Even'
      'Mark'
      'Space')
  end
  object CBFlowControl: TComboBox
    Left = 56
    Top = 424
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 7
    Text = 'None'
    Items.Strings = (
      'None')
  end
  object BtnOpenCom: TButton
    Left = 136
    Top = 304
    Width = 65
    Height = 20
    Caption = 'Open'
    TabOrder = 8
    OnClick = BtnOpenComClick
  end
  object BtnHelp: TButton
    Left = 216
    Top = 304
    Width = 57
    Height = 20
    Caption = 'Help'
    TabOrder = 9
  end
  object CKBDTR: TCheckBox
    Left = 136
    Top = 336
    Width = 49
    Height = 17
    Caption = 'DTR'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object CKBRTS: TCheckBox
    Left = 232
    Top = 336
    Width = 49
    Height = 17
    Caption = 'RTS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
  end
  object CKBTimerSend: TCheckBox
    Left = 136
    Top = 360
    Width = 73
    Height = 17
    Caption = #23450#26102#21457#36865
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
  end
  object EdTimerValue: TEdit
    Left = 232
    Top = 360
    Width = 41
    Height = 21
    TabOrder = 13
  end
  object CKBHEXSend: TCheckBox
    Left = 136
    Top = 384
    Width = 65
    Height = 17
    Caption = 'HEX'#21457#36865
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 14
  end
  object CKBSendNewLine: TCheckBox
    Left = 232
    Top = 384
    Width = 65
    Height = 17
    Caption = #21457#36865#26032#34892
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
  end
  object EdInput: TEdit
    Left = 136
    Top = 424
    Width = 455
    Height = 21
    TabOrder = 16
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 454
    Width = 592
    Height = 19
    Panels = <
      item
        Text = 'Rainbow'
        Width = 50
      end
      item
        Text = 'S:0'
        Width = 50
      end
      item
        Text = 'R:0'
        Width = 50
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object BtnOpenFile: TButton
    Left = 0
    Top = 272
    Width = 65
    Height = 20
    Caption = #25171#24320#25991#20214
    TabOrder = 18
    OnClick = BtnOpenFileClick
  end
  object EdFilename: TEdit
    Left = 72
    Top = 272
    Width = 201
    Height = 21
    TabOrder = 19
    Text = #25991#20214#21517
  end
  object BtnSendFile: TButton
    Left = 280
    Top = 272
    Width = 65
    Height = 20
    Caption = #21457#36865#25991#20214
    TabOrder = 20
    OnClick = BtnSendFileClick
  end
  object BtnSaveWindow: TButton
    Left = 352
    Top = 272
    Width = 65
    Height = 20
    Caption = #20445#23384#31383#21475
    TabOrder = 21
    OnClick = BtnSaveWindowClick
  end
  object BtnClearWindow: TButton
    Left = 424
    Top = 272
    Width = 57
    Height = 20
    Caption = #28165#38500#31383#21475
    TabOrder = 22
    OnClick = BtnClearWindowClick
  end
  object CheckBox6: TCheckBox
    Left = 485
    Top = 275
    Width = 65
    Height = 17
    Caption = 'HEX'#26174#31034
    TabOrder = 23
  end
  object BtnBackgroundColor: TButton
    Left = 560
    Top = 392
    Width = 27
    Height = 25
    TabOrder = 24
    OnClick = BtnBackgroundColorClick
  end
  object DlgOpenFile: TOpenDialog
    Filter = 'Text File|*.txt|Hex File|*.hex|Bin File|*.bin'
    Left = 8
    Top = 232
  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 = 48
    Top = 232
  end
  object DlgSaveWindow: TSaveDialog
    DefaultExt = '*.txt'
    Filter = 'Text File|*.txt|BIN File|*.bin|HEX File|*.hex|DAT File|*.dat'
    Left = 88
    Top = 232
  end
  object DlgBackgroundColor: TColorDialog
    Left = 128
    Top = 232
  end
end