用delphi打造属于自己的播放器

    如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer播放器。下面我将向大家介绍如何利用Delphi来帮助你实现这一愿望。但前提是：你的机器中必须装有RealPlayer Plus播放器，因为我们要用到其自带的ActiveX控件。

　　首先，我们要在Delphi中导入所需的ActiveX控件。点击菜单“Component→Import ActiveX Control...”打开“Import ActiveX”对话框，在“Import ActiveX”列表框中，我们可以看到Windows中所有注册的AxctiveX控件。选择其中的“RealPlayer ActiveX Control Library(Version 1.0)”控件。然后单击“Install”按钮。

　　回到Delphi主界面，你会发现在VCL面板中的ActiveX标签中增加了一个名为RealAudio的组件。我们先把它放入窗体中。不过在默认情况中RealAudio组件没有视频播放窗口，也就是只能播放声音。这是我们不愿看到的，这时我们可以在RealAudio组件的Controls属性中添加如下代码：

　　IMAGEWINDOW,CONTROLPANEL,STATUSBAR

　　其中：IMAGEWINDOW、CONTROLPANEL、STATUSBAR分别表示显示视频播放窗口、控制条状态条。

　　添加代码后，我们可以发现控件外观已经改变成了视频播放窗口形状。然后设置Align属性为alClient，使播放窗口可以随窗体的变化而变化，方便大家在观看影视动画时可以随意拉动播放窗口大小。

　　然后，在窗中加入TMainMenu组件、TOpenDialog组件各一个。用于选择并打开播放影视文件。双击TMainMenu组件，进入菜单设计器。在这里，我们要设计一个菜单项File，及其2个子菜单Open、Exit。设计完毕后：

　　双击Open添加如下代码：

　　if OpenDialog1.Execute then

　　begin

　　 RealAudio1.source:=OpenDialog1.FileName;

　　 RealAudio1.doplay; //打开并启动播放器

　　End;

　　双击Open添加如下代码：

　　Application.terminate; //终止程序运行

　　为了在打开一个文件时，便于用户选择文件，要将OpenDialog组件的Filter属性设置如下：所有媒体文件(*.rm,*.ram,*.ra,*.swf,*.mp3)|*.rm;*.ram;*.ra;*.swf;*.mp3|*.*|*.*。

    如果想要在看电影的过程中快速静音，还可以添加一个静音按钮：

           双击“静音”按钮添加如下代码：

       var  pbmute:wordbool;
           begin
               pbmute:=realaudio1.GetMute();
               realaudio1.SetMute(not pbmute);
                   if pbmute then
                      mutebutton.Caption:='静音'
                   else
                      mutebutton.Caption:='开音';
            end;