急问:如何播放VCD光碟 (悬赏200分)(200分)

  • 主题发起人 主题发起人 tg
  • 开始时间 开始时间
T

tg

Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现象<金山解霸>,<powerDVD>等播放器中的"播放VCD影碟"的功能
如果用TMediaPlayer如何实现,还要配置filename项吗?
如果VCD片,不是电影而是有多首歌曲的卡啦OK,是否依然?
 
研究一下他以前的C源码如何
 
一定要配置FileName项,你可以这样做:
用一个Listbox,把要播放的文件名放进去,然后从第一项开始播放,目录名自己控制
播放类型选择"自动",还要配置"播放面板"
 
在光驱的mpegav目录下(放心所有的VCD都是这个目录),有一个或多个*.dat文件,
你可以把这些文件找出来一个连续一个播放。
Tmediaplayer的设置,
Devicetype:=dtAutoSelect;
AutoOpen:=false;
Display:=播放的屏幕放在哪儿?//例如form1.handle;
filename:=???// 播放VCD必须要,播放CD等则不需要

然后播放时执行mediaplayer1.open;
mediaplayer1.play;

 
en, 就是这样的, 金山解霸也是自己找文件名, 然后添加到播放列表中的.

目录是F:/mpegav/*.dat, 其中F:是光驱盘符.

另外, 可能要注意的就是文件名排序问题, 如:
avseq1.dat和avseq10.dat, avseq2.dat这类的序列, 操作系统,肯定是这么排的,
但实际序列不是这样的.
 
看看mm.dll底层的东西。
 
http://go.163.com/~lovejingtao/
多媒体精灵1.6
程序带有1.6版全部源代码!(我没有下载歌载舞)

你去看看也许有帮助。

 
先设定mediaplayer.filename
然后mediaplayer.open;
mediaplayer.play
 
多人接受答案了。
 

Similar threads

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