mainprg.dfm

用BCB写的spcomm的一个例子

object MainForm: TMainForm
  Left = 192
  Top = 84
  Width = 520
  Height = 377
  Caption = 'CommTest'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 71
    Top = 0
    Width = 441
    Height = 350
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 1
      Top = 144
      Width = 439
      Height = 12
      Align = alTop
      Caption = #25509#25910#21040#30340#25968#25454':'
    end
    object Label2: TLabel
      Left = 1
      Top = 1
      Width = 439
      Height = 12
      Align = alTop
      Caption = #21457#36865#30340#25968#25454':'
    end
    object Splitter1: TSplitter
      Left = 1
      Top = 137
      Width = 439
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object Bevel1: TBevel
      Left = 1
      Top = 140
      Width = 439
      Height = 4
      Align = alTop
    end
    object Panel2: TPanel
      Left = 1
      Top = 13
      Width = 439
      Height = 23
      Align = alTop
      TabOrder = 0
      OnResize = Panel2Resize
      object Edit1: TEdit
        Left = 0
        Top = 2
        Width = 441
        Height = 20
        TabOrder = 0
        Text = 
          '0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,10,11,12,13,14,15,16,17,18,19,1a' +
          ',1b,1c,1d,1e'
      end
    end
    object Memo2: TMemo
      Left = 1
      Top = 156
      Width = 439
      Height = 193
      Align = alClient
      ScrollBars = ssBoth
      TabOrder = 1
    end
    object Memo1: TMemo
      Left = 1
      Top = 36
      Width = 439
      Height = 101
      Align = alTop
      ScrollBars = ssBoth
      TabOrder = 2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 71
    Height = 350
    Align = alLeft
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 5
      Top = 95
      Width = 63
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #23450#26102'(MS)'
      OnClick = SpeedButton1Click
    end
    object Button1: TButton
      Left = 3
      Top = 23
      Width = 65
      Height = 25
      Caption = #21457#36865
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 3
      Top = 63
      Width = 65
      Height = 25
      Caption = #28165#31354
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button4: TButton
      Left = 3
      Top = 216
      Width = 65
      Height = 25
      Caption = #28165#31354
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button3: TButton
      Left = 3
      Top = 320
      Width = 65
      Height = 25
      Caption = #35774#32622
      TabOrder = 3
      OnClick = Button3Click
    end
    object EditN1: TEdit
      Left = 8
      Top = 120
      Width = 57
      Height = 20
      TabOrder = 4
      Text = '1000'
    end
  end
  object Comm: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = CommReceiveData
    Left = 8
    Top = 8
  end
  object Timer1: TTimer
    Interval = 0
    OnTimer = Timer1Timer
    Left = 40
    Top = 8
  end
end