通过AT命令发送短信很奇怪

时间:2012-05-22 09:47:23

标签: delphi sms serial-port

我正在使用ComPort组件通过调制解调器发送短信,问题是有时我得到短信有时候有时候我没有收到短信正文中的at命令。

这是我的代码:

procedure SendSmsCosmote(numar,text : string);
const
  buf : Byte = 26;
begin
  Form1.ComPort1.WriteStr('AT+CMGF=1'+#13#10);
  Form1.ComPort1.WriteStr('AT+CMGS="'+ numar + '"'+#13);
  Form1.ComPort1.WriteStr(text);
  Form1.ComPort1.Write(buf,1);
end;

我做错了什么?为什么当我从调制解调器读取时,我得到了我在tx线上发送的内容?

1 个答案:

答案 0 :(得分:1)

尝试在命令之间添加轻微延迟(或等待调制解调器回复,通常“确定”)。