使用TMediaplayer控件播放背景音乐(mid)时出问题(100分)

  • 主题发起人 主题发起人 zjwonderfu
  • 开始时间 开始时间
Z

zjwonderfu

Unregistered / Unconfirmed
GUEST, unregistred user!
我用TMediaplayer控件播放背景音乐,(例如有3首mid音乐,3首wav音乐)
对于one.mid,写法如下:
Mediaplayer1.FileName='sound/one.mid';
Mediaplayer1.open;
Mediaplayer1.play;
对于two.wav,写法如下:
Mediaplayer1.FileName='sound/two.wav';
Mediaplayer1.open;
Mediaplayer1.play;
在选择播放mid音乐时,有时会出现错误提示:mmsystem275路径出错;
而选择播放wav音乐时,一切正常。
在此向各位大侠寻求简单方法解决这个问题。
 
播放mid时,
你把Mediaplayer的DeviceType设置为dtSequencer试一下!
你也可以检查一个win.ini的mci extensions 下mid=Sequencer
 
把Mediaplayer的DeviceType设置为dtSequencer时,什么声音都没有了。
 
我没有用到TMediaplayer的方法
方法如下:首先需要在uses部分加入mmsystem,接着写入下列语句,其中e:/1.mid为播放的文件,NN为自定义名称标志
procedure TForm1.Button1Click(Sender: Tobject);
begin

//播放音乐
MCISendString('OPEN e:/1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('PLAY NN FROM 0', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;


procedure TForm1.Button2Click(Sender: Tobject);
begin

//停止播放
MCISendString('OPEN e:/1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('STOP NN', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;

 
41426277兄的方法我试了,不行,出现的提示是:程序出错........,关闭 or 忽略
 

Similar threads

I
回复
0
查看
719
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部