unit1.~dfm

Delphi下串口通讯源代码(本人用的测试程序)

object Form1: TForm1
  Left = 27
  Top = 139
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'EEPROM'#27979#35797#31243#24207'----'#22825#31809#30005#22768#22120#26448#26377#38480#20844#21496
  ClientHeight = 396
  ClientWidth = 911
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label5: TLabel
    Left = 8
    Top = 327
    Width = 20
    Height = 13
    Caption = 'D13'
  end
  object Label6: TLabel
    Left = 36
    Top = 327
    Width = 20
    Height = 13
    Caption = 'D12'
  end
  object Label7: TLabel
    Left = 63
    Top = 328
    Width = 20
    Height = 13
    Caption = 'D11'
  end
  object Label8: TLabel
    Left = 92
    Top = 328
    Width = 20
    Height = 13
    Caption = 'D10'
  end
  object Label9: TLabel
    Left = 120
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D9'
  end
  object Label10: TLabel
    Left = 147
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D8'
  end
  object Label11: TLabel
    Left = 314
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D2'
  end
  object Label12: TLabel
    Left = 287
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D3'
  end
  object Label13: TLabel
    Left = 259
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D4'
  end
  object Label14: TLabel
    Left = 230
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D5'
  end
  object Label15: TLabel
    Left = 203
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D6'
  end
  object Label16: TLabel
    Left = 175
    Top = 328
    Width = 14
    Height = 13
    Caption = 'D7'
  end
  object Label17: TLabel
    Left = 343
    Top = 329
    Width = 14
    Height = 13
    Caption = 'D1'
  end
  object Label18: TLabel
    Left = 371
    Top = 329
    Width = 14
    Height = 13
    Caption = 'D1'
  end
  object Label23: TLabel
    Left = 88
    Top = 374
    Width = 32
    Height = 13
    Caption = 'N'#20540#65306
  end
  object GroupBox1: TGroupBox
    Left = 314
    Top = -4
    Width = 151
    Height = 325
    TabOrder = 3
    object Label1: TLabel
      Left = 9
      Top = 55
      Width = 60
      Height = 13
      Caption = #20018#21475#36873#25321#65306
    end
    object Label2: TLabel
      Left = 9
      Top = 96
      Width = 41
      Height = 13
      Caption = 'Settings:'
    end
    object Label3: TLabel
      Left = 8
      Top = 142
      Width = 18
      Height = 13
      Caption = '      '
      Color = clBtnFace
      ParentColor = False
    end
    object Label4: TLabel
      Left = 24
      Top = 142
      Width = 71
      Height = 13
      AutoSize = False
      Caption = #31471#21475#26410#25171#24320
    end
    object Label20: TLabel
      Left = 109
      Top = 164
      Width = 24
      Height = 13
      Caption = #27493#38271
    end
    object Label19: TLabel
      Left = 17
      Top = 282
      Width = 38
      Height = 13
      Caption = 'Label19'
    end
    object Label21: TLabel
      Left = 16
      Top = 242
      Width = 38
      Height = 13
      Caption = 'Label21'
    end
    object Label22: TLabel
      Left = 81
      Top = 242
      Width = 38
      Height = 13
      Caption = 'Label22'
    end
    object Label25: TLabel
      Left = 16
      Top = 263
      Width = 38
      Height = 13
      Caption = 'Label21'
    end
    object Label26: TLabel
      Left = 81
      Top = 263
      Width = 38
      Height = 13
      Caption = 'Label22'
    end
    object ComboBox1: TComboBox
      Left = 9
      Top = 73
      Width = 78
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'COM1'
      OnChange = ComboBox1Change
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4')
    end
    object Button3: TButton
      Left = 7
      Top = 157
      Width = 65
      Height = 25
      Caption = #25171#24320#20018#21475
      TabOrder = 1
      OnClick = Button3Click
    end
    object ComboBox2: TComboBox
      Left = 9
      Top = 115
      Width = 81
      Height = 21
      ItemHeight = 13
      ItemIndex = 3
      TabOrder = 2
      Text = '9600,n,8,1'
      OnChange = ComboBox2Change
      Items.Strings = (
        '1200,n,8,1'
        '2400,n,8,1'
        '4800,n,8,1'
        '9600,n,8,1'
        '19200,n,8,1')
    end
    object Button5: TButton
      Left = 9
      Top = 212
      Width = 56
      Height = 21
      Caption = #35835#20013#39057
      Enabled = False
      TabOrder = 3
      OnClick = Button5Click
    end
    object CheckBox1: TCheckBox
      Left = 5
      Top = 184
      Width = 47
      Height = 17
      Caption = #33258#22686
      TabOrder = 4
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 55
      Top = 184
      Width = 46
      Height = 17
      Caption = #33258#20943
      TabOrder = 5
      OnClick = CheckBox2Click
    end
    object ComboBox3: TComboBox
      Left = 8
      Top = 32
      Width = 74
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      Text = #35835'TV'#29366#24577
      OnChange = ComboBox3Change
      Items.Strings = (
        #35835'TV'#29366#24577
        #21046#24335#35774#32622
        #25511#21046#35774#32622
        #29664#27743#21488
        #35843#21488
        #21046#24335'(B)'
        #21046#24335'(C)'
        #21046#24335'(E)')
    end
    object CheckBox3: TCheckBox
      Left = 52
      Top = 10
      Width = 75
      Height = 17
      Caption = #23450#26102#21457#36865
      TabOrder = 7
      OnClick = CheckBox3Click
    end
    object Edit15: TEdit
      Left = 112
      Top = 181
      Width = 25
      Height = 21
      TabOrder = 8
      Text = '1'
    end
    object Button4: TButton
      Left = 80
      Top = 211
      Width = 55
      Height = 21
      Caption = #35835#39640#39057
      Enabled = False
      TabOrder = 9
      OnClick = Button4Click
    end
    object CheckBox4: TCheckBox
      Left = 5
      Top = 304
      Width = 68
      Height = 17
      Caption = #36830#35835#20013#39057
      TabOrder = 10
    end
    object CheckBox5: TCheckBox
      Left = 79
      Top = 304
      Width = 68
      Height = 17
      Caption = #36830#35835#39640#39057
      TabOrder = 11
    end
  end
  object Button1: TButton
    Left = 419
    Top = 344
    Width = 47
    Height = 23
    Caption = #21457#36865
    Default = True
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 313
    Height = 321
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
    OnClick = Memo1Click
    OnKeyPress = Memo1KeyPress
    OnKeyUp = Memo1KeyUp
  end
  object MSComm1: TMSComm
    Left = 417
    Top = 80
    Width = 32
    Height = 32
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object Edit1: TEdit
    Left = 6
    Top = 347
    Width = 25
    Height = 21
    Enabled = False
    ReadOnly = True
    TabOrder = 4
    Text = '53'
  end
  object Edit2: TEdit
    Left = 33
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 5
    Text = '08'
    OnChange = Edit9Change
  end
  object Edit3: TEdit
    Left = 61
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 6
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit4: TEdit
    Left = 89
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 7
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit5: TEdit
    Left = 117
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 8
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit6: TEdit
    Left = 144
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 9
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit7: TEdit
    Left = 172
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 10
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit8: TEdit
    Left = 200
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 11
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit9: TEdit
    Left = 228
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 12
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit10: TEdit
    Left = 255
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 13
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit11: TEdit
    Left = 283
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 14
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit12: TEdit
    Left = 311
    Top = 347
    Width = 25
    Height = 21
    TabOrder = 15
    Text = '00'
    OnChange = Edit9Change
  end
  object Edit13: TEdit
    Left = 339
    Top = 347
    Width = 25
    Height = 21
    Enabled = False
    ReadOnly = True
    TabOrder = 16
    Text = 'F8'
  end
  object Button2: TButton
    Left = 320
    Top = 7
    Width = 42
    Height = 18
    Caption = #28165#38500
    TabOrder = 17
    OnClick = Button2Click
  end
  object Edit14: TEdit
    Left = 367
    Top = 347
    Width = 25
    Height = 21
    Enabled = False
    ReadOnly = True
    TabOrder = 18
    Text = '45'
  end
  object Edit16: TEdit
    Left = 117
    Top = 372
    Width = 53
    Height = 17
    AutoSize = False
    TabOrder = 19
    Text = '0'
    OnChange = Edit16Change
  end
  object Memo2: TMemo
    Left = 468
    Top = 1
    Width = 117
    Height = 320
    Lines.Strings = (
      'Memo2')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 20
  end
  object Button6: TButton
    Left = 536
    Top = 328
    Width = 81
    Height = 25
    Caption = #20445#23384#26377#25928#39057#36947
    TabOrder = 21
    OnClick = Button6Click
  end
  object Memo3: TMemo
    Left = 592
    Top = 1
    Width = 137
    Height = 320
    Lines.Strings = (
      'Memo3')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 22
  end
  object Button7: TButton
    Left = 640
    Top = 328
    Width = 81
    Height = 25
    Caption = #20445#23384#27979#35797#25968#25454
    TabOrder = 23
    OnClick = Button7Click
  end
  object Memo4: TMemo
    Left = 732
    Top = 0
    Width = 173
    Height = 321
    Lines.Strings = (
      'Memo4')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 24
  end
  object Button8: TButton
    Left = 832
    Top = 328
    Width = 65
    Height = 25
    Caption = #28165#38500
    TabOrder = 25
    OnClick = Button8Click
  end
  object Timer1: TTimer
    Interval = 150
    OnTimer = Timer1Timer
    Left = 418
    Top = 36
  end
  object SaveDialog1: TSaveDialog
    Filter = '*.txt|*.txt'
    Left = 488
    Top = 328
  end
end