unit1.~dfm

这是一个用delphi7.0 编写的P串口通讯程序

object Form1: TForm1
  Left = 339
  Top = 13
  Width = 692
  Height = 478
  Caption = #20018#21475#24189#28789' v3.2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 16
    Top = 256
    Width = 561
    Height = 177
    Caption = #20223#30495#20018#21475
    TabOrder = 0
    object Label3: TLabel
      Left = 13
      Top = 125
      Width = 36
      Height = 13
      Caption = #20018#21475#65306
    end
    object Label4: TLabel
      Left = 318
      Top = 130
      Width = 89
      Height = 13
      Caption = 'DTR('#25509#25910#20934#22791#22909')'
    end
    object Label6: TLabel
      Left = 318
      Top = 152
      Width = 88
      Height = 13
      Caption = 'RTS('#35831#27714#21457#36865#20449')'
    end
    object Label9: TLabel
      Left = 216
      Top = 128
      Width = 60
      Height = 13
      Caption = #22266#23450#23383#33410#20540
    end
    object Label10: TLabel
      Left = 93
      Top = 152
      Width = 24
      Height = 13
      Caption = #26174#31034
    end
    object Label19: TLabel
      Left = 520
      Top = 26
      Width = 36
      Height = 13
      BiDiMode = bdLeftToRight
      Caption = #21457#36865#31383
      ParentBiDiMode = False
    end
    object Label20: TLabel
      Left = 520
      Top = 72
      Width = 36
      Height = 13
      Caption = #25509#25910#31383
    end
    object Label30: TLabel
      Left = 520
      Top = 42
      Width = 36
      Height = 13
      BiDiMode = bdLeftToRight
      Caption = #35745#31639#31383
      ParentBiDiMode = False
    end
    object Button4: TButton
      Left = 135
      Top = 122
      Width = 70
      Height = 23
      Caption = #21457'   '#36865
      TabOrder = 0
      OnClick = Button4Click
    end
    object Edit3: TEdit
      Left = 10
      Top = 146
      Width = 37
      Height = 21
      TabOrder = 1
      Text = '1'
    end
    object ComboBox1: TComboBox
      Left = 411
      Top = 126
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = 'ON'#39640#30005#24179
      Items.Strings = (
        'ON'#39640#30005#24179
        'OFF'#20302#30005#24179)
    end
    object ComboBox2: TComboBox
      Left = 411
      Top = 148
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = 'ON'#39640#30005#24179
      Items.Strings = (
        'ON'#39640#30005#24179
        'OFF'#20302#30005#24179)
    end
    object Memo2: TMemo
      Left = 8
      Top = 16
      Width = 508
      Height = 49
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Button5: TButton
      Left = 91
      Top = 123
      Width = 41
      Height = 23
      Caption = #28165#31383#21475
      TabOrder = 5
      OnClick = Button5Click
    end
    object Edit4: TEdit
      Left = 277
      Top = 126
      Width = 33
      Height = 21
      TabOrder = 6
      Text = '85'
    end
    object Button6: TButton
      Left = 216
      Top = 147
      Width = 94
      Height = 23
      Caption = #21457'8'#34892#20010#22266#23450#20540
      TabOrder = 7
      OnClick = Button6Click
    end
    object CheckBox1: TCheckBox
      Left = 116
      Top = 150
      Width = 17
      Height = 17
      Checked = True
      State = cbChecked
      TabOrder = 8
    end
    object Memo3: TMemo
      Left = 8
      Top = 66
      Width = 508
      Height = 49
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object Button9: TButton
      Left = 56
      Top = 123
      Width = 33
      Height = 23
      Caption = #25171#24320
      TabOrder = 10
      OnClick = Button9Click
    end
    object Button10: TButton
      Left = 56
      Top = 147
      Width = 33
      Height = 23
      Caption = #20851#38381
      TabOrder = 11
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 135
      Top = 147
      Width = 70
      Height = 23
      Caption = #20840#36895#21457#36865
      TabOrder = 12
      OnClick = Button11Click
    end
  end
  object Button15: TButton
    Left = 584
    Top = 304
    Width = 89
    Height = 25
    Caption = #20135#29983'CRC1'
    TabOrder = 1
    Visible = False
  end
  object Button16: TButton
    Left = 584
    Top = 336
    Width = 89
    Height = 25
    Caption = 'crc2'
    TabOrder = 2
    Visible = False
  end
  object Button18: TButton
    Left = 584
    Top = 376
    Width = 89
    Height = 25
    Caption = 'xor'
    TabOrder = 3
  end
  object MSComm2: TMSComm
    Left = 472
    Top = 88
    Width = 32
    Height = 32
    OnComm = MSComm2Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 552
    Top = 16
  end
end