Звук (ошибка) [D7, Win2k, WinXP]
MIA © (2004-04-20 21:17:00)
Извеняюсь....
Долго лазил в инете и читал хелпы по теме вывод/ввод звука..
При открытии waveOutOpen, она возвращает 0(в пошаговой
оладке)... т.е. всё окей, но если вызывается результат на
проверку... возникает ошибка...
Проверял на двух компах 2000 и ХРю..
Где не доглядел...
uses MMSystem;
procedure TForm1.Button12Click(Sender: TObject);
var
f1: Cardinal;
f: PHWaveOut;
str: PWaveFormatEx;
begin
FillChar(str, SizeOf(PWaveFormatEx), 0);
str.wFormatTag := WAVE_FORMAT_PCM;
str.nChannels := 1;
str.nSamplesPerSec := 22050;
str.wBitsPerSample := 16;
str.nAvgBytesPerSec := 176400;
str.nBlockAlign := 4;
//открытие устройства воспроизведения
f1 := waveOutOpen(f, WAVE_MAPPER, str, 0, 0,
WAVE_ALLOWSYNC);
if f1 = MMSYSERR_NOERROR then
begin
ShowMessage('');
end;
end;
Evgeny V (2004-04-21 07:05:00) [1]
str.nBlockAlign := 4????
nBlockAlign:=nChannels * wBitsPerSample div 8 для
WAVE_FORMAT_PCM у тебя -> 1*16/8=2 , соответственно надо
пересчитать
nAvgBytesPerSec:=nSamplesPerSec * nBlockAlign(тоже странное
число у тебя). Про флаг WAVE_ALLOWSYNC к сожалению сказать не могу,
не пользовался, обычно открываю устройство в режиме сообщений для
окна, или в режиме вызова callbak функции
Наверх 
ЧАТ |
Орешник |
|
