Алгоритмом для опроса GSM модема

[qZED]

Здравствуйте. Помогите пожалуйста с алгоритмом опроса GSM модемов.
Вот какая суть: научился принимать смс и звонки - для одного модема. Хотелось бы сейчас понять как можно реализовать работу с несколькими модемами.
Думаю как то так:
Создать несколько потоков(по числу модемов).
ОбъектМодем1: Проверить СМС. Проверить входящий голосовой звонок.
ОбъектМодем2: Проверить СМС. Проверить входящий голосовой звонок.
Может у кого есть идеи?

[raxp]

...собственно, а чего вы еще хотите? Вы сами выдали вариант - в потоках. Вот и приступайте, делаете буфер для своих AT команд и последовательно перебираете запросы с ожиданием ответа, дальше парсите (но это у вас уже все сделано, сами знаете).

[qZED]

Сообщение от raxp

...собственно, а чего вы еще хотите? Вы сами выдали вариант - в потоках. Вот и приступайте, делаете буфер для своих AT команд и последовательно перебираете запросы с ожиданием ответа, дальше парсите (но это у вас уже все сделано, сами знаете).

Здравствуйте. Спасибо Вам за ваши статьи. Я как раз по ваше коду и разбирался с СМС.

Дак вот думаю, мне нужен массив COM портов + чтобы они опрашивались в разных потоках - наверное как то так. И возникает вопрос: пришла команда RING - следовательно поток где опрашивались СМС - приостановить, а новый поток который будет работать с голосом - запустить...

[raxp]

...именно так.

1- создаете столько потоков, сколько обнаружите модемов. Обнаружить можно перебором портов через реестр или соответствующей ветки через SetupAPI, пример кстати есть в блоге программистов. Что это дает? Это дает универсальность вашей программе, которая динамически сама будет узнавать сколько модемов поддерживают ее (а проверить это можно опять же AT-командами).
2- в каждом потоке читаете буфер заданного COM-порта и по наличию данных делаете соответствующую реакцию. Если это RING, то посылаете AT-команду для идентификации номера звонящего, если это входящая SMS, то читаете ее и выводите туда - куда вам потребуется (то ли визуально в некую пользовательскую таблицу, то ли невизуально сохраняете ее в файл).

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

[qZED]

А как правильно переопределить метод?

TComPortActions = class
  public
    class procedure ComPortRxChar(Sender: TObject; Count: Integer);
  end;

class procedure TComPortActions.ComPortRxChar(Sender: TObject; Count: Integer);
begin
    // Читаем данные
end;

Comport[I].OnRxChar := TComPortActions.ComPortRxChar;

Так правильно будет?