musicplayer.txt

很简单的一个音乐播放器的delphi代码大家参考一下吧

用Delphi制作功能强大的媒体播放器 

--------------------------------------------------------------------------------
 
北京印刷学院506信箱(102600) 陈世超
Delphi原是古希腊一个城市的名字,古希腊人相信Delphi位于世界的中心,Borland公司
期盼其开发的新一代视觉开发工具Delphi成为同类产品中的先驱与核心,故以Delphi为其命
名。
Delphi是从源程序设计到产品最佳化一气呵成的快速软件开发工具,许多辅助工具可以
帮助程序设计者完成程序的设计工作。Delphi的出现,极大地简化了Windows程序设计。下面
我们利用Delphi来制作一个功能强大的Windows 3.x/95下的多媒体播放器。
在Delphi中提供了功能完善的多媒体支持工具———MediaPlayer组件,为我们提供了多
媒体控制界面(MCI———MediaPlayer Control Interface)的驱动程序。这就使在Windows
3.x/95中安装完成的MCI驱动程序,都可以通过MediaPlayer组件来进行播放。它能支持播放
音乐CD、wav、mid声音文件;avi、dat、mpg等格式的视频文件及其它多媒体文件,制作此播
放器有两个步骤:

制作播放界面
进入Delphi集成环境后程序将自动生成名为Form1的的屏幕界面,我们只需改变其大小、
边框属性和加入一些控制组件即可满足要求。
首先,在Component Palette(组件取用区)的System分页中选取MediaPlayer组件,它将作
为播放器的播放键;在Standard分页中选取四个Button组件(分别为But-ton1、Button2、Bu
tton3、Button4),它将作为播放器的外部控制台;在Dialog分页中选取OpenDialog组件置于
Form1上(通过它,播放器才能取得被播放的文件),并用鼠标将它们拖到恰当位置(如图1所示
)。
然后在Object Inspector(对象检阅器)中将Form1的Caption属性改为My_MediaPlayer,
将BorderIcons中的biMaximize设成False。将四个组件的Caption属性分别改为‘&File’、
‘C&lose’、‘CD Audio’、‘E&xit’。制成的界面如图2所示;双击Object Inspector中
OpenDialog1的Filter属性右边的小框,在弹出的表格中输入多媒体文件类型及过滤器,如图
3所示。至此,播放器播放界面制作完成。
填入事件处理程序

1、文件打开事件处理
双击File按钮,在弹出的程序过程中填入下列语句:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
MediaPlayer1.DeviceType:=dtAutoSelect;
MediaPlayer1.FileName:=OpenDialog1.FileName;
if MediaPlayer1.FileName <>' '
then MediaPlayer1.open;
end;

2、文件关闭事件处理
双击File按钮,在弹出的程序过程中填入下列语句:
procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.FileName:='';
MediaPlayer1.close;
end;

3、CD Audio播放事件处理
由于在播放音乐CD时,要求MediaPlayer的FileName为空
所以其事件处理程序为:
procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.DeviceType:=dtCDAudio;
MediaPlayer1.FileName:='';
MediaPlayer1.open;
end;

4、退出事件处理程序
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
至此,媒体播放器制作完成。编译生成的可执行文件即是我们的媒体播放器(可按F9直接
执行该程序),在Windows环境下运行,用File按钮调入播放文件,即可用它来欣赏你的多媒体
了。
@@06152100.GIF;图1@@
@@06152101.GIF;图2@@
@@06152102.GIF;图3@@