ПМ01 определить входящий вызов

[PavelGO]

Подскажите, пожалуйста, возможно ли понять из ПЛК звонит ли кто в данный момент и определить номер звонящего.
Я так понимаю после поступления 'RING' послать 'AT+CLCC' и разобрать номер из принятой после этого строки из буфера? Я прав?
Модемы пока не пришли и опыто работы с gsm 0, поэтому пока хочу накидать программу примерную.

[capzap]

AT+CLCC$R$N вроде так, а вообще послушайте постоянно порт и сделайте вызов и увидите какой вывод будет в терминале

[PavelGO]

Спасибо. Там и будет видно. Подскажите еще вот что:
Если я буду ждать ответа от модема после команды, не перезагрузится ли ПЛК из за превышения времени цикла. Сейчас стоит 10. Сей час он опрашивает модули и передаёт параметры и аварии в самописную скаду, что уже вызывает некоторые задержки.
Вот и вопрос: Вызывать целиком проверку входящих и отправку смс в отдельных функциях или выполнять параллельно с основной программой.
На сколько быстро, по вашему опыту, модем отвечает на команды?

[capzap]

http://www.owen.ru/forum/showthread.php?t=13029
прочтите про эту библиотеку: в первых трех постах - сама, описание и примеры. Кроме сообщений она проверяет наличие входящих звонков

[PavelGO]

читал. факт поступления вызова есть, но номера нет.По этому syslibcom и хочу использовать.

[capzap]

я команду назвал. А на какой библиотеке Вы сделаете, это лично Ваше дело. Суть проста, открыли порт, сделали запрос и начинаете каждый цикл ждать ответ, как что то приходит, преобразуете в строку и анализируете что получилось

[PavelGO]

С отправкой смс syslibcom разобрался.Спасибо. Но
Почему то на запрос CLLC сначала приходи в буффер
'$R$N+CLCC: '
потом
',"+7953950'
т.е. кусками.
Так и должно быть? По справочнику команд вроде строкой должно быть.
Как считаете?
Считываю как в примере:
sz:=SysComRead(com_num,ADR(rcvBUF),1024,0);

IF sz<>0 THEN (*&#247;&#242;&#229;&#237;&#232;&#229; &#239;&#238;&#240;&#242;&#224;*)
rcvStr:='';
(*&#197;&#241;&#235;&#232; &#247;&#242;&#238; &#242;&#238; &#239;&#240;&#232;&#248;&#235;&#238; &#238;&#242; &#236;&#238;&#228;&#229;&#236;&#224;*)
FOR iter:=0 TO sz-1 DO
a_char:=ADR(rcvBuf[iter]);
rcvStr:=CONCAT(rcvStr,LEFT(a_char^,1));
IF LEN(rcvStr)>250 THEN
rcvStr:=DELETE(rcvStr,1,1);
END_IF
END_FOR
obmen:=CONCAT(obmen,rcvStr);

[Olegis]

С отправкой смс syslibcom разобрался.Спасибо. Но
Почему то на запрос CLLC сначала приходи в буффер
'$R$N+CLCC: '
потом
',"+7953950'
т.е. кусками.
Так и должно быть? По справочнику команд вроде строкой должно быть.
Как считаете?

Все правильно у вас приходит, у меня также работает. Приходит не кусками,а так задумано в ответе, как бы второй строкой. Не заморачивайтесь, просто обрабатывайте в своей программе.

[PavelGO]

Остальные ответы он тоже присылает кусками:
Например:K$R$N
В строке ОК уже нет и предыдущий пример уже неверно работает.
Может длина буфера где задаётся? Либо алгоритм усложнять придется.

Дело всё было в не знании особенностей работы с портами. Модем не успевает передать в порт, а я его уже считываю.

[PavelGO]

Реализовал всё что надо. Осталось проверять баланс. Но модем ничего кроме ок на команды не отвечает.
Пробовал 'AT+CUSD=1,"*105#",15$R$N',
'ATD*105#$R$N',
'ATD#105#$R$N'
Оператор Теле2.
Знает кто дельную команду?