• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

用Delphi 5.0编写在线播放器_Delphi

Delphi 搞代码 3年前 (2018-08-09) 137次浏览 已收录 0个评论

  文/张国军

  对于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就可当作一个普通组件使用。

http://www.gaodaima.com/?p=65936用Delphi 5.0编写在线播放器_Delphi

图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 5.0编写在线播放器_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址