mediaplayer播放时出现‘no MCI device open’的错误，不知所措！！

[jgl1010]

mediaplayer已经在播放一首歌，现在我想换一首，通过以下代码实现
procedure TForm1.N12Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.stop;
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
mediaplayer1.Play;
end;
end;
可是一旦选中一歌后，歌到没放，反而出现错误说‘no MCI device open’请问这是为什么？


还有个问题是我想通过一个suicheckbox来使播放的歌停止或继续，可是当我按一下suicheckbox时歌却不会停止，当我按第二下时，就会使系统用光内存，象死机一样了，请问这又是为什么？？suicheckbox里的代码如下：
procedure TForm1.suiCheckBox1Click(Sender: TObject);
begin
if suicheckbox1.Checked=true then
begin
mediaplayer1.stop;
end else begin
mediaplayer1.Play;
end;
end;

注：我用的界面是suiform，会不会这个有影响，因为好象代码用在checkbox里面是没问题的。

[jgl1010]

outer2000(天外流星) (好象仍然不行，老问题

[hotdog911]

我以前尝试做一个mp3播放器的时候也遇到过，帮顶

[bob008]

好象不用CLOSE 和STOP，在其他的地方写就没事了

[qizhanfeng]

mediaplayer1.close;
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
mediaplayer1.Play;

[jgl1010]

难道就都没有什么办法吗？？？

[jgl1010]

救命啊

[jgl1010]

help

[ztenv]

我以前也遇到过，你打开要播入的文件了吗？还有路径对吗？这个问题就是设置错误！仔细检查一下，你就发现了

[jgl1010]

对，我就是要打开的文件马上播放
我想路径用 mediaplayer1.FileName:=opendialog1.FileName;应该没问题吧

[ztenv]

先把这个路径显示出来看一下呀，看行吗？

[ztenv]

有的时候少一个“\”也是不行的

[jgl1010]

lianshaohua(永远深爱一个叫“然”的好女孩儿!)
路径显示是没问题的

[ztenv]

按照同样的方法再新建一个工程，看行吗？如果还是不行，把程序的那一部分发给我，我帮你改吧，

[ztenv]

email:[e-mail]
发了后从QQ上通知我：270366978

[bnabinge]

procedure TForm1.suiCheckBox1Click(Sender: TObject);
begin
if (suicheckbox1.Checked=true)and(mediaplayer1.mod=mpplayering) then
begin
mediaplayer1.stop;
end else begin
mediaplayer1.Play;
end;
end;

[hrbpengf]

它好像不是程序的错误
我在本机器上好使
在别人机器上就不好使
而且是有的好使，有的不好使
可能是开发环境不同
或者是有的dll没有注册

[wlw88]

是不是系统中的mediaplayer的版本不同？

[wenjianyao]

mediaplayer1.close;
mediaplayer1.stop;
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
mediaplayer1.Play;

[Frank.WU]

procedure TForm1.N12Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.stop;
mediaplayer1.FileName:=opendialog1.FileName;
MediaPlayer1.DeviceType :=dtAutoSelect;//加上這一句看看;
mediaplayer1.Open;
mediaplayer1.Play;
end;
end;

[mynameisking]

是MEDIAPLAYER的BUG，一般是出错在指定的DeviceType :=dtAutoSelect之后，它是根据你文件的扩展名来播放的，如果你的扩展名搞错了，它就会出这样的提示，比如你把*.AVI的文件改成扩展名是MPG的文件，它肯定放不了，这个有点难，你得换了MEDIAPLAYER这个控件，拿VS6自带的控件装上去就解决问题了