短信的程序，那位兄台指点一二，不胜感激！！[email protected]

Question

我正在搞一个发短信的程序，不知道如何做，那位兄台指点一二，不胜感激！！

Answer 1

saien写的
例如短信息中心号码为深圳 [phone] 对方手机号码为 [phone]要发送的信息为“中”算法步骤:一、地址部分，用字符串 addr 表示1、将短信息中心号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
   即 addr = "[phone]"
   => addr = "8613800755500F"2、将奇数位和偶数位交换。
   => addr = "683108705505F0"3、将短信息中心号码前面加上字符91，91是国际化的意思
   => addr = "91683108705505F0"4、算出 addr 长度，结果除2，格式化成2位的16进制字符串，16 / 2 = 8 => "08"
   => addr = "0891683108705505F0"二、手机号码部分，用字符串 phone1、将手机号码去掉+号，看看长度是否为偶数，如果不是，最后添加F
   即 phone = "[phone]"
   => phone = "8613612345678F"2、将手机号码奇数位和偶数位交换。
   => phone = "683116325476F8"三、短信息部分，用字符串 msg 表示1、转字符串转换为Unicode代码，例如“中”的unicode代码为 4E2D，
   （好像是将中字的ASCII码分开，分别转成16进制）。因为我用DELPHI，
   请vb朋友自己找例子，网上应该许多function TfrmMain.str_Gb2UniCode( text: string ): String;
var
  i,j,len:Integer;
  cur:Integer;
  t:String;
  ws:WideString;
begin
  Result:='';
  ws := text;
  len := Length(ws);
  i := 1;
  j := 0;
  while i <= len do
  begin
      cur := ord(ws[i]);
      FmtStr(t,'%4.4X',[cur]);  //BCD转换
    Result := Result+t;
    inc(i);
    //移位计数达到7位的特别处理
    j := (j+1) mod 7;
  end;
end;   即 msg = "中"
   即 msg = str_Gb2UniCode( msg )
   => msg = "4E2D"
2、将 msg 长度除2，保留两位16进制数，即 4E2D = 4 / 2 => "02"，再加上 msg
   => msg = "024E2D"四、组合1、手机号码前加上字符串 11000D91，这是一些PDU代码，写死就行了，感兴趣可以参考相关PDU格式说明
   即 phone = "11000D91" + phone
   => 11000D9168683116325476F82、手机号码后加上 000800 和刚才的短信息内容，000800也写死就可以了
   即 phone = phone + "000800" + msg
   即 11000D9168683116325476F8 + 000800 + 024E2D 
   => phone = 11000D9168683116325476F8000800024E2D3、phone 长度除以2，格式化成2位的十进制数
   即 11000D9168683116325476F8000800024E2D => 36位 / 2 => 18五、所以要发送的内容为
   AT+CMGS=18<回车，ASCII为13>
   addr+phone+<^Z>+换行回车<13和10>
   
   即AT+CMGS=18<回车>0891683108705505F011000D91683116325476F8000800024E2D^Z换行回车你先用AT指令试是   然后在用程序实现

Answer 2

belllab的：
function Encode7bit(Src:String):String;
var Dst:String;
    i:Integer;
    CurS,NextS:Byte;
    TStr:String;
begin
  for i:=1 to Length(Src) do begin
    //当前是字符按8位分组的第8位，无需编码（8个字符已缩短为7个）
    if (i mod 8)=0 then Continue;
    
    //取当前位为数字
    TStr:=Copy(Src,i,1);
    CurS:=Ord(TStr[1]);    //当前右移位组中的第一个字符不移位 
    if (i mod 8)>1 then
      CurS:=(CurS shr ((i mod 8)-1) );    //取后一位为数字如果到了字符的结束，不取
    if i<Length(Src) then begin
      TStr:=Copy(Src,i+1,1);
      NextS:=Ord(TStr[1]);
    end else
      NextS:=0;
    //后一位移位 左移
    NextS:=(NextS shl (8-(i mod 8)));    //当前移位后加后一位移位后  转换成为十六进制
    Dst:=Dst+IntToHex(CurS+NextS,2);
  end;
  Result:=Dst;
end;function Decode7bit(Src:String):String;
var Dst:String;
    i:Integer;
    CurS,ProiS:Byte;
begin
  for i:=1 to (Length(Src) div 2) do begin
    //将当前位的十六进制转换为十进制
    CurS:=StrToInt('$'+Copy(Src,(i-1)*2+1,2)); //32->50
    //取前一位十六进制转换为十进制
    if (i mod 7)<>1 then
      ProiS:=StrToInt('$'+Copy(Src,(i-2)*2+1,2)) //C8->200
    else
      ProiS:=0;
    //前一位右移,即将当前字符前移的位取出来
    if (i mod 7)>0 then
      ProiS:=(ProiS shr (9-(i mod 7)))
    else
      ProiS:=(ProiS shr 2);
    //当前位左移除掉高位
    if (i mod 7)>0 then
      CurS:=(CurS shl (i mod 7) )
    else
      CurS:=(CurS shl 7 );
    //将第八位设置为0
    CurS:=(CurS shr 1);
    Dst:=Dst+Chr(CurS+ProiS);
    //第七个十六进制内已包含有一个完整的字符
    if (i mod 7)=0 then begin
      CurS:=StrToInt('$'+Copy(Src,(i-1)*2+1,2)); //32->50
      CurS:=(CurS shr 1);
      Dst:=Dst+Chr(CurS);
    end;
  end;//en for
  Result:=Dst;
end;

Answer 3

能不能发一份关于ＤＥＬＰＨＩ方面的资料给我呢
[email protected]