Скачать: CL | DM;

Проблема с отправкой смс сообщений через com. Помогите, плиз...   Найти похожие ветки 

← →
MegaWolf510   (2006-03-04 12:35) [0]

Проверил, что моя мобилка на com5. Запускаю
прогу, всё Ок, говорит, что всё записал в порт, а мобилка молчит. Хелп!!!

Пишу прогу для отправки смс:
var h : THandle;
   buff1: String;
   writtenbytes : Cardinal;
begin
 h:= CreateFile("COM5", GENERIC_WRITE or GENERIC_READ,     FOLE_SHARE_DELETE, nil,
   OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

 buff:= "AT+CMGS="+7906здесь мой номер<CR>"#13#10"Hello World !!!"+#26;
 WriteFile(h, buff[1], length(buff1), writtenbytes, nil);
 Writeln(IntToStr(writtenbytes) + " bytes was written");

 CloseHandle(h);
end.

---

← →
Verg ©   (2006-03-04 13:02) [1]

По-моему, после "AT+CMGS="+7906здесь мой номер<CR>"
надо дождаться ">", а уже потом все остальное...

---

← →
Verg ©   (2006-03-04 13:14) [2]

И, кстати, ты думаешь <CR> - это что такое?

at+cmgs=+8905664564#13 (вот он - <CR>)

ждем ">" или "ERROR: <сообщение об ошибке>"#13#10
Если дождались ">", то выдаем текст сообщения и <SUB> (#26) и ждем либо "OK"#13#10, либо "ERROR: <сообщение об ошибке>"#13#10

<CR> - это символ перевода каретки, конкретно #13.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c