做一个自己的网络在线播放器

• 
  新建一个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;  
  新建一个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;  
  它还拥有许多属性和方法，诸位大侠可以自由发挥想像力，设计一个更加完善的播放器！

  （出处：急速软件下载学院）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 做一个自己的网络在线播放器 相关文章：
• ·做一个自己的网络在线播放器
• 做一个自己的网络在线播放器 相关软件

上一篇:自制THyperLink组件

下一篇:用代码打开屏幕保护

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐