请教大虾!如何播放PCM音频文件,谢谢(100)

请教大虾!如何播放PCM音频文件,谢谢

一个读取PCM文件的例子 TPCMWaveFormat = record wf: TWaveFormat;
wBitsPerSample: Word;
end;

WaveFormat:=new(PPCMwaveFormat);
with WaveFormat^.wf do
begin
WFormatTag := WAVE_FORMAT_PCM;
{PCM format - the only option!} NChannels:=1;
{mono} NSamplesPerSec:=11000;
{11kHz sampling} NAvgBytesPerSec:=11000;
{we aim to use 8 bit sound so only 11k per second} NBlockAlign:=1;
{only one byte in each sample} waveformat^.wBitsPerSample:=8;
{8 bits in each sample} end;

i:=waveOutOpen(nil,0,PWaveFormat(WaveFormat),0,0,WAVE_FORMAT_QUERY);
if i<>0 then
application.messagebox('Error', 'Play format not supported', mb_OK);
i:=waveInOpen(nil,0,PWaveFormat(WaveFormat),0,0,WAVE_FORMAT_QUERY);
if i<>0 then
application.messagebox('Error', 'Record format not supported', mb_OK);

楼上说的不错，用底层放音可以 或者转成wav播放，各语音卡厂商都有提供用deAudio这个控件不错

2楼,这个我也找到过,但是效果不理想,你能给个实例吗?

[]