在Delphi中实现利用PC机的声卡同时录放音！急，在线等待！

Question

有没有谁作过这个，有没有源代码提供呢？
我利用delphi自带的mediaplayer，代码如下：
　MediaPlayer1.FileName := ExtractFilePath(Application.ExeName)+'PN8192.wav';
  MediaPlayer1.Open ;
　MediaPlayer1.Play ;
　MediaPlayer1.Close ;
程序刚完成时，能够播放wav文件，后来再执行时wav就不能正常播放了，没有声音，但是用F8一步一步执行时wav文件就可以正常播放。这是为什么？

Answer 1

//建议你这样播放～～
uses MMSystem;procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'PN8192.wav'), 0,
    SND_ASYNC or SND_FILENAME or SND_NODEFAULT)
end;

Answer 2

还没有开始播放你就MediaPlayer1.Close 
这样不好吧，最好是用按键控制下的

Answer 3

zswangII(伴水清清)(一贴不灌，何以灌天下？) :
    那个playsound是一个需要自己定义的函数吗，如果是怎么定义，如果不是在哪可以找到？不好意思，我学习delphi时间不长，原来不是作这个的，临时被抓过来作边学边用的，好多都不懂。谢谢！simb() ：我不能用按键控制，整个播放器在软件界面上要屏蔽的。
aiirii(ari-爱的眼睛) ：我试试时延，可能是你所说的问题。不过再麻烦你看看下面所说的，谢谢。
另外，我想实现的功能是：利用一个按钮播放预定的wav文件，同时用麦克风接收分析接收的数据，请问这样该怎么实现才好。请各位大侠们帮帮忙，多谢了！

Answer 4

zswangII(伴水清清)、aiirii(ari-爱的眼睛)你们不在了吗？怎么不帮我了？帮帮忙，我等着你们的答复呀

Answer 5

PlaySound是MMSystem单元里的函数之一～～uses MMSystem; //这个代码你没注意～～//参考如下～～
//...
implementationuses MMSystem;
//...

Answer 6

zswangII(伴水清清)(一贴不灌，何以灌天下？) ：
　　不好意思，我没看到，我试过了！可以了，播放没问题了，但是我前面所提到的同时放音和录音怎么实现呢，mediaplayer控件在播放时录音键是禁止的，我添加了两个控件，一个放音一个录音，但是运行时报错，错误信息是：project soundboxtest.exe raised exception class EMCIDeviceError with message找不到指定的文件。