如何在delphi中显示电影图象？？？(100分)

我新建一个新的应用程序。然后选择Component（组件）菜单下的Import ActiveX Control...（导入ActiveX控件）选项，选中其中的Real Player ActiveX Control Library(Vision1.0)项，单击Install。发现了一个新的控件，名字为RealAudio。然后我单击它把它放在form中，并在该form中放一个OpenDialog控件和一个panel，在该panel上放六个button，他们的Caption属性分别命名为打开、播放、暂停、停止、静音、退出，并依次设置这些按钮的名字属性（name）OpenRealFileButton、PlayButton、PauseButton、StopButton、MuteButton
和QuitButton;设置panel、RealAudio的Align 属性分别为Alleft 和AlClient。
编写了如下的程序：
procedure TForm1.OpenFileButtonClick(Sender: TObject);
begin

if OpenRealFileDialog.Execute then
realaudio1.SetSource (OpenRealFileDialog.filename);
end;

procedure TForm1.PlayButtonClick(Sender: TObject);
var
pbCanPlay:wordbool;
begin

if RealAudio1.CanPlay (pbCanPlay) then
{当能够播放时再进行播放功能设置}
begin

RealAudio1.DoPlay ;{执行REAL控件的播放操作}
PlayButton.Enabled :=false;{设置播放按钮不可用}
PauseButton.Enabled :=true;{设置暂停按钮为可用}
StopButton.Enabled :=true;{设置停止按钮为可用}
end；
end;

procedure TForm1.PauseButtonClick(Sender: TObject);
var
pbPlayPause:wordbool;
begin

if RealAudio1.CanPlayPause (pbPlayPause) then
{当可以进行暂停设置时再进行操作}
begin

RealAudio1.DoPlayPause ;{执行REAL控件的暂停功能}
PauseButton.Enabled :=false;{设置暂停按钮不可用}
PlayButton.Enabled :=true;{设置播放铵钮为可用}
end；
end;

procedure TForm1.StopButtonClick(Sender: TObject);
var
pbCanStop:wordbool;
begin

if RealAudio1.CanStop (pbCanStop) then
{当能够进行停止操作时再进行程序设置}
begin

RealAudio1.DoStop ;{执行REAL控件的停止功能}
StopButton.Enabled :=false;{设置停止按钮为不可用}
PauseButton.Enabled :=false;{设置暂停按钮为不可用}
PlayButton.Enabled :=true;{设置播放按钮为可用}
end；
end;

procedure TForm1.MuteButtonClick(Sender: TObject);
var
pbmute:wordbool;
begin

pbmute:=RealAudio1.GetMute (pbmute) ;{得到当前的静音状态}
RealAudio1.SetMute (not pbmute);{设置当前静音状态的相反操作}
if pbmute then
{根据情况判断并设置静音按钮的CAPTION}
MuteButton.Caption :='闭音(&M)'else

MuteButton.Caption :='开音(&M)';
end;

procedure TForm1.QuitButtonClick(Sender: TObject);
begin

RealAudio1.FreeOnRelease ;
close;{释放资源并关闭程序}
end;

运行以后，打开一部电影，只有声音，没有图象，请问我该怎么做？希望高手指点（最好具体点）谢谢

使用delphi 自代的MediaPlayer不是很好吗？
并且可全屏。

用MediaPlayer吧...易用又清楚...

[]如果可以替代的话我也不问了。希望高手指点。万分感谢。

RealAudio是一个音频播放控件，大哥，你真的不知道Audio是音频吗？？

哦，我真不知道，谢谢了，初学delphi。

cnzhw007,其实real audio是可以播放视频的，只要在real audio的controls的属性中加入imagewindow就可以打开视频播放窗口。PS：[]还我100分，5555