G
geniusq
Unregistered / Unconfirmed
GUEST, unregistred user!
一个连续发的问题，我的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
哪位高手有见过些类型情况的？请帮帮忙
我用的是TurboPower控件,里面好像没有地方可以设置阻塞的属性...郁闷
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
哪位高手有见过些类型情况的？请帮帮忙
我用的是TurboPower控件,里面好像没有地方可以设置阻塞的属性...郁闷