关于MediaPlayer的三个问题，请教高手 ( 积分: 100 )

  • 主题发起人 主题发起人 czw6296
  • 开始时间 开始时间
C

czw6296

Unregistered / Unconfirmed
GUEST, unregistred user!
1、如何用一个MediaPlayer控件同时播放多个文件。Windows下的MediaPlayer也不能同时播放多个文件，我用mciSendCommand可以打开多个文件，但只能最新打开的文件能播放，其他文件都会自动停止播放。我要在程序中同时播放8个文件，总不能放8个控件吧。
2、如何让多个MediaPlayer播放同一个文件，Windows下的MediaPlayer可以启动多次，可以播放同一个文件。而我的程序中总是提示“设备的名称已被此应用程序用作别名。请使用唯一的别名”。
3、在Windows用MediaPlayer可以播放的文件(如*.rm文件)，为什么在程序中用MediaPlayer控件就播放不了？我用的是自动监测类型。
第一次提问题，大伙别见笑哦
 
1、如何用一个MediaPlayer控件同时播放多个文件。Windows下的MediaPlayer也不能同时播放多个文件，我用mciSendCommand可以打开多个文件，但只能最新打开的文件能播放，其他文件都会自动停止播放。我要在程序中同时播放8个文件，总不能放8个控件吧。
2、如何让多个MediaPlayer播放同一个文件，Windows下的MediaPlayer可以启动多次，可以播放同一个文件。而我的程序中总是提示“设备的名称已被此应用程序用作别名。请使用唯一的别名”。
3、在Windows用MediaPlayer可以播放的文件(如*.rm文件)，为什么在程序中用MediaPlayer控件就播放不了？我用的是自动监测类型。
第一次提问题，大伙别见笑哦
 
To ：czw6296,

1.一个控件只能对应一个显示的屏幕，所以只能放一个文件。
2。多个MediaPlayer可以播放同一个文件。
3。Windows用的MediaPlayer的控件和您用的控件可能不一样。
 
问题2如何解决？是不是也是程序中的控件和Windows中的不一样造成的，下载新的MediaPlayer就能解决吗？我的Windows用的版本也是6.6.09.1128,程序中用的是delphi7带的，应该一样吧。欢迎继续讨论
 
1/如果放8个可以，未尝不是办法，没测过，各人看法
2/没看到过你的提示信息，网上也没找到，不知道行不行，
3、Delphi带的控件封装了Windows的控件，不过好像版本上不一定一致，

等答案
 
贴张图试试
error.gif
 
to czw6296


没睡醒还是？？
 
用actives 中的MediaPlayer控件不就和系统中的MediaPlayer一样了
 
to 小争
能否具体一点儿，我用的是System的MediaPlayer控件，ActiveX中没有MediaPlayer控件哦。
 
至于播放rm格式的问题，那是因为MediaPlayer控件不包含这个格式的解码器，所以无法播放
 
Activex的那个需要自己在Component菜单的Import Activex Control导入的
 
谢谢诸位，使用Import Activex Control导入的 Windows自代的控件可以解决问题2，但是没有了DisplayRect，原来的MediaPlayer11->DisplayRect =TRect(0,0,Panel1->Width ,Panel1->Height );如何实现
 
他本来的函数是这样的

procedure TMediaPlayer.SetDisplayRect( Value: TRect );
var
RectParms: TMCI_Anim_Rect_Parms;
WorkR: TRect;
begin
if MCIOpened and FHasVideo then
begin
{special case, use default width and height}
if (Value.Bottom = 0) and (Value.Right = 0) then
begin
with Value do
WorkR := Rect(Left, Top, FDWidth, FDHeight);
end
else WorkR := Value;
FFlags := mci_Anim_RECT or mci_Anim_Put_Destination;
RectParms.rc := WorkR;
FError := mciSendCommand( FDeviceID, mci_Put, FFlags, Longint(@RectParms) );
end;
end;

自己试着修改一下
 
windows Media Player 的 ActiveX 控件没有display属性，windows Media Player根本是没有DisplatRect属性的。
 
今天安装了Media Player9组件，感觉在打开文件时特别慢，播放窗口也有令人讨厌的黑边。
 
为什么需要Display属性呢，它是一个可以拖动改变大小的控件，直接自己带了播放界面，不需要其他容器的，我用的是9.0版本，设置URL就可以播放了

比如
WindowsMediaPlayer1.URL := 'G:/download/千王之王.wmv';
WindowsMediaPlayer1.controls.play;

参考
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1580462
标题是： 关于Windows Media Player ActiveX控件的应用 (100分)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2508724
标题是： 请教一个mediaplayer9 控件问题！！！！！ (50分)
分类：数据库-文件型

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2038949
标题是： TWindowsMediaPlayer(ActiveX) 怎么才能让出来的那个窗口没有底下的那些滑动条什么的 (50分)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2590363
标题是： 哪位大哥用TWindowsMediaPlayer(OCX),问问怎样动态控制它的显示大小及位置? (50分)

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1941826
标题是： ★★★ 是高手就进来 ★★★ (200分)
 
问题没有完全解决，答案尽管不是很理想，还是要谢谢大伙。
 
哪个没有解决，等着下锅呢[:D]
 
接受答案了.
 
分数给错了，第一次分配，没有经验。本应该把分数给Chenybin、老人家的,如何弥补哦
 
您必须登录或注册才可回复。

Similar threads

S
[教程]TToolBar.TToolButton 不同按钮下拉菜单使用同一个TPopupMenu
回复
0
查看
363
swish
S
S
[教程]使用 ZValueWatch 在主线程中监测值变化
回复
0
查看
501
swish
S
S
[ZAsync]TZAsync.Queue
回复
0
查看
658
swish
S
S
[FMX]教程：运行时动态修改 FMX 样式
回复
0
查看
770
swish
S
不
关于Delphi中DLL,BPL等无法调试的问题 - 不得闲
回复
0
查看
1K
不得闲
不
后退
顶部