动态创建TMediaPlayer播放为什么出错???(50分)

P

patriot

Unregistered / Unconfirmed
GUEST, unregistred user!
var
MyPlayer:TMediaPlayer;
begin

MyPlayer:=TMediaPlayer.Create(Form1);
MyPlayer.Parent:=Form1;
MyPlayer.AutoOpen:=True;
if OpenDialog1.Execute then

MyPlayer.FileName:=OpenDialog1.FileName;
MyPlayer.Play;
end;


错误信息为 No MCI Device Open 各为帮忙,在线等待!谢谢
 
var
MyPlayer:TMediaPlayer;
begin

MyPlayer:=TMediaPlayer.Create(Form1);
MyPlayer.Parent:=Form1;
MyPlayer.AutoOpen:=True;
if OpenDialog1.Execute then

MyPlayer.FileName:=OpenDialog1.FileName;
MyPlayer.Open;
MyPlayer.Play;
end;
 
谢谢楼上兄弟,阴沟里翻船啊
 
兄第,错了。
你的视频卡只支持单一输出。在运行前先关掉所有的mdplayer。
 
顶部