请问MEDIPLAYER控件怎样实现播放VCD(DAT)?(100分)

  • 主题发起人 主题发起人 @(@
  • 开始时间 开始时间
@

@(@

Unregistered / Unconfirmed
GUEST, unregistred user!
在这个控件中怎样加VCD的驱动?播放其他的一些格式又怎么实现?谢谢.(请说详细些...)
 
not to add anything when the data is vcd
if someother format then
you can add some other library from the project
例如加入realplay就可以从project -add library 中加入realplay
 
delphi 中的mediaplayer可以播放的格式包括你机器中的windows media player 可以播放的
格式,只要你的windows media player 可以播放的格式就可以直接播放。
如mpg, mp3,etc.
mediaplayer1.play
mediaplayer1.open
mediaplayer1.close;
mediaplayer1.pause
mediaplayer1.next.........
如果是windows media player 无法播放的格式,就需要加入另外的库。如realplay
 
if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;


只要把MediaPlayer的DeviceType设为dtAutoSelect就不用操心了
 
WIN98的MEDIAPLAYER是可以播放VCD的呀,可是为什么在WIN98中编译的不能播放VCD呢,请较为详细的解释一下,
具体怎样实现请详细说明,谢谢.
 
不会吧,我自己做过一个媒体播放器就是用了MediaPlayer,在Win98下开发的,可能是你的
系统就问题吧。MediaPlayer实际上就是封装了MCI指令集,调用的是Window下的各个动态链
接库。
你指的不能播放是什么?打开.Dat文件时提示文件类型不支持吗?
 
安装一套XINGPLAYER,重启后,在用DELPHI调用MEDIAPLAYER就可播放.DAT.MPG了.
 
我做了一个程序,在2000下能正常播放VCD文件,在98下确实不行,而98下的Microsoft
Media Player是可以播放的,不知何故?
 
procedure writemci;
//定义一个过程,向ini文件写一些配置信息,以便系统能调用相应驱动程序来播放文件
begin


WritePrivateProfileString('mci extensions','mpg','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','dat','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','mpv','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','mpeg','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','cjt','MPEGVideo','win.ini');
WritePrivateProfileString('mci extensions','avi','AVIVideo','win.ini');
WritePrivateProfileString('mci','MPEGVideo','mciqtz.drv','system.ini');
WritePrivateProfileString('多媒体精灵','作者','陈经韬','smpg2000.ini');
WritePrivateProfileString('多媒体精灵','版本','2000版','smpg2000.ini');
end;

 
MEDIPLAYER控件能播放的文件格式定义都在win.ini和system.ini(mci项)中,可以修改。
注册表中也可定义。
 
在win.ini 中的 [mci extensions] 段加上 dat=MPEGVideo 就可以了
 
上楼的大哥说得对,我在WIN98中调试可以播放,但在WIN2000中却没有声音,不知道是什么原因!!
 
把扩展名dat改为mpg即可在98下用
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部