● 用Delphi制作功能强大的媒体播放器 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: 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软件网络书店