Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как проиграть avi на весь экран, хочу пример. 
:(
    Опции темы
proger
Дата 12.11.2004, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 400
Регистрация: 10.10.2004

Репутация: нет
Всего: 1
Как проиграть avi на весь экран + со звуком!
PM MAIL   Вверх
p0s0l
Дата 12.11.2004, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112
1) Можешь сделать форму с BorderStyle = bsNone, WindowState = wsMaximized, на форму положить Panel1 с Align = alClient,
и у MediaPlayer выставь Display = Panel1
Будет тебе во весь экран фильм smile
Только перед проигрыванием (MediaPlayer1.Play) сделай:
MediaPlayer1.DisplayRect := Rect(0, 0, Screen.Width, Screen.Height);

2) Если форму коверкать не хотца, то можно заменить MediaPlayer1.Play такой командой:
Код
uses MMSystem;

const
 MCI_MCIAVI_PLAY_FULLSCREEN = $02000000;

procedure TForm1.BitBtn1Click(Sender: TObject);
var pp : MCI_PLAY_PARMS;
begin
 pp.dwCallback := Handle;
 pp.dwFrom := 0;
 pp.dwTo := MediaPlayer1.Length;
 MediaPlayer1.DisplayRect := Rect(0, 0, Screen.Width, Screen.Height);
 mciSendCommand (MediaPlayer1.DeviceID, MCI_PLAY, MCI_MCIAVI_PLAY_FULLSCREEN, DWORD(@pp));
end;


3) Проигрывать через DirectShow - не намного сложнее, чем через MediaPlayer, но даёт больше возможностей...
Для примера смотри простой примерчик в DRKB:
Работа с графикой и мультимедиа - DerectX, OpenGL - Что такое DirectShow?



--------------------
С уважением, г-н Посол.
PM   Вверх
proger
Дата 14.11.2004, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 400
Регистрация: 10.10.2004

Репутация: нет
Всего: 1
Как проиграть со звуком через MediaPlayer?
PM MAIL   Вверх
p0s0l
Дата 14.11.2004, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112
Через него и так со звуком играется...
Если не слышен звук - значит, скорее всего, нет соответствующего аудиокодека...



--------------------
С уважением, г-н Посол.
PM   Вверх
proger
Дата 14.11.2004, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 400
Регистрация: 10.10.2004

Репутация: нет
Всего: 1
Спасибо!
PM MAIL   Вверх
proger
Дата 14.11.2004, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 400
Регистрация: 10.10.2004

Репутация: нет
Всего: 1
Создал сам форму как ты посоветовал, а как теперь сделать, что бы она закрывалась при нажатие ESCAPE или соч. клав. ALT+X?Через procedure Taboutform.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); не получается???
PM MAIL   Вверх
p0s0l
Дата 14.11.2004, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112
Код
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (ssAlt in Shift) and (Key = Ord('X')) then Close;
 if (Key = VK_ESCAPE) then Close;
end;
Возможно, еще надо выставить KeyPreview в True...



--------------------
С уважением, г-н Посол.
PM   Вверх
proger
Дата 15.11.2004, 11:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 400
Регистрация: 10.10.2004

Репутация: нет
Всего: 1
Спасибо, дело было в KeyPreview, я такой жу код писал, а он не пахал, но теперь все ОК!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0781 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.