wavein

← →
race1 (2005-12-23 15:14) [0]

Я записываю звук через ф-ии wavein... Всё записывается нормально, но при прослушивании того что записалось слышны щелчки и прочие неприятные артефакты. Это при том, что во время записи никаких щелчков небыло.

В качестве буфера я использую буфер под 5 секунд wav данных стерео и 16 бит (882000 байт). Щелчки наблюдаются не в местах где заполненный буфер передаётся мне в программу, и я его копирую себе (т.е. в 5, 10, 15 и т.д. сек), а по всей длине записанного файла. Если делать буфер под одну секнду, тоже есть щелчки.

Я уже придумал делать два буфера - когда приходит один, на устройство посылаем другой. Не помогает.

procedure waveInProc(hwi: HWaveIn; uMsg: Cardinal; dwInstance, dwParam1, dwParam2: DWORD); begin if (uMsg <> WIM_DATA) or (dwParam1 = 0) then Exit; Inc(FCurBuf); if FCurBuf = 2 then FCurBuf := 1; WaveInAddBuffer(FWaveIn, @FBufHdrs[FCurBuf], SizeOf(TWaveHdr)); // FBufLen := 882000 // FWAVMem: TMemoryStream // FWAMMem.Size := FBufLen FWAVMem.Write(PWaveHdr(dwParam1)^.lpData^, PWaveHdr(dwParam1)^.dwBytesRecorded); end;

← →
programania © (2005-12-24 23:12) [1]

Может разные параметры источника и приемника?
лучше установить прием на 44100 16 2 а в wav преобразовать как надо
Вот похожий пример записи с одного из входов "Запись" в файл wav
http://programania.com/sv.zip 3кб
там еще показывает звук на экране
но щелчки и прочие неприятные артефакты я не слышу хотя пишется в 1 буфер

← →
race1 (2005-12-25 06:47) [2]

Я как раз за основу взял ваш пример :)

А что значит "лучше установить прием на 44100 16 2 а в wav преобразовать как надо"? Как это "как надо"?

>А что значит "лучше установить прием на 44100 16 2
Это значит как сейчас в примере в const и процедуре Start

>а в wav преобразовать как надо"? Как это "как надо"?
Если важно качество то лучше как в примере ничего не преобразовывать
иначе например для микрофона хватит 11025 гц 8 бит 1 канал
для этого поменять в iniWav и перед выводом в wav преобразовать
массив отсчетов mz взять каждый 8-ой, поделить на 256 и записать в массив shortInt

wavein Найти похожие ветки