Как через модем wav фаил проигровать?

[-=alp=-]

Как через модем wav фаил проигровать?

[PATRIOT_kz]

Надо через команду 'BlockRead' читать блоки wav файла,
и по блокам кидать его модему.
Желательно по 512 байт.

[d3drm]

А зачем?

[alibek]

Видимо человек автоответчик пишет
А чем не устраивают готовые продукты? WinFax например.

[-=alp=-]

Надо через команду 'BlockRead' читать блоки wav файла,
и по блокам кидать его модему.
Желательно по 512 байт.


а можно об этом по подробнее
Где эта команда

p.s. да я хочу создать что-то на подобе автоответчика

[PATRIOT_kz]

Подробнее вы сможете узнать инфу про команду 'BlockRead'
в Delphi, просто создатите любое новое приложение и введите след.код в неё.
---

Код: Выделить всё

Function ReadWavAndSend(sWave: String);
Var
F: File;
I: Integer;
T: String;
AL: String;
Begin
F := sWave;
AssignFile(F);
Flash(F);
For i := 1 To GetFileLength(F) Do Begin
   BlockRead(F, i+512, T);
   SendWave (T);
   i = i + 512;
End;
Close(F);
End;


---
Всё , далее просто напишешь функцию 'SendWave', в которой ты будешь пихать открытому твоей прогой COM порту переменную T.
(надеюсь знаешь как открыть, послать данные в порт ?)[/code][/u]

[moshkin]

Встречные вопросы:
1. а как модему сказать что дальше пойдет wav файл?
2. какой формат wav-a нужен модему?
Я так понимаю что должна быть команда для модема чтобы он перешел в голосовой режим - но в документации такой нет или я не нашел.
(модем Zyxel omni 56K pro) или хоть какие бывают команды для других модемов подскажите.

[F@N]

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "ATDT 980509651503" & vbCr
MSComm1.Output = "AT+VTX = c:\start.wav"


почему не пашет?

[F@N]

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "ATDT 980509651503" & vbCr
MSComm1.Output = "AT+VTX c:\start.wav"


И так тоже не пашет

[PATRIOT_kz]

Короче слушай.

Перед тем как работать с Voice'ом от модема, его нужно
вначале инициализировать!!!
---
Значит вначале тебе нужно узнать какие голосовые режимы,
твой модем поддерживает. Вот код:

Код: Выделить всё

AT+VSM=?

Далее суёшь ему файл любого формата звука, который у тя поддерживает.

Код: Выделить всё

AT+VTX=%path%

Где '%path%' будет путь к wave файлу поддерживаемого формата.
Чтобы не мучиться вот мини пример моего проекта, который работает.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Вставишь в форму элемент 'MSComm'.

Код: Выделить всё

Private Sub InitVoice()
    With MsComm1
    .Output = "AT+FCLASS=8" & vbCr 'Переход в Voice режим
    .Output = "AT+VSM=130,8000,0,0" & vbCr '130 - номер кодека, 8000 Hz
    .Output = "AT+VSD=128,50" & vbCr '128 и 50 лучше не спрашивай, всё равно не поймёшь
    .Output = "AT+VLS=1" & vbCr 'инит . . .
    .Output = "AT+VTX = c:\modem\test.wav" & vbCr 'где "c:\modem\test.wav" - это мой wave файлик.
    End With
  End Sub

Далее просто пропишешь в 'Form_Load()', ссылку на неё. Типа так:

Код: Выделить всё

Private Sub Form_Load()
   InitVoice
End Sub

[-=alp=-]

не работает

Почему то когда время подходит к выполнению кода модем ложет трубку

[moshkin]

Уже интересно, пока не очень разобрался, если запускаю код на выполнение (вначале позвонив и подняв трубу на той стороне)
то команда
.Output = "AT+FCLASS=8" & vbCr
заставляет модем класть трубку

[F@N]

MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Output = "ATDT 980509651503" & vbCr
Почему следующая АТ команда обрывает соединение????
У меня Acorp M56 EMS-2 внешний 56000К

[-=alp=-]

у меня тоже самое, что и выше сказанное
эксперты помогите!!!

уменя aceex

[F@N]

MSComm1.CommPort = Text1.Text
MSComm1.PortOpen = True
With MSComm1
.Output = "AT+FCLASS=8" & vbCr
.Output = "AT+VSM=130,8000,0,0" & vbCr
.Output = "AT+VSD=128,50" & vbCr
.Output = "AT+VLS=1" & vbCr
End With
......... и только после этого звякаем на тел.

MSComm1.Output = "ATDT 980509651503" & vbCr
MSComm1.Output = "AT+VTX = c:\start.wav" & vbCr

В результате слышим тишину, НО связь уже не рвется


ЧО ДЕЛАТЬ???

[moshkin]

наверное это глупый ответ, сам пока не пробовал, но очень вероятно, что модему нужен только строго определенный wav - определенного формата и битрейта.
Мысль навскидку - надо сначала записать модемом звук в wav хоть с помощью той же ventafax, а потом попробовать этот же wav воспроизвести.

[F@N]

Вента все воспроизводит......

[moshkin]

I'm sorry : у меня Venta ZVoice может писать звук (вроде бы, - заявлено так).

[-=alp=-]

эксперты помогите!!!