unit1.dfm

指导你如何通过串口发送数据和ASC码

object Form1: TForm1
  Left = 279
  Top = 87
  Width = 404
  Height = 276
  Caption = 'Modem Control'
  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 = 56
    Top = 4
    Width = 109
    Height = 29
    AutoSize = False
    Caption = #21629#20196#36865#20986#21306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 52
    Top = 76
    Width = 109
    Height = 29
    AutoSize = False
    Caption = #25509#25910#23383#31526#20018#21306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object txtInput: TEdit
    Left = 52
    Top = 36
    Width = 169
    Height = 28
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object mReceive: TMemo
    Left = 52
    Top = 108
    Width = 173
    Height = 109
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '???')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 244
    Top = 36
    Width = 113
    Height = 29
    Caption = #36865#20986#25351#20196
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 244
    Top = 120
    Width = 113
    Height = 29
    Caption = #28165#38500#25509#25910#21306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
  object BitBtn3: TBitBtn
    Left = 244
    Top = 168
    Width = 113
    Height = 29
    Caption = #32467#26463#31995#32479
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn3Click
    Kind = bkClose
  end
  object Comm1: TComm
    CommPort = pnCOM1
    PortOpen = False
    BaudRate = br57600
    HwHandShaking = hhRTSCTS
    SwHandShaking = shXonXoff
    DataBits = DB8
    Parity = None
    StopBits = SB1
    InputLen = 0
    RThreshold = 1
    DTREnabled = False
    RTSEnabled = False
    DataCount = 1358962521
    OnReceiveData = Comm1ReceiveData
    Left = 280
    Top = 208
  end
end