unit1.dfm

Delphi6 开发的串口数据发送

object Form1: TForm1
  Left = 194
  Top = 95
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25233#25110#35745#31639#65288#21776#21033#28059#65289
  ClientHeight = 501
  ClientWidth = 583
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 38
    Width = 313
    Height = 13
    AutoSize = False
    Caption = #27880#24847#65306#25968#25454#22343#20026'16'#36827#21046#65292#20197#33521#25991#31354#26684#38548#24320
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Bevel3: TBevel
    Left = 0
    Top = 24
    Width = 586
    Height = 9
    Shape = bsBottomLine
  end
  object Bevel4: TBevel
    Left = 7
    Top = 448
    Width = 564
    Height = 5
    Shape = bsBottomLine
  end
  object Button1: TButton
    Left = 151
    Top = 466
    Width = 98
    Height = 25
    Caption = #35745#31639' XOR'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 361
    Top = 466
    Width = 97
    Height = 25
    Caption = #20840#37096#28165#31354
    TabOrder = 1
    OnClick = Button2Click
  end
  object Bsend: TButton
    Left = 257
    Top = 466
    Width = 97
    Height = 25
    Caption = #24320#22987#21457#36865
    Enabled = False
    TabOrder = 2
    OnClick = BsendClick
  end
  object GroupBox1: TGroupBox
    Left = 386
    Top = 56
    Width = 185
    Height = 233
    Caption = #35774#32622
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
    object Label4: TLabel
      Left = 16
      Top = 24
      Width = 41
      Height = 17
      AutoSize = False
      Caption = #20018#21475#65306
    end
    object Label5: TLabel
      Left = 11
      Top = 57
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #26657#39564#26041#24335#65306
    end
    object Label6: TLabel
      Left = 17
      Top = 85
      Width = 56
      Height = 17
      AutoSize = False
      Caption = #27874#29305#29575#65306
    end
    object Bevel1: TBevel
      Left = 8
      Top = 112
      Width = 168
      Height = 5
      Shape = bsBottomLine
    end
    object Label7: TLabel
      Left = 9
      Top = 125
      Width = 128
      Height = 17
      AutoSize = False
      Caption = #27599#27425#21457#36865#25968#25454#38271#24230#65306
    end
    object Label8: TLabel
      Left = 9
      Top = 152
      Width = 96
      Height = 17
      AutoSize = False
      Caption = #21457#36865#26102#38388#38388#38548#65306
    end
    object Label9: TLabel
      Left = 148
      Top = 152
      Width = 31
      Height = 17
      AutoSize = False
      Caption = #27627#31186
    end
    object Bevel2: TBevel
      Left = 8
      Top = 178
      Width = 168
      Height = 5
      Shape = bsBottomLine
    end
    object comlist: TComboBox
      Left = 64
      Top = 21
      Width = 89
      Height = 21
      BevelKind = bkFlat
      Style = csDropDownList
      DropDownCount = 3
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'Com1'
      Items.Strings = (
        'Com1'
        'Com2')
    end
    object CBJiaoyan: TComboBox
      Left = 76
      Top = 52
      Width = 89
      Height = 21
      BevelKind = bkFlat
      Style = csDropDownList
      DropDownCount = 3
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = #26080
      Items.Strings = (
        #26080
        #20598#26657#39564
        #22855#26657#39564)
    end
    object Ebotelv: TEdit
      Left = 76
      Top = 81
      Width = 65
      Height = 19
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
      Text = '9600'
    end
    object EDatalong: TEdit
      Left = 128
      Top = 121
      Width = 29
      Height = 19
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
      Text = '8'
    end
    object UpDown1: TUpDown
      Left = 157
      Top = 121
      Width = 15
      Height = 19
      Associate = EDatalong
      Min = 0
      Position = 8
      TabOrder = 4
      Wrap = False
    end
    object Etimelong: TEdit
      Left = 104
      Top = 148
      Width = 41
      Height = 19
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 5
      Text = '5000'
    end
    object Bopen: TButton
      Left = 16
      Top = 191
      Width = 75
      Height = 25
      Caption = #25171#24320
      TabOrder = 6
      OnClick = BopenClick
    end
    object Bstop: TButton
      Left = 96
      Top = 191
      Width = 75
      Height = 25
      Caption = #20572#27490
      Enabled = False
      TabOrder = 7
      OnClick = BstopClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 321
    Top = 294
    Width = 250
    Height = 71
    Caption = #20449#24687
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 4
    object Label2: TLabel
      Left = 5
      Top = 20
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #35745#31639#32467#26524#65306
    end
    object Label3: TLabel
      Left = 137
      Top = 22
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #25968#25454#20010#25968#65306
    end
    object st: TStaticText
      Left = 78
      Top = 18
      Width = 47
      Height = 20
      AutoSize = False
      BorderStyle = sbsSingle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object scount: TStaticText
      Left = 209
      Top = 19
      Width = 35
      Height = 20
      AutoSize = False
      BorderStyle = sbsSingle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
    object smess: TStaticText
      Left = 6
      Top = 44
      Width = 238
      Height = 20
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Message'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
  end
  object GroupBox3: TGroupBox
    Left = 321
    Top = 368
    Width = 250
    Height = 73
    Caption = #27979#35797
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 5
    object Label10: TLabel
      Left = 9
      Top = 43
      Width = 160
      Height = 13
      AutoSize = False
      Caption = #29992#31354#26684#38548#24320#30340'16'#36827#21046#25968#25454
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edatas: TEdit
      Left = 5
      Top = 16
      Width = 239
      Height = 19
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
    end
    object BTestSend: TBitBtn
      Left = 174
      Top = 43
      Width = 65
      Height = 23
      Caption = #27979#35797#21457#36865
      Default = True
      TabOrder = 1
      OnClick = BTestSendClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 56
    Width = 177
    Height = 233
    Caption = #35201#21457#36865'/'#35745#31639#30340#25968#25454
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 6
    object Memo: TMemo
      Left = 5
      Top = 16
      Width = 166
      Height = 212
      Hint = #21452#20987#28165#38500#25968#25454
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnDblClick = MemoDblClick
    end
  end
  object GroupBox5: TGroupBox
    Left = 188
    Top = 56
    Width = 193
    Height = 233
    Caption = #25509#21463#30340#25968#25454
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 7
    object MemoRecv: TMemo
      Left = 8
      Top = 16
      Width = 177
      Height = 211
      Hint = #21452#20987#28165#38500#25968#25454
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 0
      OnDblClick = MemoRecvDblClick
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 583
    Height = 29
    Caption = 'ToolBar1'
    TabOrder = 8
    object Bsysset: TSpeedButton
      Left = 0
      Top = 2
      Width = 23
      Height = 22
      Hint = #36890#35759#21629#20196#35774#32622
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
        1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
        1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
        193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
        11155557F755F777777555000755033305555577755F75F77F55555555503335
        0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
        05555757F75F75557F5505000333555505557F777FF755557F55000000355557
        07557777777F55557F5555000005555707555577777FF5557F55553000075557
        0755557F7777FFF5755555335000005555555577577777555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BsyssetClick
    end
    object Babout: TSpeedButton
      Left = 23
      Top = 2
      Width = 23
      Height = 22
      Hint = #20851#20110'... ...'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
        555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
        05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
        FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
        FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
        FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
        05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
        555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
        9055575757575757775505050505055505557575757575557555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BaboutClick
    end
  end
  object BClose: TBitBtn
    Left = 464
    Top = 466
    Width = 97
    Height = 25
    Caption = #20851#38381'(&C)'
    TabOrder = 9
    OnClick = BCloseClick
    Kind = bkCancel
  end
  object GroupBox6: TGroupBox
    Left = 7
    Top = 292
    Width = 309
    Height = 151
    Caption = #21629#20196#25509#25910'/'#22238#24212' '#20449#24687
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 10
    object MCommand: TMemo
      Left = 5
      Top = 15
      Width = 298
      Height = 132
      Hint = #21452#20987#28165#38500#25968#25454
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 0
      OnDblClick = MCommandDblClick
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 304
    Top = 40
  end
  object Comm: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = False
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    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 = CommReceiveData
    OnReceiveError = CommReceiveError
    Left = 424
    Top = 40
  end
end