Привет всем.
Пытаюсь написать программку для работы с мобильным телефоном через IrDA порт: телефонная книга, календарь и прочая ерунда. Телефон Siemens S40 (возможно проблема именно в этом, хотя не уверен.)
Собственно в чем трабла:
Comm.CommPort = 4 'красный глаз вешает телефон на COM 4
Comm.Settings = "9600,N,8,1"
Comm.Handshaking = comNone
Comm.InBufferSize = 1024
Comm.OutBufferSize = 512
Comm.RThreshold = 0
Comm.SThreshold = 0
Comm.InputLen = 0
Comm.PortOpen = True
'-----
tim = Timer
Comm.Output = "AT+C#SMDE=1" & Chr$(13) & Chr$(10)
tim = Timer
1 DoEvents
If tim + 3 > Timer Then GoTo 1
' подаем в порт АТ команду телефона (команда специфичная, но это не столь важно. Можно подать и стандартную "АТ")
Телефон на эту команду реагирует четко, что я могу пронаблюдать на его дисплее (меняется картинка), в течение 3-х секунд ждем ответ от модема но...
MsgBox Comm.Input
и сразу ощибка: Run-Time Error 8020
Менял время, увеличивал, уменьшал... Менял АТ команды... Ничего реакция однозначная. В модем инфа поступает, обратно - нивкакую.
Попробовал проделать тоже самое со стандартным модемом - все в порядке. Обратился к телефону стандартным HyperTerminal - все в порядке - команды принемаются - отклик есть.
Получается проблема только в VB. Как ее пофиксить никак не пойму.
VB 6.0 SP4 (на всякий пожарный).