mainfrm.dfm

SPCOMM串口通信控件的运用做的软件

object frmComm: TfrmComm
  Left = 221
  Top = 231
  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 = []
  Icon.Data = {
    0000010001002020000001000800A80800001600000028000000200000004000
    000001000800000000000000000000000000000000000000000000000000FFFF
    FF00F6F6F600CCCCCC00B2B1B0009999990092919100DCDBDB00FDFCFC00FEFE
    FE00E6E5E400C2C2C200413F3E002723220074727100817D7C0052504F001C1A
    1900666666003333330027170F00150F0C0000000000EFEEEE003C343100F48A
    5B00D9734C009966330071402B008E503500E87F540046291C00CC663300E0D2
    CC00F3C1AE00DE957D00CC666600FBF0ED002F1E1600C74F2B00FBFAFA00CEBD
    B600FDFBFB00FFCCCC00FCE1D500F5966D00FBE8E000FEFDFC00F7A47F00F8B2
    940066333300FFCC990000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000010203040503060107080000000000000000000000
    00000109060606060606020A050B0C0D0D040A06060606060606090100000000
    000009030404050405050E0F100F0B0B0F0F110E050405040404030900000000
    000006040D0D0D0D0D110F0F0F06090F0B120B0F11110D0D0D0D050600000000
    000013131313131313141511160700090F171414141313131313040600000000
    00001318181818191A0F170200000000090F171B1C1A191D1813040600000000
    00001318181D191A1E0D160700000000001611171B1C1A191D13040600000000
    0000131818191C130C02070808000000070816110C1B1C1A1913050600000000
    00081318191F1E11200701212219232221240716110C1B1C1A14050600000000
    000813191C25170608211D19262626261F232108160E0C1B1C140E0208000000
    0027131F1E0B2827211D1F1F2626262626261F2107160E131B14110316070008
    0109141E0F06292A1D191F1F262626262626261F2108160E14140F0502010001
    0603141003272B2C1D1919191F1F262626262626232D070105140B0E04020816
    0A110B09072E21181D1D1D19191F1F1F262626261F210000010E140F0503090A
    0B10032700002F2C1818181D1D19191F1F26262626220800001604140D04030E
    0D06010000002C2C2C2C181818181D191F1F1F261F2300000000010A10030910
    0207000000002F2F2F2F2F2F2C2C181D1D19191F1F1D00000008070610040011
    100927000000302F2F2F2F2F2F2C2C18181D1919192200000807031011060016
    0E0C022E00002130303030302F2F2F2C18181D1D1D21002E2920110D01080000
    070E14062E002D213030303030302F2C2C18181D2C2D08270310120200000000
    002714102029082B2130303030302F2F2C2C182C2A082E0911140E0600000000
    0000131C10202E082B2130303030302F2F2C2F2A2E2928173113050600000000
    000013181C102029082B21323030302F302F2A2E2E06251E1913040600000000
    00001318181A102027292D2A21303030212B2E2920111B1D1813040600000000
    0000131818181C13202708000000000000002920122519181813050600000000
    000013181818181A10202900000000000029160E311918181813040600000000
    00001318181818181A132827000000002E20170C191818181813030900000000
    0000131818181818181A102827000007160D1E1F181818181813090100000000
    000013131313131313131410040108020F141313131313131313000000000000
    00000000000000000000000A100A160D12030800000000000000000000000000
    0000000000000000000000000A0C110F09070000000000000000000000000000
    00000000000000000000000000020B0308080000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  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>
  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 = 'The Sending Text...'
      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