明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

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

[摘要]新建一个Delphi应用程序,然后在窗口中把组件栏ActiveX项中的RealPlayer组件拉入窗口中,命名为RealAudio1,出现一个简化的RealPlayer界面。但它只有控制界面,没有视频图像界面。这不要紧,在RealPlayer组件的Controls属性中加入“ImageWindow...
新建一个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;  
它还拥有许多属性和方法,诸位大侠可以自由发挥想像力,设计一个更加完善的播放器!