пример Отправки и Получения sms в MidletPascal.
Для отправки используем модифицированную стандартную библиотеку MP (удалил строку добавляющуюся к номеру: destination = s; //+ ":276"
, поэтому после компиляции переупаковываем в проект наш модифицированный SM.class (в примере просто удаляем из архива файл SM.class меньшего размера).
Отправка sms так же как описано в help'е MP, если планируется получать стандартным ПО телефона, то просто пишем "sms://+79180000000".
Если нужно получить сообщение мидлетом, то дописываем к адресу порт на котором слушает мидлет. Напр: "sms://+79180000000:5151". Говорится, что если сообщение пришло, а мидлет не запущен, то его принимает ПО телефона, но на motorola такие сообщения почему-то не появляются в списке принятых.
____
Для прослушивания входящих сообщений на определенном порту используем Lib_smsserver.class вот список подпрограмм:
function start('sms://:5151', 9) : integer; - запускает сервер, где 5151 - номер порта, 9 - символ разделитель сообщений
--
function staus : integer; - статус сервера
0 - не запущен
1 - стартует
2 - слушает
3,4 - поступило сообщение, (4-в стадии получения)
--
function getmsg : string; - получение пришедших sms, разделенных символом разделителем (в нашем случае chr(9)).
--
stop - остановить сервер, когда сервер остановится function status=0