如何使用TMediaPlayer播放wav文件(50分)

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-05

• #1

窗体一加载后所有按钮都是无效的
btnPlay click后播放指定文件
btnStop click后停止播放
btnNext click后执行下一曲
如果是因常MediaPlayer控件，自己加按钮来控制主要就好办
但是回头想想，如果这个也由自己来重新设计按钮，那原控件
的按钮还有存在的需要吗？

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-07

• #2

d-i-n-g

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-07

• #3

MediaPlayer1.Open;
或
MediaPlayer1.AutoOpen:=true;

 

L

lovezyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-07

• #4

先设置url，在open

 

Y

yonglinxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-07

• #5

mediaplayer1.url = '文件'
MediaPlayer1.control.play

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-08

• #6

如何知道用户click了btnPlay按钮呢？
一般按钮可以在onclick事件中写代码
我用这样的代码测试了一下MP.notify:=true;
procedure TForm1.MPNotify(Sender: TObject);
begin
case TMediaPlayer(Sender).Mode of
mpNotReady:
showmessage('mpNotReady');
mpStopped:
showmessage('mpStopped');
mpPlaying:
showmessage('mpPlaying');
mpRecording:
showmessage('mpRecording');
mpSeeking:
showmessage('mpSeeking');
mpPaused:
showmessage('mpPaused');
mpOpen:
showmessage('mpOpen');
end;
end;
请指教！

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-10

• #7

d-i-n-g

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-03-11

• #8

只好1d-ing再d-ing