Delphi短信程序

nbsp;  bsSkinListBox1.Items.Add('AT+CMGF=0' + chr(13));           bsSkinListBox1.Items.Add( 'AT+CSCA="' + SMSC + '"' + chr(13));            if length(tmp2)>280 then           begin                 //设置多PDU头                  //                  // 参考pdu串   0051000B813183763091F60008A7050003XXXXXX-----                  //                  ATCOMMAND := ATCOMMAND+'AT+CMGS=';                  SendDatahead := SendDatahead + '0051000B81'; //默认短信中心  国内手机号                  //                  // 每两位交换构造接收手机号码串                  //                  tmp := ExchangeCode(mobile);                  SendDatahead := SendDatahead + tmp;                  SendDatahead := SendDatahead + '0008A7';                  countD:=RoundTO(length(tmp2)/268,-2);                  smscount:=Ceil(countD);                   for i:=0 to (smscount)-1 do    //拆分发送 取268长短信，留三个汉字位写报文头                   begin                   smsDate:='';                   tmp3:='';                   tmp3:=copy(tmp2,268*i+1, 268);                   tmp3:='050003'+IntToHex(SMSID,2)+IntToHex(smscount,2)+IntToHex(i+1,2)+tmp3;         //组合用户数据报                   len := length(tmp3) div 2;                   smsDate:=smsDate+tmp3;                   lenall:=length(SendDatahead+IntToHex(len,2)+ smsDate) div 2 -1;                    { if i>0 then//补发一次短信中心                        begin                        bsSkinListBox1.Items.Add('AT+CMGF=0' + chr(13));          &nb