ДиалАп. Как программно проверить, что модем ответил?
Что-то туплю с утреца.
Смысл такой — 2 диалаповских модема, один поднимается программой и звонит, второй — в режиме ответа. После каждого «чиха» электросети модем перестаёт отвечать. Хочется проверять его «состояние готовности» и, в случае молчания — выводить предупреждение. Вот только вопрос — как это реализовать?
Дополнительная сложность — «слушающий» модем подсоединен к прибору, а не к компу.
Смысл такой — 2 диалаповских модема, один поднимается программой и звонит, второй — в режиме ответа. После каждого «чиха» электросети модем перестаёт отвечать. Хочется проверять его «состояние готовности» и, в случае молчания — выводить предупреждение. Вот только вопрос — как это реализовать?
Дополнительная сложность — «слушающий» модем подсоединен к прибору, а не к компу.
- 0
- 02 июня 2011, 09:28
- Grass_snake
Используешь комп где стоит звонящий модем. Юзаем перл:
use Device::Modem;
my $modem = new Device::Modem( port => '/dev/ttyS1' );
if( $modem->connect( baudrate => 9600 ) ) {
print «connected!\n»;
} else {
print «sorry, no connection with serial port!\n»;
}
$modem->atsend( 'ATDT01234567'. Device::Modem::CR );
print $modem->answer();
А дальше отталкиваться от $modem->answer() строя цепочки условий
Дополнительно тут — search.cpan.org/~cosimo/Device-Modem-1.53/Modem.pm
use Device::Modem;
my $modem = new Device::Modem( port => '/dev/ttyS1' );
if( $modem->connect( baudrate => 9600 ) ) {
print «connected!\n»;
} else {
print «sorry, no connection with serial port!\n»;
}
$modem->atsend( 'ATDT01234567'. Device::Modem::CR );
print $modem->answer();
А дальше отталкиваться от $modem->answer() строя цепочки условий
Дополнительно тут — search.cpan.org/~cosimo/Device-Modem-1.53/Modem.pm
![[x]](http://sysadmin.su/templates/skin/new-jquery/images/lock.png "Закрытый блог")
Комментарии (2)
RSS свернуть / развернуть