Передача в ком порт данных

[Rouslan]

Здравствуйте.
Столкнулся с задачей в которой нужно открыть ком порт, установить модем в голосовой режим а после отправить в порт *.wav (ADPCM, 22050 Hz, 4 bits, mono).
Все понятно кроме передачи данных в порт.
Не могли бы помочь, перерыл весь инет, ничего дельного не нашел, только готовые ocx-ы которые не пашут или глючат.

MSComm1.CommPort = 1
MSComm1.Output = "at+fclass=8" & vbCr
MSComm1.Output = "at+vsm=130,8000,0,0" & vbCr
MSComm1.Output = "at+vsd=128,50" & vbCr
MSComm1.Output = "at+vls=5" & vbCr
MSComm1.Output = "atdt777" & vbCr ' набираемый номер телефона
MSComm1.Output = "at+vtx" & vbCr

а дальше нужно передать в порт данные (*.wav), но КАКИМ ОБРАЗОМ ?

кстати когда посылаю MSComm1.Output = "at+vtx" & vbCr модем отключается от линии.
Люди, помогите, месяц бьюсь ничего не могу сделать.

[Antonariy]

Знаю, как послать звук, соединив проводком lineout звуковой карты и микрофон модема. Такой вариант подходит?

[Rouslan]

В принципе пишу автоответчик, проводок это конечно хорошо но хотелось бы чтоб работала прога без лишних хлопот для пользователя. А за идею спасибо. Если ответов будет 0, то наверно так и сделаю

[Antonariy]

Без проводка ищи хелп по waveOutWrite Lib "winmm.dll". Нужно перебрать доступные звуковые линии, определить модемную и применить к ней эту функцию. Больше ничего по сабжу не знаю.

[Zer]

Раз уж заговорили... Хотелось-бы знать, на какой скорости ты работаешь с портом, т.к. у меня на скорости больше 9600 он вообще не откликается...

[Rouslan]

На скорости 115200, но если использовать листинг написанный выше то ничего вообще не происходит, кроме выполнения "at+fclass=8". Делаю я это через паузу примерно 0.5 сек(в форуме не указал как, т.к. не в этом у меня вопрос). Это либо особенности моего модема либо вообще всех, на других модемах не проверял. Наверно модем не успевает очухаться от первой команды когда на него идут последующие, которые он не успевает воспринять.

>т.к. у меня на скорости больше 9600 он вообще не откликается...

В принципе вопрос я не очень понял. Если просто выбрать порт и открыть его, то на модеме как миниму загорится лампочка "DTR"
MSComm1.CommPort = 1
MSComm1.PortOpen=True

Или порт открывается, но не проходят команды?

[Zer]

Команды проходят только на скорости 9600. Больше ставлю - хрен!