unit1.dfm

delphi用MSComm进行串口通讯

object F_main: TF_main
  Left = 263
  Top = 117
  Width = 393
  Height = 504
  BorderIcons = [biSystemMenu]
  Caption = #20018#21475#36890#35759#27979#35797#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF006666
    66666667FFFFFFFFF876666666666666666668FFFFFFFFFFFFFF766666666666
    6666FFFFFFFFFFFFFFFFF86666666666666FFFFFFFFFFFFFFFFFFF8666666666
    67FFFFFFFFFFFFFFFFFFFFFF666666666FFFFFFF7700000077FFFFFF86666666
    FFFFFF77000000000077FFFFF8666667FFFFF7700000000000077FFFFF66666F
    FFFFF7000000000000007FFFFF86667FFFFF700000000000000007FFFFF6668F
    FFFF700000199990000007FFFFF666FFFFF7000001999999000000FFFFF766FF
    FFF70000099999991000007FFFF866FFFFF70000199999999000007FFFF866FF
    FFF70000199999999000007FFFF866FFFFF70000099999991000007FFFF866FF
    FFF70000019999990000007FFFF666FFFFF7000000199990000007FFFFF666FF
    FFF7000000000000000007FFFFF666FFFFF700000000000000007FFFFF8666FF
    FFF700000000000000077FFFFF6666FFFFF70000000000000077FFFFF86666FF
    FFF7000000000000077FFFFFF66666FFFFF777777777777FFFFFFFFF766666FF
    FFFFFFFFFFFFFFFFFFFFFFF7666666FFFFFFFFFFFFFFFFFFFFFFFF86666666FF
    FFFFFFFFFFFFFFFFFFFF8666666666FFFFFFFFFFFFFFFFFFFFF66666666666FF
    FFFFFFFFFFFF888866666666666666FFFFFF66666666666666666666666666FF
    FFFF66666666666666666666666666FFFFF86666666666666666666666660000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 6
    Top = 296
    Width = 113
    Height = 153
    Hint = #36825#20010#26159#22270#20687#21306#22495#65292#24403#36830#32493#25509#21463#21040#19968#32452#25968#25454#21518#25226#25509#21463#21040#30340#25968#25454#25353#29031#28784#24230#22270#20687#36824#21407#26174#31034#20986#26469#12290
    ParentShowHint = False
    ShowHint = True
  end
  object LbRef: TLabel
    Left = 8
    Top = 272
    Width = 6
    Height = 13
    Hint = #22270#20687#21047#26032#26631#31034
    Caption = '1'
    ParentShowHint = False
    ShowHint = True
  end
  object lb_time: TLabel
    Left = 96
    Top = 272
    Width = 24
    Height = 13
    Hint = #31186#35760#25968#22120' '#21040'0.1'#31186
    Caption = '1000'
    ParentShowHint = False
    ShowHint = True
  end
  object Label1: TLabel
    Left = 16
    Top = 144
    Width = 53
    Height = 13
    Caption = '9600.N.8.1'
  end
  object MSCom: TMSComm
    Left = 104
    Top = 0
    Width = 32
    Height = 32
    OnComm = MSComComm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010001000100
      01000100802500000000080000000000010000003F0000001C000000}
  end
  object BT_OpenAUTO: TButton
    Left = 8
    Top = 8
    Width = 97
    Height = 25
    Hint = #21521#20018#21475#21457'01'
    Caption = #25171#24320#33258#21160#21457#36865
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = BT_OpenAUTOClick
  end
  object bt_ClosAuto: TButton
    Left = 8
    Top = 40
    Width = 97
    Height = 25
    Hint = #21521#20018#21475#21457'02'
    Caption = #20851#38381#33258#21160#21457#36865
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = bt_ClosAutoClick
  end
  object Memo1: TMemo
    Left = 128
    Top = 8
    Width = 249
    Height = 449
    Hint = #25968#25454#25509#21463#21306#22495#65292#27599#34892'10'#20010#25968#25454#65292#22914#26524#21457#36865#26377#38388#38548#30340#35805#65292#23601#22686#21152#19968#20010#31354#34892#12290
    Color = clBlack
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = 'Fixedsys'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object BT_Step: TButton
    Left = 8
    Top = 72
    Width = 97
    Height = 33
    Hint = #21521#20018#21475#21457'03'
    Caption = '&D'#21333#29420#35831#27714#21457#36865
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = BT_StepClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 458
    Width = 385
    Height = 19
    Panels = <
      item
        Text = #25509#25910#65306
        Width = 100
      end
      item
        Text = #29256#26435#25152#26377#35199#23433' '#38647#23376' ('#20399#26480') [e-mail]'
        Width = 50
      end>
    SimplePanel = False
    OnDblClick = StatusBar1DblClick
  end
  object BitBtn1: TBitBtn
    Left = 8
    Top = 208
    Width = 75
    Height = 25
    Caption = 'BitBtn1'
    TabOrder = 6
    Visible = False
    OnClick = BitBtn1Click
  end
  object Button2: TButton
    Left = 8
    Top = 112
    Width = 97
    Height = 25
    Hint = #21521#20018#21475#21457'04'
    Caption = '&T'#36890#35759#27979#35797
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = Button2Click
  end
  object Timer1: TTimer
    Interval = 20
    OnTimer = Timer1Timer
    Left = 8
    Top = 232
  end
  object Timer2: TTimer
    Interval = 100
    OnTimer = Timer2Timer
    Left = 64
    Top = 240
  end
end