unit1.dfm

利用MSComm32.ocx控件,Delphi实现体检医院测身高体重仪器与计算机的串口通讯。随附测试工具

object Form1: TForm1
  Left = 358
  Top = 175
  Width = 696
  Height = 480
  Caption = 'Test'
  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 = 64
    Top = 104
    Width = 81
    Height = 13
    Caption = #25509#25910#30340#25968#25454'       '
  end
  object Label2: TLabel
    Left = 24
    Top = 32
    Width = 159
    Height = 13
    Caption = #36890#20449#21442#25968#65288'Setting'#23646#24615#20540#65289'      '
  end
  object Label3: TLabel
    Left = 232
    Top = 32
    Width = 147
    Height = 13
    Caption = #20018#21475#65288'CommPort'#23646#24615#20540#65289'     '
  end
  object Memo1: TMemo
    Left = 64
    Top = 144
    Width = 321
    Height = 185
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Button1: TButton
    Left = 456
    Top = 56
    Width = 75
    Height = 25
    Caption = #24320#22987#25509#25910
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 448
    Top = 128
    Width = 75
    Height = 25
    Caption = #20572#27490
    TabOrder = 2
    OnClick = Button2Click
  end
  object MSComm1: TMSComm
    Left = 456
    Top = 232
    Width = 32
    Height = 32
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object Edit1: TEdit
    Left = 64
    Top = 72
    Width = 121
    Height = 21
    TabOrder = 4
    Text = '57600, ,8,1'
  end
  object Edit2: TEdit
    Left = 248
    Top = 64
    Width = 121
    Height = 21
    TabOrder = 5
    Text = '1'
  end
  object Button3: TButton
    Left = 200
    Top = 352
    Width = 75
    Height = 25
    Caption = #28165#31354
    TabOrder = 6
    OnClick = Button3Click
  end
end