ufrmmain.dfm

delphiSMS接受发送

object frmMain: TfrmMain
  Left = 203
  Top = 224
  Width = 714
  Height = 447
  Caption = 'pdu'#26684#24335#29983#25104
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 24
    Width = 163
    Height = 13
    Caption = #30701#20449#20013#24515#21495#30721#65288#19981#24102'+'#21495#65289#65306
  end
  object Label2: TLabel
    Left = 328
    Top = 24
    Width = 65
    Height = 13
    Caption = #25163#26426#21495#30721#65306
  end
  object Label3: TLabel
    Left = 16
    Top = 64
    Width = 65
    Height = 13
    Caption = #21457#36865#20869#23481#65306
  end
  object Label4: TLabel
    Left = 16
    Top = 96
    Width = 65
    Height = 13
    Caption = #35745#31639#32467#26524#65306
  end
  object Label5: TLabel
    Left = 16
    Top = 128
    Width = 653
    Height = 26
    Caption = 
      #23558#35745#31639#32467#26524'CTRL+C'#22797#21046#65288#37324#38754#26377#19981#21487#35265#23383#31526#22914#22238#36710#38190#31561#65289#65292#25171#24320#36229#32423#32456#31471#65292#36873#25321#32534#36753#33756#21333#20013#30340#31896#36148#21040#20027#26426#21363#21487#33258#21160#21457#36865#65292#27880#24847#65292#39318#20808#35201#20445#35777 +
      #36229#32423#32456#31471#35774#32622#27491#30830#65292#24182#19988#36755#20837'AT'#21518#65292#36820#22238'OK'#12290' --OICQ: 86804    LiBoy  2003-01-23'
    WordWrap = True
  end
  object edt_center: TEdit
    Left = 184
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 0
    Text = '8613800755500'
  end
  object edt_phone: TEdit
    Left = 400
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 1
    Text = '13612345678'
  end
  object edt_msg: TEdit
    Left = 88
    Top = 56
    Width = 521
    Height = 21
    TabOrder = 2
    Text = #20320#22909#21527#65311'abcde'
  end
  object edt_result: TEdit
    Left = 88
    Top = 88
    Width = 521
    Height = 21
    TabOrder = 3
  end
  object btn_make: TButton
    Left = 616
    Top = 56
    Width = 75
    Height = 25
    Caption = #29983#25104
    TabOrder = 4
    OnClick = btn_makeClick
  end
  object Memo1: TMemo
    Left = 16
    Top = 168
    Width = 673
    Height = 241
    Lines.Strings = (
      #20363#22914#30701#20449#24687#20013#24515#21495#30721#20026#28145#22323' [phone] '
      ''
      #23545#26041#25163#26426#21495#30721#20026' [phone]'
      ''
      #35201#21457#36865#30340#20449#24687#20026#8220#20013#8221
      ''
      #31639#27861#27493#39588':'
      ''
      #19968#12289#22320#22336#37096#20998#65292#29992#23383#31526#20018' addr '#34920#31034
      ''
      '1'#12289#23558#30701#20449#24687#20013#24515#21495#30721#21435#25481'+'#21495#65292#30475#30475#38271#24230#26159#21542#20026#20598#25968#65292#22914#26524#19981#26159#65292#26368#21518#28155#21152'F'
      '   '#21363' addr = "[phone]"'
      '   => addr = "8613800755500F"'
      ''
      '2'#12289#23558#22855#25968#20301#21644#20598#25968#20301#20132#25442#12290
      '   => addr = "683108705505F0"'
      ''
      '3'#12289#23558#30701#20449#24687#20013#24515#21495#30721#21069#38754#21152#19978#23383#31526'91'#65292'91'#26159#22269#38469#21270#30340#24847#24605
      '   => addr = "91683108705505F0"'
      ''
      '4'#12289#31639#20986' addr '#38271#24230#65292#32467#26524#38500'2'#65292#26684#24335#21270#25104'2'#20301#30340'16'#36827#21046#23383#31526#20018#65292'16 / 2 = 8 => "08"'
      '   => addr = "0891683108705505F0"'
      ''
      #20108#12289#25163#26426#21495#30721#37096#20998#65292#29992#23383#31526#20018' phone'
      ''
      '1'#12289#23558#25163#26426#21495#30721#21435#25481'+'#21495#65292#30475#30475#38271#24230#26159#21542#20026#20598#25968#65292#22914#26524#19981#26159#65292#26368#21518#28155#21152'F'
      '   '#21363' phone = "[phone]"'
      '   => phone = "8613612345678F"'
      ''
      '2'#12289#23558#25163#26426#21495#30721#22855#25968#20301#21644#20598#25968#20301#20132#25442#12290
      '   => phone = "683116325476F8"'
      ''
      #19977#12289#30701#20449#24687#37096#20998#65292#29992#23383#31526#20018' msg '#34920#31034
      ''
      '1'#12289#36716#23383#31526#20018#36716#25442#20026'Unicode'#20195#30721#65292#20363#22914#8220#20013#8221#30340'unicode'#20195#30721#20026' 4E2D'#65292
      '   '#65288#22909#20687#26159#23558#20013#23383#30340'ASCII'#30721#20998#24320#65292#20998#21035#36716#25104'16'#36827#21046#65289#12290#22240#20026#25105#29992'DELPHI'#65292
      '   '#35831'vb'#26379#21451#33258#24049#25214#20363#23376#65292#32593#19978#24212#35813#35768#22810
      ''
      'function TfrmMain.str_Gb2UniCode( text: string ): String;'
      'var'
      '  i,j,len:Integer;'
      '  cur:Integer;'
      '  t:String;'
      '  ws:WideString;'
      'begin'
      '  Result:='#39#39';'
      '  ws := text;'
      '  len := Length(ws);'
      '  i := 1;'
      '  j := 0;'
      '  while i <= len do'
      '  begin'
      '      cur := ord(ws[i]);'
      '      FmtStr(t,'#39'%4.4X'#39',[cur]);  //BCD'#36716#25442
      '    Result := Result+t;'
      '    inc(i);'
      '    //'#31227#20301#35745#25968#36798#21040'7'#20301#30340#29305#21035#22788#29702
      '    j := (j+1) mod 7;'
      '  end;'
      'end;'
      ''
      '   '#21363' msg = "'#20013'"'
      '   '#21363' msg = str_Gb2UniCode( msg )'
      '   => msg = "4E2D"'
      ''
      ''
      '2'#12289#23558' msg '#38271#24230#38500'2'#65292#20445#30041#20004#20301'16'#36827#21046#25968#65292#21363' 4E2D = 4 / 2 => "02"'#65292#20877#21152#19978' msg'
      '   => msg = "024E2D"'
      ''
      #22235#12289#32452#21512
      ''
      '1'#12289#25163#26426#21495#30721#21069#21152#19978#23383#31526#20018' 11000D91'#65292#36825#26159#19968#20123'PDU'#20195#30721#65292#20889#27515#23601#34892#20102#65292#24863#20852#36259#21487#20197#21442#32771#30456#20851'PDU'#26684#24335#35828#26126
      '   '#21363' phone = "11000D91" + phone'
      '   => 11000D9168683116325476F8'
      ''
      '2'#12289#25163#26426#21495#30721#21518#21152#19978' 000800 '#21644#21018#25165#30340#30701#20449#24687#20869#23481#65292'000800'#20063#20889#27515#23601#21487#20197#20102
      '   '#21363' phone = phone + "000800" + msg'
      '   '#21363' 11000D9168683116325476F8 + 000800 + 024E2D '
      '   => phone = 11000D9168683116325476F8000800024E2D'
      ''
      '3'#12289'phone '#38271#24230#38500#20197'2'#65292#26684#24335#21270#25104'2'#20301#30340#21313#36827#21046#25968
      '   '#21363' 11000D9168683116325476F8000800024E2D => 36'#20301' / 2 => 18'
      ''
      #20116#12289#25152#20197#35201#21457#36865#30340#20869#23481#20026
      '   AT+CMGS=18<'#22238#36710#65292'ASCII'#20026'13>'
      '   addr+phone+<^Z>+'#25442#34892#22238#36710'<13'#21644'10>'
      '   '
      
        '   '#21363'AT+CMGS=18<'#22238#36710'>0891683108705505F011000D91683116325476F8000800' +
        '024E2D^Z'#25442#34892#22238#36710)
    ScrollBars = ssVertical
    TabOrder = 5
  end
end