Delphi/CppBuilder

开发平台：
Delphi

Mainfrm.dfm：源码内容
							object frmComm: TfrmComm
  Left = 167
  Top = 124
  Width = 543
  Height = 421
  Caption = #21033#29992'SPComm'#23454#29616#20018#21475#36890#20449#31034#20363
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 375
    Width = 535
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 352
    Top = 0
    Width = 183
    Height = 375
    Align = alRight
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 64
      Width = 72
      Height = 12
      Caption = #27874'  '#29305'  '#29575#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 112
      Width = 72
      Height = 12
      Caption = #25968'  '#25454'  '#20301#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 160
      Width = 72
      Height = 12
      Caption = #20572'  '#27490'  '#20301#65306
    end
    object Label4: TLabel
      Left = 8
      Top = 208
      Width = 72
      Height = 12
      Caption = #22855#20598#26657#39564#20301#65306
    end
    object Label5: TLabel
      Left = 8
      Top = 24
      Width = 72
      Height = 12
      Caption = #20018'  '#21475'  '#21517#65306
    end
    object btnOpen: TBitBtn
      Left = 45
      Top = 252
      Width = 93
      Height = 25
      Caption = #25171#24320
      TabOrder = 0
      OnClick = btnOpenClick
    end
    object btnClose: TBitBtn
      Left = 45
      Top = 332
      Width = 93
      Height = 25
      Caption = #20851#38381
      Enabled = False
      TabOrder = 1
      OnClick = btnCloseClick
    end
    object btnSend: TBitBtn
      Left = 45
      Top = 292
      Width = 93
      Height = 25
      Caption = #21457#36865
      Enabled = False
      TabOrder = 2
      OnClick = btnSendClick
    end
    object cmbByteSize: TComboBox
      Left = 84
      Top = 107
      Width = 96
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnChange = cmbByteSizeChange
      Items.Strings = (
        '_5'
        '_6'
        '_7'
        '_8')
    end
    object cmbStopBits: TComboBox
      Left = 84
      Top = 154
      Width = 96
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
      OnChange = cmbStopBitsChange
      Items.Strings = (
        '_1'
        '_1_5'
        '_2')
    end
    object cmbParity: TComboBox
      Left = 84
      Top = 204
      Width = 96
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 5
      OnChange = cmbParityChange
      Items.Strings = (
        'None'
        'Odd'
        'Even'
        'Mark'
        'Space')
    end
    object edtCommName: TEdit
      Left = 84
      Top = 19
      Width = 92
      Height = 20
      TabOrder = 6
    end
    object edtBaudRate: TEdit
      Left = 85
      Top = 59
      Width = 92
      Height = 20
      TabOrder = 7
      OnExit = edtBaudRateExit
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 352
    Height = 375
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvNone
    TabOrder = 2
    object mmoComm: TMemo
      Left = 1
      Top = 1
      Width = 350
      Height = 338
      Align = alClient
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 1
      Top = 339
      Width = 350
      Height = 35
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 1
      object Label6: TLabel
        Left = 4
        Top = 10
        Width = 60
        Height = 12
        Caption = #21457#36865#23383#31526#65306
      end
      object edtSendText: TEdit
        Left = 69
        Top = 7
        Width = 273
        Height = 20
        TabOrder = 0
        Text = 'edtSendText'
      end
    end
  end
  object Comm: TComm
    CommName = 'COM1'
    BaudRate = 4800
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    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 = 280
    Top = 16
  end
end

						