unit1.dfm

需要安装“MSCOMM”组件,串口通信实例

object Form1: TForm1
  Left = 203
  Top = 114
  Width = 326
  Height = 205
  Caption = #26174#31034#20018#21475#30340#25509#25910#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 224
    Top = 16
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #36873#25321#20018#21475#65306
  end
  object Label2: TLabel
    Left = 224
    Top = 58
    Width = 60
    Height = 13
    AutoSize = False
    Caption = #35774#32622#21442#25968#65306
  end
  object MSComm1: TMSComm
    Left = 217
    Top = 9
    Width = 32
    Height = 32
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020200802500000000080000000000000000003F00000001000000}
  end
  object Button1: TButton
    Left = 224
    Top = 104
    Width = 75
    Height = 25
    Caption = #25509#25910
    TabOrder = 1
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 201
    Height = 153
    ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
    Lines.Strings = (
      '')
    TabOrder = 2
  end
  object Button2: TButton
    Left = 224
    Top = 136
    Width = 75
    Height = 25
    Caption = #20572#27490
    TabOrder = 3
    OnClick = Button2Click
  end
  object ComboBox1: TComboBox
    Left = 224
    Top = 75
    Width = 89
    Height = 21
    ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
    ItemHeight = 13
    TabOrder = 4
    Items.Strings = (
      '9600,n,8,1')
  end
  object ComboBox2: TComboBox
    Left = 224
    Top = 32
    Width = 89
    Height = 21
    ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
    ItemHeight = 13
    TabOrder = 5
    Items.Strings = (
      'Com1'
      'Com2')
  end
  object XPManifest1: TXPManifest
    Left = 128
    Top = 64
  end
end