在线播放器DIY
添加时间: 2006-2-28 8:53:51 作者: Delphi教程 阅读次数:354 来源: http://www.d9soft.com
RealPlayer软件本身有一个RealPlayer插件。由于它采用的是Active技术，这就为我们创建自己的RealPlayer播放器创造了条件。因为应用ActiveX技术做成的插件，可以很方便地应用到任何支持ActiveX技术的开发语言中，并作为一个普通组件加以使用。我们在下面就以Delphi 5.0为例，制作一个属于自己的RealPlayer网络影视播放器。
添加RealPlayerActive插件到组件栏ActiveX项中，以备使用。选择主菜单Component→Import ActiveX Control项，将出现一个Import ActiveX窗口，该窗口的上部选择列表中存放了本计算机系统中已经拥有的各种Active插件。如果你安装了RealPlayer软件，就从中找到RealPlayer ActiveX Control Library一项并选定，然后选择窗口下部的Install...按钮，出现Install窗口，保持默认值，选择OK，即可添加完成。回到组件栏ActiveX项中，你会发现RealPlayer软件的图标。这样，RealPlayer就可当作一个普通组件使用。
图1 RealPlayer Active
新建一个Delphi应用程序，然后在窗口中把组件栏ActiveX项中的RealPlayer组件拉入窗口中，命名为RealAudio1，出现一个简化的RealPlayer界面。但它只有控制界面，没有视频图像界面。这不要紧，在RealPlayer组件的Controls属性中加入“ImageWindow”，然后点击下面的窗口，视频图像开始出现，在“ImageWindow”后接着添加“ControlPanel”属性值（用逗号分开）。这样控制界面出现，还可以在后面继续添加“Statuabar”值，出现状态条。
将RealPlayer组件拉动到适当大小，在窗口中添加一命令按钮并命名为Play。然后在按钮的单击事件中添加以下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
RealAudio1.source=' c:\A.rm' ; //播放的电影源。
RealAudio1.doplay; //开始播放电影
end;
一个RealPlayer播放器就做完了，简单吧！不过本文只是简单介绍RealPlayer组件，它还拥有许多属性和方法，诸君可以自由发挥想像力，设计一个更加完善的播放器。
上下文章:
上一篇文章: Delphi让你发送Flash电子邮件 下一篇文章: 关于VisiBroker For Delphi的使用（3）
相关软件: