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

jgl1010 2004-04-17 02:15:43

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里面是没问题的。

...全文

1803 22 打赏收藏转发到动态举报

写回复

用AI写文章

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

mynameisking 2004-07-28

打赏
举报

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

Frank.WU 2004-07-25

打赏
举报

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;

wenjianyao 2004-07-25

打赏
举报

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

wlw88 2004-07-23

打赏
举报

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

hrbpengf 2004-07-23

打赏
举报

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

bnabinge 2004-07-23

打赏
举报

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;