多媒体播放程序(30分)

风

风之痕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #1

我制作一个多媒体播放程序，部分代码如下：
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin

mediaplayer1.Close;
end;

意图关闭窗口时也关闭播放,可是运行关闭窗口后CD唱片仍在播放,为什么?

 

C

caowei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #2

mediaplyer1.stopl;
mediaplyer1.close;

 

L

lslzf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #3

必须同时关闭

 

勇

勇敢者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-19

• #4

mediaplyer1.wait;
mediaplyer1.close;

 

飞

飞来石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-29

• #5

stop first

 

C

cysnowboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-07

• #6

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin

mediaplayer1.Stop;
mediaplayer1.Close;
end;

可以了

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #7

if(mediaplayer1.mode=mpPlaying) then

mediaplayer1.stop;
不用加什么close吧，delphi自己会解决的

 

M

mei_mei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #8

还是加mediaplayer1.close 比较好

 

V

vickymade

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #9

还是加上比较好,这样可以提早释放资源.`

 

W

ww1234ww

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #10

gz