Как вывести потоковый звук?

← →
IgorBIK (2001-12-09 19:28) [0]

Когда вывожу звук наблюдаются щелчки даже при низкой загрузке процессора (10%). Я делаю так:
function CPCMWav(Frec,Bit,Can:integer):TWAVEFORMATEX;
begin
result.wFormatTag:=WAVE_FORMAT_PCM;
result.cbSize:=0;
result.nChannels:=Can;
result.wBitsPerSample:=Bit;
result.nSamplesPerSec:=Frec;
result.nBlockAlign:=(bit div 8)*can;
result.nAvgBytesPerSec:=result.nBlockAlign*Frec;
end;

procedure WOutProc(h:HWAVEOUT;Msg:UINT;Inst,par1,par2:Dword);stdcall;
var pp:^WAVEHDR;
i:integer;
o:Pwordarray;
begin
if (msg=WOM_DONE) and (not Close) then
begin
bn:=abs(bn-1);
if bn=0 then waveOutWrite(Devout,@bf1,sizeof(bf1)) else waveOutWrite(Devout,@bf2,sizeof(bf2));
readd:=True;
//Здесь был кусок кода записывающий звук в буфер
end;
end;

procedure DeWave;//Закрытие звукового устройства
begin
close:=True;
waveOutReset(DevOut);
waveOutUnprepareHeader(DevOut,@bf1,sizeof(bf1));
waveOutUnprepareHeader(DevOut,@bf2,sizeof(bf2));
waveOutClose(DevOut);
end;

procedure Err(i:integer);
var r:array[0..MAXERRORLENGTH-1]of char;
p:PChar;
begin
p:=@r;
waveOutGetErrorText(i,p,MAXERRORLENGTH-1);
debugev(p);
end;

//Инициализация звука
function CreateWOut(Frec,Bit,Can:integer):HWAVEOUT;
var res:HWAVEOUT;
WF:TWAVEFORMATEX;
ff:DWord;
len,i:integer;
begin
readd:=False;
Close:=False;
Wf:=CPCMWav(Frec,Bit,Can);
len:=wf.nAvgBytesPerSec div 8;
ff:=CALLBACK_FUNCTION;
Err(waveOutOpen(@res,WAVE_MAPPER,@Wf,integer(@WOutProc),0,ff));
DevOut:=res;
result:=res;
bf1.lpData:=@buf1;
bf1.dwFlags:=0;
bf1.dwBufferLength:=len;
Err(waveOutPrepareHeader(res,@bf1,sizeof(bf1)));
bf1.dwFlags:=(bf1.dwFlags or WHDR_BEGINLOOP)-(bf1.dwFlags and WHDR_ENDLOOP);
bf1.dwLoops:=0;
waveOutWrite(res,@bf1,sizeof(bf1));
bf2.lpData:=@buf2;
bf2.dwFlags:=0;
bf2.dwBufferLength:=len;
Err(waveOutPrepareHeader(res,@bf2,sizeof(bf2)));
bf2.dwFlags:=(bf2.dwFlags or WHDR_ENDLOOP)-(bf2.dwFlags and WHDR_BEGINLOOP);
waveOutWrite(res,@bf2,sizeof(bf2));
bn:=1;
end;

Что я делаю не так или как делать по другому?

Как вывести потоковый звук? Найти похожие ветки