unit1.dfm

实现串口通信

object Form1: TForm1
  Left = 223
  Top = 159
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #20018#21475#36890#20449
  ClientHeight = 420
  ClientWidth = 590
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 0
    Top = 384
    Width = 23
    Height = 22
    Hint = #33258#27979#35797
    Flat = True
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 32
    Top = 384
    Width = 23
    Height = 22
    Flat = True
    OnClick = SpeedButton2Click
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 585
    Height = 385
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 328
      Width = 84
      Height = 14
      Caption = #23383#31526#20018#36755#20837#65306
    end
    object Label2: TLabel
      Left = 16
      Top = 352
      Width = 84
      Height = 14
      Caption = #21313#20845#36827#21046#20018#65306
    end
    object Edit1: TEdit
      Left = 104
      Top = 328
      Width = 401
      Height = 22
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 249
      Height = 305
      Lines.Strings = (
        '')
      PopupMenu = PopupMenu1
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 512
      Top = 328
      Width = 59
      Height = 25
      Caption = #21457#36865
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object Memo2: TMemo
      Left = 264
      Top = 16
      Width = 313
      Height = 305
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Lines.Strings = (
        '')
      ParentFont = False
      PopupMenu = PopupMenu2
      TabOrder = 3
    end
    object EditHex: TEdit
      Left = 104
      Top = 352
      Width = 401
      Height = 22
      Hint = #36755#20837#26684#24335#65306'F1-E2-33-C1   '#27599#20010#23383#33410#38388#29992'-'#21495#38548#24320
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
    end
    object BitBtn6: TBitBtn
      Left = 512
      Top = 352
      Width = 59
      Height = 25
      Hint = #21457#36865#21313#20845#36827#21046#25968#20018
      Caption = #21457#36865
      TabOrder = 5
      OnClick = BitBtn6Click
    end
  end
  object BitBtn2: TBitBtn
    Left = 480
    Top = 392
    Width = 75
    Height = 25
    Caption = #20851#38381
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 400
    Top = 392
    Width = 75
    Height = 25
    Caption = #35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 320
    Top = 392
    Width = 75
    Height = 25
    Caption = #36830#25509
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn4Click
  end
  object BitBtn5: TBitBtn
    Left = 208
    Top = 392
    Width = 105
    Height = 25
    Caption = #21457#36865#23601#32490#20449#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn5Click
  end
  object CheckBoxDecode: TCheckBox
    Left = 128
    Top = 392
    Width = 65
    Height = 17
    Alignment = taLeftJustify
    Caption = #35299#26512#20018
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  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 = 560
    Top = 392
  end
  object PopupMenu2: TPopupMenu
    Left = 360
    Top = 232
    object N1: TMenuItem
      Caption = #20445#23384
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #28165#38500
      OnClick = N2Click
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 312
    Top = 64
  end
  object PopupMenu1: TPopupMenu
    Left = 64
    Top = 192
    object MenuItem1: TMenuItem
      Caption = #20445#23384
      OnClick = MenuItem1Click
    end
    object MenuItem2: TMenuItem
      Caption = #28165#38500
      OnClick = MenuItem2Click
    end
  end
end