ActiveX WindowsMediaPlayer控件如何播放VCD(50分)

  • 主题发起人 主题发起人 ayu310
  • 开始时间 开始时间
A

ayu310

Unregistered / Unconfirmed
GUEST, unregistred user!
特别是VCD中有多个片段文件,如AVESQ01.dat,AVESQ02.DAT等等
 
晕,你用WindowsPlayer直接打开就可以播了三
如果你要循环播放的话
你加一个for 循环
如:
var
filename: string;

for i := 0 to 100do

begin

filename := '这里是光驱盘符如 F:/Mpegav' + 'avseq' + Format('%2d', );
if FileExist(filename) then

//这里把文件写入一人 TStringList
else

Break;
end;
 
这个TStringList 如何写入WindowsMediaPlayer 呀,用WindowsMediaPlayer1.URL 吗?我是新手,请指教!
 
var
test: TStringList;

begin

WindowsMediaPlayer1.URL := 'd:/1.mpg';
//test.Strings[0];
WindowsMediaPlayer1.controls.play;
end;
 
谢谢,也就是说
WindowsMediaPlayer1.URL := 'd:/1.mpg';
//test.Strings[0];
这一句可以重复执行,这样就把三个或多个媒体文件放到windowsmediaplayer中,然后按顺序播放,是吗?
 
不可以,
一次只能一个,
你如果用了 TStringList的话,
可以写一个循环,
var
test: TStringList;
//这个是全局变量,你先写入了字符串路径的

WindowsMediaPlayer1.URL := test.Strings[0];
WindowsMediaPlayer1.controls.play;
 
如果你要用TWindowsMediaPlayer的列表来循环播放的话
你要使用下面这人
IWMPPlaylist
 
谢谢你耐心回答我的问题,能不能把这个类的使用方法告诉我
 
我也用不来哈,我只是去看了看导入的接口而已,你在网上搜搜
 
终于搞定,可以自动播放VCD了
 
接受答案了.
 
后退
顶部