在线播放器diy

　　对于realplayer网络播放软件大家一定不会陌生。其强大的网络视频、音频等媒体播放功能让人很是羡慕。如果自己也能做一个，心里肯定感觉不错。

　　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组件，它还拥有许多属性和方法，诸君可以自由发挥想像力，设计一个更加完善的播放器。

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

在线播放器diy

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

在线播放器diy

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范