unit1.~dfm

用delphi编的sms源代码

object FrmDemo: TFrmDemo
  Left = 472
  Top = 309
  Width = 565
  Height = 421
  Caption = #30701#20449#25511#20214'Demo'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label7: TLabel
    Left = 8
    Top = 228
    Width = 48
    Height = 12
    Caption = #25552#31034#20449#24687
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 4
    Width = 553
    Height = 69
    Caption = #36830#25509#35774#22791
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 20
      Width = 48
      Height = 12
      Caption = #35774#22791#31867#22411
    end
    object Label2: TLabel
      Left = 8
      Top = 44
      Width = 72
      Height = 12
      Caption = #30701#20449#20013#24515#21495#30721
    end
    object Label3: TLabel
      Left = 208
      Top = 20
      Width = 48
      Height = 12
      Caption = #36895#29575#36873#25321
    end
    object Label4: TLabel
      Left = 208
      Top = 44
      Width = 48
      Height = 12
      Caption = #20018#21475#36873#25321
    end
    object cboMobileType: TComboBox
      Left = 84
      Top = 16
      Width = 121
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 0
      Text = 'Wavecom'#27169#22359
      Items.Strings = (
        #26631#20934#25163#26426
        'Wavecom'#27169#22359
        'Nokia'#25163#26426
        #35199#38376#23376#25163#26426)
    end
    object txtCenterNo: TEdit
      Left = 84
      Top = 40
      Width = 121
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 1
      Text = '8613800100500'
    end
    object cboRate: TComboBox
      Left = 260
      Top = 16
      Width = 201
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      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'
        '230400,n,8,1')
    end
    object cboComPort: TComboBox
      Left = 260
      Top = 40
      Width = 201
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 3
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10')
    end
    object cmdConnect: TButton
      Left = 476
      Top = 16
      Width = 69
      Height = 21
      Caption = #36830#25509
      TabOrder = 4
      OnClick = cmdConnectClick
    end
    object cmddisConnect: TButton
      Left = 476
      Top = 40
      Width = 69
      Height = 17
      Caption = #26029#24320
      TabOrder = 5
      OnClick = cmddisConnectClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 76
    Width = 553
    Height = 145
    Caption = #21457#30701#20449
    TabOrder = 1
    object Label5: TLabel
      Left = 20
      Top = 24
      Width = 48
      Height = 12
      Caption = #25163#26426#21495#30721
    end
    object Label6: TLabel
      Left = 228
      Top = 28
      Width = 54
      Height = 12
      Caption = ' '#30701#20449#20869#23481
    end
    object txtMobileNo: TEdit
      Left = 72
      Top = 20
      Width = 149
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
      OnKeyPress = txtMobileNoKeyPress
    end
    object txtMsg: TMemo
      Left = 228
      Top = 44
      Width = 317
      Height = 69
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object lstMobileNo: TListBox
      Left = 8
      Top = 44
      Width = 213
      Height = 69
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 12
      TabOrder = 2
    end
    object chkChinese: TCheckBox
      Left = 232
      Top = 124
      Width = 65
      Height = 13
      Caption = #20013#25991#30701#20449
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object chkNeedReport: TCheckBox
      Left = 304
      Top = 124
      Width = 77
      Height = 13
      Caption = #29366#24577#25253#21578
      TabOrder = 4
    end
    object cmdSend: TButton
      Left = 472
      Top = 120
      Width = 69
      Height = 17
      Caption = #24320#22987#21457#36865
      TabOrder = 5
      OnClick = cmdSendClick
    end
  end
  object txtinfo: TMemo
    Left = 4
    Top = 244
    Width = 545
    Height = 109
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 2
  end
  object cmdClose: TButton
    Left = 472
    Top = 360
    Width = 77
    Height = 21
    Caption = #20851#38381
    TabOrder = 3
    OnClick = cmdCloseClick
  end
  object SMS: TSMS
    Left = 44
    Top = 356
    Width = 33
    Height = 33
    TabOrder = 4
    OnMsgReceived = SMSMsgReceived
    OnReportReceived = SMSReportReceived
    OnSendComplete = SMSSendComplete
    OnError = SMSError
    ControlData = {
      93B2000048000000030008000BF25747200000005F0065007800740065006E00
      7400780069030000030008000AF25747E0FFFFFF5F0065007800740065006E00
      7400790069030000}
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 96
    Top = 364
  end
end