高分求delphi程序定时播放选取的MP3或者wma！(200分)

H

hedana1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-02

• #1

客户要求 1:程序可以选取指定的预先录制好的MP3或者wma格式的音频文件
2:程序做到定时播放功能（比如到了指定时间，播放录好的MP3）。
跪求各位大虾了，把2个功能讲详细点，源码尽量详细。放什么控件，怎么实现说清楚。小弟谢谢了

 

H

hushuiwo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #2

timer和MediaPlayer应该行了吧!

 

H

hzjzxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #3

类似这样的程序网上很多
定时提醒 可以上网找些参考

 

H

hedana1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #4

谁还说说呀

 

枝

枝上柳绵

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-03

• #5

procedure playMP3(fileName:string;mp1:TMediaPlayer );
begin

mp1.FileName :=fileName;
mp1.open;
mp1.Play;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin

(TTImer(Sender)).Enabled :=false;
playMP3('C:/Program Files/Tencent/QQ/sound/ring.wav',self.mp1 );//mp1为TMediaPlay一实例
(TTImer(Sender)).Enabled :=true;
end;

 

H

hedana1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #6

谢谢枝上柳绵，辛苦了，你写的代码我运行过了没有问题。但是我不想用TMediaPlayer控件。太丑。不知道有没有兄弟用过 wakemeup这个定时软件。就大概做成它里面那种，设置呼叫时间 和选择播放文件功能。[]

 

S

skyccf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-04

• #7

TMediaPlay你可以让他不显示啊，隐藏了就是了，visible:=false

 

H

hedana1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-05

• #8

高手们呀，来说说呀

 

L

lixin0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-06

• #9

上面的不都给你说了啊。如果嫌TMediaPlay太丑，可以把它隐藏，然后自己弄个

 

L

lixin0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-06

• #10

如果不想用这个控件 也可以用ActiveX控件
安装到组件面板的方法是:
Component -> Import ActiveX->列表中选择你需要的播放器组件（这些都是你系统中已经注册过的组件）。比如说，你系统里装过Realone的话，那就可以使用Realone播放器组件

 

H

hedana1977

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-07-13

• #11

多人接受答案了。