Invia SMS tramite AT Comando funziona strano

Question

Sto usando il componente ComPort per inviare messaggi SMS tramite un modem il problema è che a volte ottengo sms a volte non a volte ottengo i comandi at nel corpo del messaggio di testo.

Ecco il mio codice:

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; 

Che cosa sto facendo di sbagliato? E perché quando leggo dal modem ottengo ciò che ho inviato sulla linea tx?

Answer 1

Provare ad aggiungere un leggero ritardo tra i comandi (o attendere la risposta del modem, "OK" in genere).