荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Peter (小飞侠), 信区: Program
标 题: 用Delphi制作功能强大的媒体播放器
发信站: BBS 荔园晨风站 (Wed Jan 27 17:53:14 1999), 转信
Delphi原是古希腊一个城市的名字,古希腊人相信Delphi位于世界
的中心,Borland公司期盼其开发的新一代视觉开发工具Delphi成为同
类产品中的先驱与核心,故以Delphi为其命名。
Delphi是从源程序设计到产品最佳化一气呵成的快速软件开发工
具,许多辅助工具可以帮助程序设计者完成程序的设计工作。Delphi
的出现,极大地简化了Windows程序设计。下面我们利用Delphi来制作
一个功能强大的Windows 3.x/95下的多媒体播放器。
在Delphi中提供了功能完善的多媒体支持工具———MediaPlaye
r组件,为我们提供了多媒体控制界面(MCI———MediaPlayer Contro
l Interface)的驱动程序。这就使在Windows 3.x/95中安装完成的M
CI驱动程序,都可以通过MediaPlayer组件来进行播放。它能支持播放
音乐CD、wav、mid声音文件;avi、dat、mpg等格式的视频文件及其它
多媒体文件,制作此播放器有两个步骤:
制作播放界面
进入Delphi集成环境后程序将自动生成名为Form1的的屏幕界面,
我们只需改变其大小、边框属性和加入一些控制组件即可满足要求。
首先,在Component Palette(组件取用区)的System分页中选取Me
diaPlayer组件,它将作为播放器的播放键;在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 Aud
io’、‘E&xit’。制成的界面如图2所示;双击Object Inspector中O
penDialog1的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
按钮调入播放文件,即可用它来欣赏你的多媒体了。
--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店