我用adp做串口通讯,改了楼主的方法试了一下,发送正常,CMD如下
cmd:='0891683108801505F011000D91683188053864F4000800044E2D'+^M;
但现在碰到一个连续发的问题,我的loop是这样写的
for i:=0 to lbPhone.Items.ItemCount then
begin
phone := lbPhone.Items+'F';
phone := SwapNumber(phone);
//高低位调换
............ //生成CMD
AdpComm1.output := 'AT+CMGS='+IntToStr(len)+^M;
//Send Message
Sleep(1000);
AdpComm1.output := CMD+^M;
//Message Body
sleep(1000);
end;
这样程序会发出AT指令,但一次发送给多人时会出现只有一两人收得到,其它都是ERROR..
返回信息如下(我用了ate1):
at+cmgs=19>0891683108801505F011000D91683188053864F4000800044E2Dat+cmgs=19ERROR> 0891683108801505F011000D91683188053864F4000800044E2D +CMGS:121 OK
哪位高手有见过些类型情况的?请帮帮忙