Delphi短信程序

p;                  end;           end           else if length(tmp2)<=280 then  //单条发送           begin                  //设置单PDU头                //                  // 参考pdu串   0031000B813183763091F60008A7046D4B8BD5                  //                  ATCOMMAND := ATCOMMAND+'AT+CMGS=';                  SendDatahead := SendDatahead + '0031000B81'; //默认短信中心  国内手机号                  //                  // 每两位交换构造接收手机号码串                  //                  tmp := ExchangeCode(mobile);                  SendDatahead := SendDatahead + tmp;                  SendDatahead := SendDatahead + '0008A7';                   smsDate:='';                   len := length(tmp2) div 2;                   smsDate:=smsDate+tmp2;                   lenall:=length(SendDatahead+IntToHex(len,2)+ smsDate) div 2 -1;                //   //发送短信命令  AT+CMGS=pdu串长度（十进制）                     bsSkinMemo2.Lines.Add(ATCOMMAND+IntToStr(lenall)+chr(13));                     bsSkinListBox1.Items.Add(ATCOMMAND+IntToStr(lenall)+chr(13));                //                // 发送短信Pdu串                //                 smsDate := SendDatahead +IntToHex(len,2)+ smsDate;                 smsDate := smsDate+chr(26) ;//正式进取消9999+'0039003900390039'，为防止测试时发出。                 bsSkinMemo2.Lines.Add(smsDate);                 bsSkinListBox1.Items.Add(smsDate);                 s:=smsDate;                  // 记录发送结果 发送完最后一条