做一个自己的网络在线播放器
【打印文章】
新建一个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;
它还拥有许多属性和方法，诸位大侠可以自由发挥想像力，设计一个更加完善的播放器！
将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;
它还拥有许多属性和方法，诸位大侠可以自由发挥想像力，设计一个更加完善的播放器！
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】