有人开发过Wavecom手机模块吗?用串口调试工具不知道怎么发送短信??

                            
有人开发过Wavecom手机模块吗?   
  我现在用串口调试工具或者MSComm控件  
  不知道怎么发送短信!!  
  我查阅了一些资料发送短信的AT命令为  
  AT+CMGS=???  
  但是我不知到发送的格式  
  有哪位高手?帮忙!!    
  //================================  
  //(1)手机号码的编码是否正确???  
  function   ConvertPhoneNum(strNum:   string):   string;  
  var  
      i:integer;  
      str:string;  
      A_Pchar:pchar;  
  begin  
      str:=strNum;  
      i:=length(str);  
      if   odd(i)   then  
      begin  
      str   :=   str   +   'F';  
      A_Pchar   :=   StrAlloc(40);  
      if   Transposition(pchar(str),   A_pchar)   then  
          Result   :=   StrPas(A_Pchar)  
      else  
          Result:=   'Null';  
      end  
      else  
      begin  
      A_Pchar   :=   StrAlloc(40);  
      if   Transposition(PChar(str),   A_pchar)   then  
  Result   :=   StrPas(A_Pchar)  
      else  
          Result   :=   'Null';  
      end;  
  end;  
  //================================  
  //(2)这种发送模式正确吗?  
   
  //   Text模式编码  
  //  
  procedure   TfrmMain.SendInEncodeText(sms,   mobile:   string);  
  var  
                  strOut   :   string;                 //   定义成string型,一个字符用一个字节来表示  
  begin  
                  strOut   :=   'AT+CMGS="'   +   mobile   +   '"'   +   chr(13);     //   chr(13)是回车  
                  MSComm.Output   :=   strOut;  
                  strOut   :=   sms   +   chr(26);                 //   chr(26)   是   ctrl   +   z  
                  MSComm.Output   :=   strOut;  
  end;

查看回复