Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как заставить MediaPlayer проигрывать в fullscreen режиме [D5, Win95/98, WinME, Win2k]

пена © (2002-06-24 17:26:00)
Как заставить MediaPlayer проигрывать в fullscreen режиме по нажатию кнопки и чтобы не очень тормозило (ведь даже в самом MediaPlayer при развертывании на весь экран сильных тормозов не наблюдается)?????

Groove (2002-06-26 00:47:00) [1]
да, да... Спасибо большое... Я допёр! УРА!!! я очень рад!!! =)

Proton (2002-06-25 21:19:00) [2]

> Groove

Определяентся очень просто ты когда развернеш на полный экран -
получаеш максимальный рамер экрана (размеры развернутого окна)
Так вот сразу DisplayRect не задавай а посмотри какой реальный
размер фильма
Label1.Caption := IntToStr(MediaPlayer1.DisplayRect.Top);
Label2.Caption := IntToStr(MediaPlayer1.DisplayRect.Bottom);
Label3.Caption := IntToStr(MediaPlayer1.DisplayRect.Left);
Label4.Caption := IntToStr(MediaPlayer1.DisplayRect.Right);
после этого простой пропорцией вычисляй какой размер фильма
тебе надо
1) вычисляй по формуле
Y фильм * X экран / X Фильм = Y Экран
2) вот ты и получил пропорциональный размер экрана
но это не все полуенный размер экрана может быть больше
реального тогда считай наоборот
3)
X фильм * Y экран / Y Фильм = X Экран
Ну как по центру это выровнять надеюсь сам знаеш ?
В зависимости устанавливай размер панели(т.е. дисплея для плеера)

Groove (2002-06-25 16:33:00) [3]
А вы не подскажите как сделать, чтобы видео растигивалось на панель пропорционально нормальным размерам. Ну или подскажите как узнать разрешение видеоролика.

Proton (2002-06-25 12:45:00) [4]

> fore_3 (25.06.02 12:21)

Немного уточню
если ты имееш введу TMediaPlayer
то
BorderStyle := bsNone; /// вот это как раз и позволит развернуть на полный экранй
WindowState :=wsMaximized;
Panel1.Align := alClient;
MediaPlayer1.Display := Panel1;
MediaPlayer1.DisplayRect := Panel1.BoundsRect;
MediaPlayer1.Play;

// а еще поставь свойство нона - всегда сверху
FormStyle:=fsStayOnTop

fore_3 (2002-06-25 12:21:00) [5]
Извиняюсь, это свойство есть в dspack...
А для стандартного mediaplayer можно так:

VideoForm - пустая форма

VideoForm.WindowState := wsMaximized;
MediaPlayer1.Display := VideoForm;
MediaPlayer1.DisplayRect := VideoForm.ClientRect;

А лучше спиши dspack, удобнее и поддерживает много файлов...

пена (2002-06-25 10:38:00) [6]
А как же тогда все-таки сделать полноэкранный режим?

Groove (2002-06-25 10:34:00) [7]
Извените, что прирываю вашу беседу, но свойства isfullscreen нету!

пена (2002-06-25 10:23:00) [8]
Извиняюсь, но можно немного поподробнее, где именно искать это свойство?

fore_3 (2002-06-25 00:18:00) [9]
Посмотри свойства медиа плеера, там есть свойство isfullscreen... Присваиваешь true будет во весь экран, false - обратно...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »