谁会编个程序来播放rm压缩电影?
我没有找到realvideo控件,只是找到了realaudio控件,要播放视频rm怎末办? 问题点数：20、回复次数：26Top
1 楼gzc（编程工具何其多,我却偏爱BCB）回复于 2001-08-16 20:50:46 得分 0
Sorry，我不知道。希望能和你一起学习！Top
2 楼whitelion（www.ccproj.com）回复于 2001-08-18 21:09:13 得分 0
超级解霸最新版有这项功能Top
3 楼wangledong（雪山之鹰）回复于 2001-08-18 21:12:15 得分 0
如果得到答案，请千万告诉我一声！wangledong@21cn.comTop
4 楼jixian（极限）回复于 2001-08-18 21:42:09 得分 0
我也想知道Top
5 楼jixian（极限）回复于 2001-08-18 21:51:55 得分 0
upTop
6 楼aningstar（乘风破浪终有时）回复于 2001-08-18 21:58:49 得分 15
安装完RealPlayer之后，系统中将会被加入一个播放RM格式的ActiveX控件，我们就是利用这个控件来实现RM格式文件的播放。
1、安装ActiveX控件
点击Component菜单下的Import ActiveX Control选项，就会出现一个现在可安装的控件列表，如果你已经安装了RealPlayer的话，选中RealPlayer ActiveX Control Librarry然后按Install键即可 。在出现了许多确认信息之后，一个名为RealAudio的ActiveX控件就装入了你的Delphi之中。
2、学习控件的使用
打开目录\Delphi5\Imports\，找到RealAudioObjects_TLB.pas文件并打开，这里面包含了控件全部的操作函数、过程及属性。以下是对几个常用的函数和过程的简要介绍：
SetSource（文件路径）：设置索要播放的文件的完整路径；
DoPlay：播放；
DoPlayPause：暂停；
DoStop：停止；
SetControls（）：设置播放面板显示情况，具体的使用方法后面介绍；
SetFullScreen：设置全屏播放；
SetMute（True\False）：设置静音；
其他功能详见RealAudioObjects_TLB.pas。
3、播放器的制作
点击File\New Application，创建一个新的窗体；
在窗体上加载RealAudio控件，设置属性Visable为False；
在窗体上再分别加上OpenDialog控件和5个Button控件，并设置Button控件的Caption属性分别为“打开”、“播放”、“暂停”、“停止”、“全屏”；（见附图1）
输入如下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, RealAudioObjects_TLB;
type
TForm1 = class(TForm)
RealAudio1: TRealAudio;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
OpenDialog1: TOpenDialog;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute then
form1.RealAudio1.SetSource(form1.OpenDialog1.FileName);
end; //打开
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.RealAudio1.DoPlay;
end; //播放
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.RealAudio1.DoPlayPause;
end; //暂停 点击1次则暂停，点击2次则恢复播放
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.RealAudio1.DoStop;
end; //停止
procedure TForm1.Button5Click(Sender: TObject);
begin
form1.RealAudio1.SetFullScreen;
end; //设置全屏
end.
运行程序后发现了什么问题？播放器只能播放声音而没有图像！此时就要用到刚才所提到的SetControls函数。
当SetControls函数在程序中没有被调用时，是没有图像窗口的。SetControls函数后可带多个参数，主要有：ImageWindow（图像窗口），ControlPanel（控制板），StatusBar（状态条）用于设置控件面板上应显示的构件。
例如：SetControls('ImageWindow');
在procedure TForm1.Button1Click(Sender: TObject);（打开过程）中加入如下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute then begin
form1.RealAudio1.SetSource(form1.OpenDialog1.FileName); form1.RealAudio1.DoPlay; //打开后自动播放
form1.RealAudio1.SetControls('ImageWindow'); //设置图像窗口显示
form1.RealAudio1.Visible:=True; //显示图像窗口
end;
end;
这样就实现了影像的播放功能。 Top
7 楼aningstar（乘风破浪终有时）回复于 2001-08-18 22:06:50 得分 0
忘了注明：是转载
不是原创啊
Top
8 楼aningstar（乘风破浪终有时）回复于 2001-08-18 22:23:34 得分 0
Bcb的函数说明在 RealAudioObjects_TLB.h 里
呵呵
我也看了一下Top
9 楼Cbfan（民族英雄~~）回复于 2001-08-18 23:12:09 得分 0
使用控件啊！Top
10 楼lanren_me（阿波）回复于 2001-08-18 23:32:55 得分 0
up
up
up
up
Top
11 楼southmonarch（龙五）回复于 2001-08-19 00:20:04 得分 0
我没有装DEPHI, RealAudioObjects_TLB.pas这个文件也没有.
请问能否用BCB的代码写一遍,谢谢!Top
12 楼southmonarch（龙五）回复于 2001-08-19 00:23:23 得分 0
如果用BCB实现的话立即给分啊Top
13 楼wangxd（东东）回复于 2001-08-19 08:06:57 得分 5
试试下面的代码
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
WideString file=OpenDialog1->FileName;
RealAudio1->SetSource(file);
RealAudio1->DoPlay();
RealAudio1->SetControls("ImageWindow");
}
}Top
14 楼aningstar（乘风破浪终有时）回复于 2001-08-19 13:30:49 得分 0
void __fastcall TForm1::Button1Click(TObject *Sender)
{
WideString ControlName="ImageWindow";
if (OpenDialog1->Execute())
{
WideString file=OpenDialog1->FileName;
RealAudio1->SetSource(file);
RealAudio1->DoPlay();
RealAudio1->SetControls(ControlName);
RealAudio1->Visible=True; //显示图像窗口
}
}
上面的代码已通过
还有你用Bcb，当然没有RealAudioObjects_TLB.pas了
都在RealAudioObjects_TLB.h 里呢
呵呵
你也可以直接设置属性，例如在 Controls里填入ImageWindow
在Source里填入文件名
呵呵
给分吧Top
15 楼gqxs（我心㊣飞翔）回复于 2001-08-19 14:07:16 得分 0
学习Top
16 楼yeqiufeng（叶秋枫）回复于 2001-08-19 14:47:52 得分 0
聊作捧场
@_@Top
17 楼yushaofeng（网络飞龙（小不懂））回复于 2001-08-19 14:57:56 得分 0
学习Top
18 楼huangbai（黄柏）回复于 2001-08-19 15:06:44 得分 0
学习Top
19 楼Sammo（三毛）回复于 2001-08-19 15:08:17 得分 0
过来学习！！！！！:))Top
20 楼Sammo（三毛）回复于 2001-08-19 15:08:24 得分 0
过来学习！！！！！:))Top
21 楼Sammo（三毛）回复于 2001-08-19 15:08:30 得分 0
过来学习！！！！！:))Top
22 楼aningstar（乘风破浪终有时）回复于 2001-08-19 15:29:44 得分 0
呵呵
多谢捧场Top
23 楼whitelion（www.ccproj.com）回复于 2001-08-19 16:48:04 得分 0
学习 Top
24 楼dgq780820（Abstrusefruit）回复于 2001-08-19 19:24:14 得分 0
aningstar(乘风破浪终有时) 厉害！！！！！Top
25 楼southmonarch（龙五）回复于 2001-08-21 17:34:53 得分 0
aningstar((乘风破浪终有时),这两天出差.没有及时回您的帖子,请原谅.
您提供的程序已经通过,像您这样的高手的出现,的确让我感觉到CSDN的伟大,谢谢高手们的无私的奉献.只可惜我当时最高只能给20多分,说实话,真想给你200分呢.
现在给您15分,另外 wangxd(东东) 也将分得5分.
在此感谢!Top
26 楼black_fox（天堂隔壁）回复于 2001-09-15 10:51:28 得分 0
学习Top
