aaaa.dfm

可读写串口 232 简单明了 使用初学者学习用 我自己写的,能力有限 难免出错 请批评指正 压缩包里有说明

object Form1: TForm1
  Left = 203
  Top = 108
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20018#21475#21457#36865#21450#25509#25910#25968#25454' V1.0'
  ClientHeight = 282
  ClientWidth = 275
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777
    7777777777777777777777777777700000000000000000000000000000077000
    00000000000000000000000000077000FFFFFFFFFFFFFFFFFFFFFFFF0007700F
    FFFFFFFFFFFFFFFFFFFFFFFFF007700FFFCCCCCCCCCCCCCCCCCCCCFFF007700F
    FBFCCCCCCCCCCCCCCCCCCFAFF007700FFBBFCCCCCCCCCCCCCCCCFAAFF007700F
    FBBBFCCCCCCCCCCCCCCFAAAFF007700FFBBBBFCCCCCCCCCCCCFAAAAFF007700F
    FBBBBBFCCCCCCCCCCFAAAAAFF007700FFBBBBBBFCCCCCCCCFAAAAAAFF007700F
    FBBBBBBBFCCCCCCFAAAAAAAFF007700FFBBBBBBBBF0000FAAAAAAAAFF007700F
    FBBBBBBBB07FF70AAAAAAAAFF007700FFBBBBBBBB0FFFF0AAAAAAAAFF007700F
    FBBBBBBBB0FFFF0AAAAAAAAFF007700FFBBBBBBBB07FF70AAAAAAAAFF007700F
    FBBBBBBBBF0000FAAAAAAAAFF007700FFBBBBBBBF999999FAAAAAAAFF007700F
    FBBBBBBF99999999FAAAAAAFF007700FFBBBBBF9999999999FAAAAAFF007700F
    FBBBBF999999999999FAAAAFF007700FFBBBF99999999999999FAAAFF007700F
    FBBF9999999999999999FAAFF007700FFBF999999999999999999FAFF007700F
    FF99999999999999999999FFF007700FFFFFFFFFFFFFFFFFFFFFFFFFF0077000
    FFFFFFFFFFFFFFFFFFFFFFFF0007700000000000000000000000000000077000
    0000000000000000000000000007777777777777777777777777777777770000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 128
    Width = 257
    Height = 145
    Caption = #25511#21046#21488
    TabOrder = 0
    object Shape1: TShape
      Left = 8
      Top = 42
      Width = 241
      Height = 17
      Brush.Color = clRed
    end
    object Button1: TButton
      Left = 8
      Top = 16
      Width = 49
      Height = 25
      Caption = #36830#25509
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 56
      Top = 16
      Width = 49
      Height = 25
      Caption = #26029#24320
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 80
      Top = 64
      Width = 25
      Height = 25
      Caption = '3'
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 104
      Top = 64
      Width = 25
      Height = 25
      Caption = '4'
      TabOrder = 3
      OnClick = Button4Click
    end
    object ComboBox1: TComboBox
      Left = 192
      Top = 16
      Width = 57
      Height = 22
      Font.Charset = HEBREW_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 14
      ItemIndex = 0
      ParentFont = False
      TabOrder = 4
      Text = 'COM1'
      OnChange = ComboBox1Change
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4'
        'COM5'
        '')
    end
    object Button5: TButton
      Left = 128
      Top = 64
      Width = 25
      Height = 25
      Caption = '5'
      TabOrder = 5
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 8
      Top = 64
      Width = 25
      Height = 25
      Caption = '0'
      TabOrder = 6
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 32
      Top = 64
      Width = 25
      Height = 25
      Caption = '1'
      TabOrder = 7
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 56
      Top = 64
      Width = 25
      Height = 25
      Caption = '2'
      TabOrder = 8
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 152
      Top = 64
      Width = 25
      Height = 25
      Caption = '6'
      TabOrder = 9
      OnClick = Button9Click
    end
    object Button10: TButton
      Left = 176
      Top = 64
      Width = 25
      Height = 25
      Caption = '7'
      TabOrder = 10
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 200
      Top = 64
      Width = 25
      Height = 25
      Caption = '8'
      TabOrder = 11
      OnClick = Button11Click
    end
    object Button12: TButton
      Left = 224
      Top = 64
      Width = 25
      Height = 25
      Caption = '9'
      TabOrder = 12
      OnClick = Button12Click
    end
    object Button13: TButton
      Left = 8
      Top = 88
      Width = 25
      Height = 25
      Caption = 'a'
      TabOrder = 13
      OnClick = Button13Click
    end
    object Button14: TButton
      Left = 32
      Top = 88
      Width = 25
      Height = 25
      Caption = 'b'
      TabOrder = 14
      OnClick = Button14Click
    end
    object Button15: TButton
      Left = 56
      Top = 88
      Width = 25
      Height = 25
      Caption = 'c'
      TabOrder = 15
      OnClick = Button15Click
    end
    object Button16: TButton
      Left = 80
      Top = 88
      Width = 25
      Height = 25
      Caption = 'd'
      TabOrder = 16
      OnClick = Button16Click
    end
    object Button17: TButton
      Left = 104
      Top = 88
      Width = 25
      Height = 25
      Caption = 'e'
      TabOrder = 17
      OnClick = Button17Click
    end
    object Button18: TButton
      Left = 128
      Top = 88
      Width = 25
      Height = 25
      Caption = 'f'
      TabOrder = 18
      OnClick = Button18Click
    end
    object Button19: TButton
      Left = 152
      Top = 88
      Width = 25
      Height = 25
      Caption = 'g'
      TabOrder = 19
      OnClick = Button19Click
    end
    object Button20: TButton
      Left = 176
      Top = 88
      Width = 25
      Height = 25
      Caption = 'h'
      TabOrder = 20
      OnClick = Button20Click
    end
    object Button21: TButton
      Left = 200
      Top = 88
      Width = 25
      Height = 25
      Caption = 'i'
      TabOrder = 21
      OnClick = Button21Click
    end
    object Button22: TButton
      Left = 8
      Top = 112
      Width = 25
      Height = 25
      Caption = 'A'
      TabOrder = 22
      OnClick = Button22Click
    end
    object Button23: TButton
      Left = 32
      Top = 112
      Width = 25
      Height = 25
      Caption = 'B'
      TabOrder = 23
      OnClick = Button23Click
    end
    object Button24: TButton
      Left = 56
      Top = 112
      Width = 25
      Height = 25
      Caption = 'C'
      TabOrder = 24
      OnClick = Button24Click
    end
    object Button25: TButton
      Left = 80
      Top = 112
      Width = 25
      Height = 25
      Caption = 'D'
      TabOrder = 25
      OnClick = Button25Click
    end
    object Button26: TButton
      Left = 104
      Top = 112
      Width = 25
      Height = 25
      Caption = 'E'
      TabOrder = 26
      OnClick = Button26Click
    end
    object Button27: TButton
      Left = 128
      Top = 112
      Width = 25
      Height = 25
      Caption = 'F'
      TabOrder = 27
      OnClick = Button27Click
    end
    object Button28: TButton
      Left = 152
      Top = 112
      Width = 25
      Height = 25
      Caption = 'G'
      TabOrder = 28
      OnClick = Button28Click
    end
    object Button29: TButton
      Left = 176
      Top = 112
      Width = 25
      Height = 25
      Caption = 'H'
      TabOrder = 29
      OnClick = Button29Click
    end
    object Button30: TButton
      Left = 200
      Top = 112
      Width = 25
      Height = 25
      Caption = 'I'
      TabOrder = 30
      OnClick = Button30Click
    end
    object Button31: TButton
      Left = 224
      Top = 88
      Width = 25
      Height = 25
      Caption = 'j'
      TabOrder = 31
      OnClick = Button31Click
    end
    object Button32: TButton
      Left = 224
      Top = 112
      Width = 25
      Height = 25
      Caption = 'J'
      TabOrder = 32
      OnClick = Button32Click
    end
    object Edit1: TEdit
      Left = 64
      Top = 168
      Width = 153
      Height = 21
      TabOrder = 33
      Text = #22312#36825#37324#22635#20889#35201#21457#36865#30340#23383#31526#20018
      Visible = False
    end
    object Button33: TButton
      Left = 244
      Top = 158
      Width = 45
      Height = 25
      Caption = #21457#36865
      TabOrder = 34
      Visible = False
      OnClick = Button33Click
    end
    object CheckBox1: TCheckBox
      Left = 120
      Top = 16
      Width = 57
      Height = 23
      Caption = #21453#24377
      TabOrder = 35
      OnClick = CheckBox1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 8
    Width = 257
    Height = 121
    Caption = #29366#24577#25351#31034
    TabOrder = 1
    object Label3: TLabel
      Left = 6
      Top = 43
      Width = 24
      Height = 13
      Caption = 'read:'
    end
    object Label4: TLabel
      Left = 4
      Top = 19
      Width = 26
      Height = 13
      Caption = 'send:'
    end
    object Edit3: TEdit
      Left = 32
      Top = 16
      Width = 97
      Height = 21
      ReadOnly = True
      TabOrder = 0
      Text = #21457#36865#25968#25454#26174#31034#23631
    end
    object Edit4: TEdit
      Left = 32
      Top = 40
      Width = 97
      Height = 21
      ReadOnly = True
      TabOrder = 1
      Text = #25509#25910#25968#25454#26174#31034#23631
    end
    object Memo1: TMemo
      Left = 8
      Top = 64
      Width = 241
      Height = 45
      Lines.Strings = (
        #31243#24207#25191#34892#30340#20027#35201#20195#30721)
      ReadOnly = True
      TabOrder = 2
    end
    object Memo2: TMemo
      Left = 136
      Top = 16
      Width = 113
      Height = 45
      Lines.Strings = (
        #27880#37322)
      TabOrder = 3
    end
  end
  object CommPortDriver1: TCommPortDriver
    Port = pnCOM1
    PortName = '\\.\COM1'
    InputTimeout = 1
    Left = 176
    Top = 112
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 64
    Top = 112
  end
end