Gửi sms qua AT Lệnh hoạt động lạ

Question

Tôi đang sử dụng thành phần ComPort để gửi tin nhắn SMS qua modem, vấn đề là thỉnh thoảng tôi nhận được tin nhắn đôi khi không nhận được lệnh trong phần nội dung của tin nhắn.

Đây là mã của tôi:

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; 

Tôi đang làm gì sai? Và tại sao khi tôi đọc từ modem tôi nhận được những gì tôi đã gửi trên dòng tx?

Answer 1

Thử thêm độ trễ nhỏ giữa các lệnh (hoặc đợi modem trả lời, "OK" thường).