VPF::Звук. Как считать звук с микрофона?

Сувор

Дата 20.11.2004, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 7.6.2004

Репутация: нет
Всего: нет

Как считать звук идущий с микрофона? То есть не в файл его загнать, это-то ясно, а считать из приложения текущую амплитуду. Спасибо.

Guest

Дата 8.12.2004, 15:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Позвольте, господа, вернуться к старому вопросу на новом уровне.
Вот рисую я такие API-шки и вроде как все фурычит. НО:
а. Как мне вернуться к себе после заполнения буфера (вроде как что-то надо вместо waveInProc, но не выходит по факту!)
в. Где вообще этот чертов буффер ??? -То есть как мне его достать-то?
P.S. В MSDN масса статей на эту тему, но фокус как обычно в том, что авторам ответы на эти вопросы очевидно очевидны и, поэтому,
им очевидно не очевидно, что другим это совсем не очевидно!
Короче, если кто что понимает куда что вставить, подскажите плиииииз! Спасибо. Сувор.

Код


   Dim WF As WAVEFORMATEX
   Dim WH As WAVEHDR
    With WF
        .wFormatTag = WAVE_FORMAT_PCM
        .nChannels = 1
        .nBlockAlign = 1
        .nSamplesPerSec = 11025
        .wBitsPerSample = 8
        .nAvgBytesPerSec = (.nSamplesPerSec * .nBlockAlign) \ 8
        .cbSize = 0
    End With
    With WH
    .Reserved = 0
    .lpNext = 0
    .lpData = 0
    .dwUser = 0
    .dwLoops = 0
    .dwFlags = 0
    .dwBytesRecorded = 0
    .dwBufferLength = 100000
    End With
    
    Rv = waveInOpen(hWaveIn, WAVE_MAPPER, WF, AddressOf waveInProc, 0, CALLBACK_FUNCTION)
    waveInPrepareHeader hWaveIn, WH, 100000
    waveInAddBuffer hWaveIn, WH, 100000
    waveInStart hWaveIn

Gannibal

Дата 23.12.2004, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

Вот я пример как-то давно одкопал, вот решил выложить, надеюсь автор меня незасудит, очень давно у меня етот архив и он тебе должен помочь там назорно показано ;) пользуйтесь все

Archive!!!

Контроль входного сигнала (с микрофона) в VB.Работает не на всех компьютерах вот это единственный недостаток наверное

попробуйте посмотреть ещё здесь http://www.vbstreets.ru/VB/Articles/66010.aspx

Это сообщение отредактировал(а) M.E.G.U.S - 23.12.2004, 15:02

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »