delphi - 通过 AT 命令发送短信行为怪异

Question

我正在使用 ComPort 组件通过调制解调器发送 SMS 消息，问题是有时我会收到短信，有时我会收到短信正文中的 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 线上发送的内容？

Answer 1

尝试在命令之间添加轻微的延迟（或等待调制解调器回复，通常是“OK”）。