delphi - software - leer sms arduino

Enviar sms a través de AT Command actúa raro

Question

Estoy usando el componente ComPort para enviar mensajes SMS a través de un módem, el problema es que a veces obtengo sms a veces y no recibo los comandos a en el cuerpo del mensaje de texto.

Aquí está mi código:

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;

¿Qué estoy haciendo mal? ¿Y por qué cuando leo del módem recibo lo que envié en la línea tx?

Answer 1

Intente agregar un pequeño retraso entre los comandos (o espere la respuesta del módem, "OK" generalmente).