Проблема с отправкой смс сообщений через 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>"
надо дождаться ">", а уже потом все остальное...

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

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

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

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

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