请教用DELPHI中的MediaPlayer构件怎样全屏播放MPEG文件(200分)

E

element

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-15

• #1

请教用DELPHI中的MediaPlayer构件怎样全屏播放MPEG文件

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-15

• #2

procedure fullscreen;
var
wndhandle:thandle;
wndclass:array[0..50] of char;
begin

//设置窗口最大化
form1.WindowState:=wsmaximized;
//隐藏任务栏
strcopy(@wndclass[0],'shell_traywnd');
wndhandle:=findwindow(@wndclass[0],nil);
showwindow(wndhandle,SW_HIDE);
//去掉窗口的标题栏
setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE) and (not WS_CAPTION));
//设窗口为当前屏幕的宽和高
clientheight:=height;
clientwidth:=width;
end;

 

T

TeaGuy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-15

• #3

将窗体设为Mediaplayer的Display区（M控件的属性），将窗体BorderStyle设为bsNone,
需要时将窗体最大化。还应该将任务栏隐藏（这一部分代码同houling)。这样就可以全屏幕了。
别忘了退出时将它还原。

 

T

TeaGuy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-15

• #4

//刚才没有发全，补发。
将窗体设为Mediaplayer的Display区（M控件的属性），将窗体BorderStyle设为bsNone,
需要时将窗体最大化。还应该将任务栏隐藏（这一部分代码同houling)。这样就可以全屏幕了。
别忘了退出时将它还原。当然，要播放MPEG，还得将MPEG文件名字赋给M控件的FileName,然后
mediaplayer1.open;mediaplayer1.play;
应该差不多了。不行的话，再到书中找一找吧。
现今有关DELPHI的书中很多都有媒体播放的例子。
＜Delphi 3从入门到精通＞（marco cantu)中就有。

 

A

advanced

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-16

• #5

是不是DELPHI本身的MediaPlayer不支持MPEG格式的文件呀,装上超级结巴或是其他的
支持MPEG文件的播放器就可以了.

 

W

wangxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-16

• #6

主要是Mediaplayer的DisplayRect,留下emil我把代码发过去，你就把着200分给我把

 

W

wangxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-16

• #7

还是先把代码给你把，要是不懂再留emil：
if (OpenDialog1->Execute())
{
MediaPlayer1->FileName = OpenDialog1->FileName;
Form2->BorderStyle=bsNone;
Form2->WindowState=wsMaximized;
MediaPlayer1->Display = Form2;
MediaPlayer1->Open();
MediaPlayer1->DisplayRect=Form2->ClientRect;
Form2->Show();
MediaPlayer1->Play();
}

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-16

• #8

在要播放的窗口上放一个panel 控件,
设置它的 active 为 client,
将mediaplayer的display属性设置播放窗口上的 panel.

将panel的双击事件加下我上面的哪段代码即可.
要恢复原来的窗口,只要改为 :

form1.WindowState:=normal;
//显示 任务栏
strcopy(@wndclass[0],'shell_traywnd');
wndhandle:=findwindow(@wndclass[0],nil);
showwindow(wndhandle,SW_SHOW);
//显示窗口的标题栏
setwindowlong(handle,GWL_STYLE,getwindowlong(handle,GWL_STYLE) and (WS_CAPTION));


如果将这两段代码加一个开关标识,当双击一次就全屏,再双
击一次又恢复原窗口,这样就可以像解霸一样播放 mpeg了.

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-16

• #9

create a new form,
mediaplayer1.displayrect:=form.clientrect;

 

C

cz06

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-17

• #10

试试这个？？
with Form1do
begin

BorderStyle:=bsNone;
WindowState=wsMaximized;
FormStyle = fsStayOnTop;
end;

with MediaPlayer1do
begin

Close;
Filename := 'Your.mpg'
DeviceType := dtAutoSelect;
Display := Form1;
Open;
Play;
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-28

• #11

多人接受答案了。

 

L

lu88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-22

• #12

请问 element 你是怎么用mediaplayer播放mpeg文件的，我播放avi和dat正常，但当播放mpeg文件时，图象显示不出来，怎么回事？请帮忙！