各位大哥,有没有播放real或其它声音文件的控件供小弟使用呢?小弟感激不尽。(100分)

  • 主题发起人 主题发起人 文鹰
  • 开始时间 开始时间

文鹰

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用delphi来实现播放real文件的一个播放器。
 
1.先安装real play 8.0 plus
2.选择component|import Activex control菜单,从弹出的对话框中选择
Real Player ActiveX Control Library(Version 1.0)再单击install安装该
控件即可.
 
我从另一个论台上得到的,你可试试:
如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的,比如启动时间慢,占用空间大,留有历史纪录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer播放器。下面我将向大家介绍如何利用Delphi来帮助你实现这一愿望。
前提:你的机器中必须装有RealPlayer Plus播放器,因为我们要用到其自带的ActiveX控件。
首先,我们要在Delphi中导入所需的ActiveX控件。点击菜单“component->Import ActiveX Control...”打开“Import ActiveX”对话框,在“Import ActiveX”列表框中,我们可以看到Windows中所有注册的AxctiveX控件。选择其中的“RealPlayer ActiveX Control Library(Version 1.0)”控件。然后单击“Install”按钮。
回到Delphi主界面,你会发现在VCL面板中的ActiveX标签中增加了一个名为RealAudio的组件。我们先把它放入窗体中。不过在默认情况中RealAudio组件没有视频播放窗口,也就是只能播放声音。这是我们不愿看到的,这时我们可以在RealAudio组件的Controls属性中添加如下代码:
IMAGEWINDOW,CONTROLPANEL,STATUSBAR
其中:IMAGEWINDOW、CONTROLPANEL、STATUSBAR分别表示显示视频播放窗口、控制条状态条。
添加代码后,我们可以发现控件外观已经改变成了视频播放窗口形状。然后设置Align属性为alClient,使播放窗口可以随窗体的变化而变化,方便大家在观看影视动画时可以随意拉动播放窗口大小。
然后再在窗体中加入TMainMenu组件、TOpenDialog组件各一个。用于选择并打开播放影视文件。双击TMainMenu组件,进入菜单设计器。在这里我们要设计一个菜单项File,及其2个子菜单Open、Exit。设计完毕后,双击Open添加如下代码:

if OpenDialog1.Execute then
begin
RealAudio1.source:=OpenDialog1.FileName;
RealAudio1.doplay
//打开并启动播放器
End;

双击Open添加如下代码:
Application.terminate
//终止程序运行
为了在打开一个文件时,便于用户选择文件,要将OpenDialog组件的Filter属性设置如下:所有媒体文件(*.rm,*.ram,*.ra,*.swf,*.mp3)|*.rm;*.ram;*.ra;*.swf;*.mp3|*.*|*.*。
最后就可以进行编译、运行了。此程序在win Me/Delphi5.0下调试通过。
 
我照做了,可是看realplayer时只能听见声音,看不见图形的。
还动用了set…('InmapWindow')//具体的记不住,我以后看了再补上。
可还是不能用,搬到VB上就立马成功了。
不知道是怎么会事。
 
装了realplayer 的*.ocx就可以了。
仔细看看看看他的属性和方法
 
我这用得挺好
 
发布程序,还的安装realplay才能使用,另好像在win2k下有问题(d6下编译)
 
我已接受ljqljq意见。
 
后退
顶部