WAV文件的格式(100分)

编了一段用PCSPEAKER 放WAV 的,效果不好,且好象不同的WAV文件速度不同,请高手指教

我这里有wav格式的资料！给我信箱！

colorski@sohu.com
一手交货一手给分

也给我一份吧！
谢谢！
icank@163.com

done

我也要!
因为我遇到过WAV在WIN2000里只有声音没有图片显示!!!?
ihpled@sohu.com

大家用DirectSound吧，可以播放不同频率的WAV.同一个频率的文件也可以以不同的速度播放。
最重要的是把声音缓冲区给你，你可以干任何事情。

谢了，不过是英文的，就有点吃力了，看分：

附原程序，核心部分来自电脑报一文章，原来我用TURBO PASCAL 编的，效果比现在好些，
现在用了一个端口控件：smallport
procedure TForm1.SpeedButton4Click(Sender: TObject);
CONST NMAXBUF=640000;{一次读取的内容}
SLOWER=13;
VAR I:LONGINT;READED:INTEGER;VOL,J:INTEGER;CH:CHAR;
Z,ADD:INTEGER;
FP:FILE;FILENAME:STRING[20];
AVOL:ARRAY[1..NMAXBUF] OF BYTE;
begin

SmallPort1.PORT[$43]:=$A4;
SmallPort1.PORT[$42]:=$FF;
AssignFile(FP,'HUA.wav');
RESET(FP,1);
SEEK(FP,44);
REPEAT
BLOCKREAD(FP,AVOL,NMAXBUF,READED);
FOR I:=1 TO NMAXBUFdo

begin

SmallPort1.PORT[$61]:=SmallPort1.PORT[$61] AND $FC;
FOR J:=1 TO AVOL*SLOWERdo
{这句}
SmallPort1.PORT[$61]:=SmallPort1.PORT[$61] OR $03;
FOR J:=1 TO ($FF-AVOL)*SLOWERdo
{和这句不是很明白}
end;

UNTIL READED=0;
CLOSEFILE(FP);
end;