delphi自带Mediaplay控件的问题。(100分)

G

guist

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #1

用delphi自带Mediaplay控件做播放器，遇到几个问题。
1、电影播放界面大小是不定的，那么如何在打开后调整播放器的播放界面大小和电影一样，
2、控件的快进和后退属性好象不起作用，如何实现快进和后退，
3、如何计算当前播放的时间。

 

天

天煞黑子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #2

1.用SCREEN.WIDTH AND SCREEN.HEIGHT 来定义。
2。mediaplayer1.back;
and mediaplayer1.next.
3.mediaplayer1.track;

 

N

NeutronDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-11

• #3

1: Mediaplayer1.DisplayRect:=Form2.ClientRect;
2: 在Mediaplayer的OnClick事件中加入
case Button of
btNext:Medeaplayer.paly;
.....
3:时间麻，
好了，干脆我给你个简单的例程如何，Show Me Email!!!
绝对原创！

 

G

guist

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #4

我的邮箱为guisthnpy@21cn.com

 

T

tonycxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #5

楼上的老兄，能否给我也一份
tonycxy@yeah.net

 

L

langin3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #6

能否给我也一份
langin3@163.com

 

电

电猛LimIt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-07

• #7

还是用我的方法比较好,我试过delphi自带Mediaplay的在播放AVI，MP3,和DAT时,用
Mediaplay上的按钮效果是不同的,而我现在用的根本就不是它
以下是我的方法:
快进
try
mp.Position :=mp.Position+6000;
mp.Play
except
exit;
end
快退
try
if mp.Position-6000<1 then

mp.Position :=1
else

mp.Position :=mp.Position-6000;
mp.Play
except
exit;
end

请多指教

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-08

• #8

时间？用timer，自己把position（莫认为毫秒）换算成HH:MM:SS就行了