|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.11.2013, 14:06 | #1 |
Пользователь
Регистрация: 13.05.2009
Сообщений: 26
|
Принимаем смс. TComPort.
Пишу программу приёма смс через GSM модем (Хуавей 173).
Вот ключевые процедуры: Код:
10:45:49 Downloading read messages 10:45:49 [Tx]AT+CPMS="SM" 10:45:49 [Rx] +CPMS: 5,5,5,5,5,5 10:45:49 [Rx] OK 10:45:49 [Tx]AT+CMGL=1 10:45:49 [Rx] OK 10:45:49 [Tx]AT+CPMS="ME" 10:45:49 [Rx] +CPMS: 0,23,5,5,5,5 10:45:49 [Rx] OK 10:45:49 [Rx] ^MODE:3,3 10:45:54 Timeout. Команда:AT+CPMS="ME" Получается как я понимаю следующее: Послал я модему команду: AT+CPMS="ME". И тут что то пошло не так - и вышел тайм аут. Код:
TxAndWait('AT+CMGL=' + IntToStr(msgType)); Помогите разобраться с проблемой. ПС: Свойства TComPort SyncMethod := smWindowSync; BaudRate := br115200; Events := [evRxChar]; Последний раз редактировалось qZED; 04.11.2013 в 08:40. |
03.11.2013, 20:42 | #2 | |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
Цитата:
Параметр 'ME' в Memory Storage есть для телефонов Nokia, и то не гарантия. У вас данный телефон? А ежели реальный GSM-терминал, то вообще зачем.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
|
03.11.2013, 21:03 | #3 |
Пользователь
Регистрация: 13.05.2009
Сообщений: 26
|
Модем же отвечает:
10:45:49 [Tx]AT+CPMS="ME" 10:45:49 [Rx] +CPMS: 0,23,5,5,5,5 10:45:49 [Rx] OK Просто вот сейчас проанализировав логи - вижу что приходит смс, а программа ждала "ОК" Вот здесь что то не так: HandleMessage. В TxAndWait я ожидаю ОК, а HandleMessage - приходят команды. Кстати не подскажите что за команда от модема: ^BOOT ? Вроде бы исправил, тайм ауты исчезли (10 минут полет нормальный) Код:
Последний раз редактировалось qZED; 03.11.2013 в 21:07. |
03.11.2013, 21:13 | #4 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
...без понятия. Надо смотреть доки, а топик-стартер запамятовал видно, что название модема с доками у него есть, а в теме не обмолвился
Новые команды следует отсылать по выполнению предыдущих команд, для этого должен быть буфер для них.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
03.12.2014, 10:04 | #5 | |
Новичок
Джуниор
Регистрация: 03.12.2014
Сообщений: 2
|
Цитата:
this is my Email :BraveSofts13@Gmail.com Последний раз редактировалось BraveSaw; 03.12.2014 в 10:07. |
|
03.12.2014, 14:08 | #6 |
Новичок
Джуниор
Регистрация: 03.12.2014
Сообщений: 2
|
hello There :
-2 down vote favorite i'm using delphi with TComport and i want to Enum just the Present Modems that Having a Gsm Card and Auto detect them(Modems) by thier card sim Operator,and attach one by one To My TComports that i have(Exactlly i have 3 Phones with 3 Different SP Card Sim), i have Make this Example and i would like to share it for all : [SourceCode here]<https://www.dropbox.com/s/zochzfi6kbsgujx/Auto%20Detecting%20Modems%20By%20th ier%20Card%20sim%20Operator.rar?dl= 0> and the link for the required libraries wich this Example is using them is [Required to Compile]<https://www.dropbox.com/s/gsrxl7ujk6fx841/Required%20library.zip?dl=0>because i can't Past all the Source Code but if you Download this Example please Reply me Here i want to Correct the Loop of MyTimer To Make the Comport Reading all Present Modems One by One,this the Functions i use: procedure TFrmAutoDetect.ComPortDetectiveCTSC hange(Sender: TObject; OnOff: Boolean); begin CTsLabel.Caption:='event:OnCtsChang e: State: '+BoolToStr(OnOff,true) end; procedure TFrmAutoDetect.TimerDetectCardSimOp eratorsTimer(Sender: TObject); var I: Integer; begin with ComPortDetective do for i:=0 to lvDevices.Items.Count-1 do begin if Not Connected then begin Port := 'COM'+lvDevices.Items[I].SubItems.Strings[1]; Connected:=True; WriteStr('ATE1'+#13#10); WriteStr('ATE1+CSCA?'+#13#10); TimerMobilisFind.Enabled:=true; end; end; end; best regards : brave Последний раз редактировалось BraveSaw; 03.12.2014 в 14:10. Причина: Add Url |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ComPort: TComPort - ошибка при LoadSettings | StudentProg | Общие вопросы Delphi | 8 | 17.05.2012 22:56 |
TComPort | NewMember | Компоненты Delphi | 11 | 31.03.2012 09:32 |
Delphi 2009 - проблема с установкой компонента TComPort | cadil | Компоненты Delphi | 8 | 05.09.2010 03:27 |
RS232, Библиотека Игоря Павлова TComPort | xBugiman | Компоненты Delphi | 11 | 12.06.2010 13:41 |
Delphi 2009: проблема с работой компоненты TComPort | cadil | Компоненты Delphi | 10 | 01.04.2010 10:55 |