再次询问如何播放MPEG文件的问题(100分)

  • 主题发起人 大白鲨
  • 开始时间
大

大白鲨

Unregistered / Unconfirmed
GUEST, unregistred user!
要求能播放视屏(象Mediaplayer播放avi一样),没有版权问题.

以前有这样的问题提出,但我看完后还是没有掌握,
所以请能在说明使用方法方面详细一点!
先谢了!
 
www.vclxx.com上有控件的。
 
你用ActiveMovie控件不能放吗?不用它用ActiveMovie的COM类型库也行.
 
g622,
很遗憾，我这去不了vclxx.com网站。本来以前有网友在此回答了这问题的可是他
提供的DCaviplay控件，我安装后不知如何使用。甚至于找都找不到，不知它注册到
哪里去了。假如有谁知道如何使用DCaviplay或者贴一个此类的控件以供下载，我
不胜感谢！

program，
ActiveMovie控件是什么？
我用的是D3，好象没有这个东东，而我也是头一次听说。还望能详细指教。

另外我一直很奇怪，新版的Win98的媒体播放器不是可以播放MPEG文件么？
为什么Delphi里的媒体播放器不能照此实现呢？
要能这样一定可以省去不少麻烦。
 
利用微软的Meida Player 6.x提供的功能挂接进去即可。
 
zeropoint，
你所指的挂接是何意？
是指用DELPHI所编程序调用Meida Player 6.x还是别的意思？请说清楚一点吧！

还有假如用程序调用的方法，岂不是不能设置参数？那么我要设置播放区域的话又应如何处理呢？
 
ActiveMovie OCX是win98自带的，你可以在Delphi里把它引入（import
ActivX).然后就能使用了。

Win98的媒体播放器和Delphi的媒体播放器组件不是一回事。

其实用Delphi的TMediaPlayer也可以放Mpeg,前提是你已装
了一些提供解码引擎的播放器，比如常见的Xing Player。
然后把TMediaPlayer的DeviceType设置为dtAutoSelect，
你的Delphi程序就能自动调用Xing的引擎播放Mpeg了。
 
其实用Delphi的TMediaPlayer也可以放Mpeg.
opendialog1.execute;
mediaplayer.devicetype:=dtautoselect
mediaplayer.filename:=opendialog1.filename
 
cheka,
关于如何载入ActiveMovie的方法你可不可以说详细些？
呵!不好意思我还听不懂.
是不是用coｍponent菜单下的import ActivX Control项载入?
可是我用它载入MICROSOFT ActivXMovie Control(VERSION2.0)时程序报错,
错误信息是:List index out of bounds(2),但载入别的还可以.

是不是因为我用的是DELPHI3的原因呢?

我手头没有Xing Player,所以不能试试效果,想问一声有解霸五怎么不行?

阿蒙,
你说的方法我早试过,但是行不通.
虽然不是用打开对话框,可是用mediaplayer.filename:=文件名的方法不是和这一样么?
你说这种方法行可能是因为你的机上装有Xing Player吧.可惜我手头没有否则可以试试.
 
你装上jet audio 也可以，Delphi可以自动调用它的引擎播放Mpeg。
 
是这样的，至于为什么会报错我就不知道了，我用的挺好啊。

那还是换用TMediaPlayer组件吧,我寄给你一个xmdrv95.dll
（不大，9.5k)把它放入某个子目录，如C:/xing/
然后在C:/windows/目录下的System.ini的[MCI]项下加入

MPEGVideo=C:/XING/xmdrv95.dll
ReelMagic=C:/XING/xmdrv95.dll

这个办法是我某天看帮助时偶然想到的，未经验证，如果不行
只有去下一个Xing安装了。反正很好找，哪儿都有的，如
http://www.download.com.cn

 
不好意思，刚才瞎说来着，光一个xmdrv95.dll没用，还需要另外几个
dll,这么一来跟完整的Xing也差不多了，还是去下吧。
 
习习，Kang
 
谢谢各位的指点，假如我装了Xing player后才能播放mpeg文件的话，是不是意味着
我在别人的机器上想用这样编成的程序，也必须装载Xing player才行呢？

另外，有谁可以回答以下这个问题么。
我在三台机上都试过装载ActiveMovie ，可是均报错（错误信息如上所提）。
而我同样在这三台机上装windows media player(version1.0)时却很意外的发现
只有一台机可以装载，另两台均报错。错误提示是：List index out of bounds(１),
为什么会这样呢假如，有谁知道请能解释一下。
另外这样装载的Win98的媒体播放器可以支持mpeg，并且对以前一位网友所问的如何
淡入淡出mpeg声音这个问题，通过这个媒体播放器可以较容易解决，因为它的音量控制很直接。
不过它对与我好像还是没用，因为我不想让它下面的文件按钮和声控按钮等显示出来。
所以我现在有两个疑问，
1、为什么装载MICROSOFT ActivXMovie Control(VERSION2.0)时程序报错（我使用的是DELPHI3）；
2、假如Xing player必须在用户机上也装载的话，还有什么播放mpeg简单易行的方法
 
应该不需要。因为本来 mediaplayer　就可以播放这种格式。那还需别的　ｄｌｌ　
文件！！
 
按你所说，以下的程序应该可以了吧？（未注明的属性均使用默认）
procedure TForm1.Button1Click(Sender: TObject);
begin

if opendialog1.Execute then

mediaplayer1.filename:=opendialog1.filename;
mediaplayer1.Play

end;

可是程序并不能支持MPEG文件,错误信息是:'no mci device open'
难道在你机上不是如此么?
 
注意:

要把TMediaPlayer的DeviceType设置为dtAutoSelect！
而且在Play前，要MediaPlayer1.Open;

用ActiveMovie是可以去掉下面的播放键的。有一个属性，好像是
display,记不清了，你查查吧。

顺便也问一句，如果做商业软件，用xing play的dll好像是侵权吧？




 
>>2、假如Xing player必须在用户机上也装载的话，还有什么播放mpeg简单易行的方法
用户机不要装的，我试过。
>>顺便也问一句，如果做商业软件，用xing play的dll好像是侵权吧？
是的。


 
顺便问一下，用VB的dll为什么不是侵权？？
 
cheka,
你说要把TMediaPlayer的DeviceType设置为dtAutoSelect！
而且在Play前，要MediaPlayer1.Open;
提醒的很对.
我是忘了说明TMediaPlayer.AutoOpen的属性已设为TRUE;
至于DeviceType默认值不就是dtAutoSelect么?

wjiachun,
原来用户机不要装的,谢谢你告诉我这信息.
cheka提供的站点我去不了,看样子要赶快去找Xing player才行.

至于你们提是否侵权的问题,我想告诉大家一个好消息.
只要是用D版Win98和Delphi的人都在侵权哟!
呵.

 
您必须登录或注册才可回复。

Similar threads

X
如何在unidac 中执行一次查询获得多个数据集？ - xalion
回复
0
查看
542
xalion
X
X
如何在unidac 中执行一次查询获得多个数据集？ - xalion
回复
0
查看
1K
xalion
X
S
[FMX] FMX 拖放支持的一处小问题修正
回复
0
查看
578
swish
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部