全屏播放(0分)

  • 主题发起人 主题发起人 henu81
  • 开始时间 开始时间
H

henu81

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用mediaplayer控件播放*.avi *.dat 等文件时实现全屏播放?谢谢![:)]
 
自定义一个全屏的窗口放就可以了
 
《摘自Media Play SDK》
Player.fullScreen
The fullScreen property specifies or retrieves a value indicating whether video content is played back in full-screen mode.

Syntax

player.fullScreen

Possible Values

This property is a read/write Boolean.

Value Description
true Video content is played back in full-screen mode.
false Default. Video content is not played back in full-screen mode.
 
假设你的主程序用Form1,Form2为播放窗口,那么请用以下函数:
MediaPlayer1.DisplayRect := Rect(1,2,3,4)
Form2.SetBounds((800 - 352) div 2 + mon,20,352,288)

1、2、3、4参数代表:
1 窗口左上角X方向坐标;
2 窗口左上角y方向坐标;
3 窗口宽度
4 窗口高度

 
定义一个FORM,
FORM的
BorderStyle:= bsNone;
WindowState := wsMaximized;
mediaplayer的display指向这个FORM就行了。
 
可自己做一个播放窗口。
或者安装VB(ActiveX)的MediaPlayer,用它来做程序,支持*.dat文件,且能全屏。
Delphi自带的MediaPlayer好象不能播放*.dat文件,说白了,就是不能播放VCD。
 
To 牛牛:MediaPlayer是封装了windows的媒体函数
windows能放什么,MediaPlayer就能放什么
你的windows没有装播放mpeg的插件就不能放VCD
我的电脑装了插件,MediaPlayer连ASF,wmf都可以放,不要说VCD了
 
窗口全屏
用api隐藏任务栏
 
请问:可不可以用api函数直接实现全屏呢?
 
后退
顶部