请问如何来控制两钟声音的播放?(100分)

  • 主题发起人 主题发起人 Adsky
  • 开始时间 开始时间
A

Adsky

Unregistered / Unconfirmed
GUEST, unregistred user!
一是用MIDI来作为背景音乐,二是用mp3或者是WAV来做解说声音。
背景音乐在几首曲中循环播放,在程序中可以可以控制他的开关。解说词也是如此。
两种声音可以同时播放,也可以控制其中的只有一个进行工作。
各位大虾多多给点意见,最好能给出参考程序。
 
用两个媒体播放器就行
 
buttonclick1()//同时播放(要有两个mediaplayer控件)
begin

mediaplayer1.filename:='c:/1.wav';
mediaplayer2.filename:='c:/2.mp3';
mediaplayer1.open;
mediaplayer1.play;
mediaplayer2.open;
mediaplayer2.play;
end;


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

mediaplayer1.play;
end;

button2click()//关背景音乐
begin

with mediaplayer1do

begin

mediaplayer1.stop;
mediaplayer1.close;
end;

end;

 
对~~~~用两个媒体播放器就行!
 
两个播放控件就行了。
midi和mp3.wav等不是一回事儿,不影响。
 
上面高手,用两个mediaplayer控件有问题:在我自己的机器上没有什么问题,但打包安装
到其它计算机上,如果同时播放会出现mci初始化出错。如何解决?
 

Similar threads

D
回复
0
查看
911
DelphiTeacher的专栏
D
D
回复
0
查看
868
DelphiTeacher的专栏
D
D
回复
0
查看
840
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
875
DelphiTeacher的专栏
D
后退
顶部