demounit.~dfm

使用SMSControl串口收发短信 - 特别提示!!由于本控件使用了微软公司的COMM32.OCX

object frmDemo: TfrmDemo
  Left = 235
  Top = 177
  Width = 544
  Height = 335
  Caption = #30701#20449#25511#20214#20351#29992#31034#20363'(Delphi 7.0)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object SMS: TSMS
    Left = 0
    Top = 266
    Width = 33
    Height = 33
    TabOrder = 0
    Visible = False
    OnMsgReceived = SMSMsgReceived
    ControlData = {
      93B200006C000000030008000BF25747200000005F0065007800740065006E00
      7400780069030000030008000AF25747200000005F0065007800740065006E00
      740079006903000002000A00BF15E4FFC0FFFFFF6D006F00620069006C006500
      740079007000650001000000}
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 529
    Height = 77
    Caption = #36830#25509#25163#26426
    TabOrder = 1
    object Label1: TLabel
      Left = 32
      Top = 24
      Width = 48
      Height = 13
      Caption = #25163#26426#31867#22411
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 72
      Height = 13
      Caption = #30701#20449#20013#24515#21495#30721
    end
    object Label3: TLabel
      Left = 216
      Top = 24
      Width = 48
      Height = 13
      Caption = #36895#29575#36873#25321
    end
    object Label4: TLabel
      Left = 216
      Top = 48
      Width = 48
      Height = 13
      Caption = #20018#21475#36873#25321
    end
    object txtCenterNo: TEdit
      Left = 84
      Top = 44
      Width = 121
      Height = 21
      TabOrder = 0
      Text = '8613800100500'
    end
    object cboMobileType: TComboBox
      Left = 84
      Top = 20
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = #26631#20934#25163#26426
      Items.Strings = (
        #26631#20934#25163#26426
        'Wavecom'#27169#22359
        'Nokia'#25163#26426
        #35199#38376#23376#25163#26426)
    end
    object cboRate: TComboBox
      Left = 268
      Top = 20
      Width = 177
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = '9600,n,8,1'
      Items.Strings = (
        '9600,n,8,1'
        '19200,n,8,1'
        '38400,n,8,1'
        '57600,n,8,1'
        '115200,n,8,1')
    end
    object cboSMSPort: TComboBox
      Left = 268
      Top = 44
      Width = 81
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5')
    end
    object chkAutoRec: TCheckBox
      Left = 356
      Top = 48
      Width = 89
      Height = 13
      Caption = #33258#21160#25509#25910
      Checked = True
      State = cbChecked
      TabOrder = 4
    end
    object cmdConnect: TButton
      Left = 452
      Top = 20
      Width = 65
      Height = 21
      Caption = #36830#25509
      TabOrder = 5
      OnClick = cmdConnectClick
    end
    object cmdDisConnect: TButton
      Left = 452
      Top = 48
      Width = 65
      Height = 21
      Caption = #26029#24320
      TabOrder = 6
      OnClick = cmdDisConnectClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 84
    Width = 269
    Height = 185
    Caption = #21457#30701#20449
    TabOrder = 2
    object Label5: TLabel
      Left = 12
      Top = 46
      Width = 48
      Height = 13
      Caption = #25163#26426#21495#30721
    end
    object Label6: TLabel
      Left = 12
      Top = 66
      Width = 48
      Height = 13
      Caption = #30701#20449#20869#23481
    end
    object txtMobileNo: TEdit
      Left = 68
      Top = 45
      Width = 189
      Height = 21
      TabOrder = 0
    end
    object txtmsg: TMemo
      Left = 68
      Top = 68
      Width = 189
      Height = 85
      Lines.Strings = (
        '')
      TabOrder = 1
    end
    object cmdSend: TButton
      Left = 184
      Top = 156
      Width = 77
      Height = 21
      Caption = #21457#36865
      TabOrder = 2
      OnClick = cmdSendClick
    end
    object chkChinese: TCheckBox
      Left = 12
      Top = 20
      Width = 129
      Height = 17
      Caption = #20013#25991#30701#20449
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
  end
  object GroupBox3: TGroupBox
    Left = 276
    Top = 84
    Width = 257
    Height = 185
    Caption = #25509#25910#30701#20449
    TabOrder = 3
    object txtrec: TMemo
      Left = 8
      Top = 20
      Width = 241
      Height = 157
      Lines.Strings = (
        '')
      TabOrder = 0
    end
  end
end