Пишу прогу для работы с файлами ImRe формата, на начальном этапе столкнулся с тем что при подаче данных в WaveOutWrite звук "заикается" несмотря на использование двойной буфферизации. Делаю следующе:
1. Получаю контекст на устройство так:
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
procedure Tform1.Initsound(band:integer);
var i:integer;
begin
// вормат выводных данных
with header do begin
wFormatTag := WAVE_FORMAT_PCM;
nChannels := 1;
nSamplesPerSec := band*2;
wBitsPerSample := 16;
nBlockAlign := nChannels * (wBitsPerSample div 8);
nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
cbSize := 0;
end;
// получаю контекст устройства и говорю ему передавать мессагу окну
if WaveOutOpen(addr(waveOut), WAVE_MAPPER, @header,Handle, 0,CALLBACK_Window)<>0 then
begin
showmessage('Ошибка открытия звукового устройства!');
exit;
end;
// создаю два буфера под вывод
for i:=0 to 1 do begin
pWaveBufHan[i] := GlobalAlloc(GMEM_MOVEABLE and GMEM_SHARE, soundbuflength*4);
pWaveBuffer[i]:=GlobalLock(pWaveBufHan[i]);
with waveoutHdr[i] do begin
lpData := pwavebuffer[i];
dwBufferLength :=soundbuflength*2;
dwUser := 0;
dwFlags := 0;
dwLoops := 0;
end;
// инициирую заголовки
if WaveOutPrepareHeader(waveOut, @waveoutHdr[i], sizeof(waveoutHdr))<>0 then
begin
showmessage('Ошибка инициализации звукового устройства!');
exit;
end;
nspwbZero(pwaveBuffer[i],soundbuflength); // обнуляю буферы
end;
Psigtosound:=nspvMalloc(soundbuflength); // буфер понадобится для считывания квадратур из файла
//закидываю первый буфер в устройство чтобы начать получать MM_WOM_DONE
waveOutWrite(waveOut, @waveoutHdr[1], sizeof(waveoutHdr));
bufnum:=0;
end;
2. Обрабатываю мессаги MM_WOM_DONE через procedure SoundComplite (var MSG:Tmessage); message mm_wom_done;
(пробовал hook-ом; - проблемы те же, да в принципе и смысл тот же)
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
// при получении MM_WOM_DONE
procedure Tform1.SoundComplite(var msg: Tmessage);
var i:integer;
begin
//скидываю ранее сгенерированный буфер в устройство
waveOutWrite(waveOut, @waveoutHdr[bufnum], sizeof(waveoutHdr));
//переключаю счетчик на следующий буфер
bufnum:=bufnum xor 1;
// закидываю данные в новый буфер
globalpos:=globalpos+soundbuflength ; //позиция отсчета в файле
if globalpos>= globalmax then // нет ли конца файла
begin
globalpos:=globalmax;
play:=false; // торможу воспроизведение
form1.closesound;// и закрываю устройство
end;
afile.Position:=globalpos*4+110; // введено для расчета нужной позиции в filestream 109- величина заголовка 4-размер квадратурного отсчета Re:short Im:short
Afile.Read(Psigtosound^,soundbuflength*4);
// пока что делаю только выделение действительной части и пытаюсь ее воспроизводить
// далее планируется здесь сделать небольшуюу обработку
nspvbReal(Psigtosound,pwaveBuffer[bufnum],soundbuflength) ;
// pwaveBuffer[bufnum] - готов при следующем вызове MM_WOM_DONE он будет подан в устройство
end;
Сама проблема заключается в том что звучание кратковременно прерываетя при смене буфера хотя двойная буферизация должна это устранять.
Что характерно усли убрать строчку
bufnum:=bufnum xor 1;
то есть работать только с одним буфером - "заикание" (на слух) точно такое же как и с двумя буферами.
раньше писал похожие вещи (делал нечто похожее на сетевое радио) - доооооолго мучался и сам не понял как но такие же заикания устранил, а вот как - хоть убей не помню
Заранее благодарен если у кого найдется время посмотреть.
Добавлено
Небольшое уточнение - использовал буфферы разного размера от 1 до 24 Кб заикания такие же только происходят реже с увеличением размера буфера
