Работа с смс через USB модем

Posted by Chas under Delphi

как проверять доставлено смс или нет (статус). как читать входящие смс и потом их удалять. И как работать с USSD.

raxp
Читаем стандарт (рекомендую «AT Commands Interface Guide. – Wavecom, 2002, version 005»):

If the SMS message retrieved is an SMS message received from the SMS center (i.e. incoming SMS message), the information response of the +CMGR AT command in SMS text mode has the following format: (Optional fields are enclosed in square brackets.)

+CMGR: message_status,address,[address_text],

service_center_time_stamp[,address_type,TPDU_first_octet,protocol_identifier,data_coding_scheme,service_center_address,

service_center_address_type,

sms_message_body_length]sms_message_body

If the SMS message retrieved is an SMS message that you wrote to the message storage area for sending out (i.e. outgoing SMS message), the format is: (Optional fields are enclosed in square brackets.)

+CMGR: message_status,address,[address_text][,address_type,TPDU_first_octet,protocol_identifier,data_coding_scheme,

validity_period],service_center_address,service_center_address_type,sms_message_body_length]sms_message_body

For incoming SMS messages:
+CMGR: «REC READ»,»+85291234567″,,»07/04/20,10:08:02+32″,145,4,0,0,»+8529000 0000″,145,49
It is easy to read text messages via AT commands.

For outgoing SMS messages:
+CMGR: «STO SENT»,»+85291234567″,,145,17,0,0,16 7,»+85290000000″,145,36
A simple demo of SMS text messaging.

Кроме AT+CMGR, есть команды чтения истории приходящих… при отсылке:
‘AT+CMGL=»STO UNSENT»‘ парсим ответ с этим же запросом — Исходящие
‘AT+CMGL=»STO SENT»‘ парсим ответ с этим же запросом — Отправленные
‘AT+CMGL=»REC READ»‘ парсим ответ с этим же запросом — Прочитанные
‘AT+CMGL=»REC UNREAD»‘ парсим ответ с этим же запросом — Непрочитанные
‘AT+CMGL=»ALL»‘ парсим ответ с этим же запросом — Все

Если после отправки SMS получен ответ:
‘+CMGS’ — Cообщение отправлено, также можно читать непрочитанную:
‘AT+CMGL=0’

Отчет о доставке настраивается в самом телефоне (может быть включено, может быть выключено), в этом случае просто читаем периодически входящие (непрочитанные) SMS и парсим его.

Удаление SMS
‘AT+CMGD=1’ — удалить 1-ю SMS (более подробно в стандарте)

Баланс счета
Запрос (код проверки счета у разных операторов разный):

cbuf.Add('ATD*111#;' + #13 + #10); // баланс счета: +CUSD: 2

Парсим ответ:

function selu(s: string): string; // счет

var i:integer;

begin

 for i:= 1 to length(s) do

  if copy(s,i,5)='+CUSD' then result:= copy(s, i+7, length(s))

end;

	формат SMS-PDU.pdf (22.0 Кб)
	OPC клиент-сервер своими руками. Часть 3 или… Интеграция GSM модема в любую SCADA (Минск).pdf (562.0 Кб)
	AT Commands Interface Guide. – Wavecom, 2002, version 005.pdf (1.56 Мб)

тема на форуме

Похожие статьи

• Несколько USB-модемов одновременно
• Увеличение скорости принятия данных usb 3G модемов