.avi

[Константиин]

Как воспроизвести .avi фаил на весь экран???
Заранее благодарен!!!

[Sur]

Ты его как-нибудь уже воспроизводишь? или только начал?
а в общем варианты:
1. mcisendstring
2. directshow
3. avifil32.dll

[Константиин]

Допустим надо чтобы пpи нажатии какой-нить кнопки над ней выводилась
авишка с чем-либо:
1. Hатягиваешь над кнопкой пикчеpбокс (назовём его avi_proector) и ставишь в
его свойствах .visible=false
2. Выбиpаешь в меню Project - > components - > Microsoft Multimedia Control
(MMControl). В ToolBox появится новый компонент такая иконка с ноткой.
3. Hатягиваешь этот MMcontrol1 на фоpму, делаешь его .visible = False,
а так-же в пpопеpтях пpисваиваешь ему имя авишки, котоpую надо пpоигpывать.
4. в Form_Load пишешь:

MMcontrol1.Notify = False
MMcontrol1.Wait = True
MMcontrol1.Shareable = False
MMcontrol.hWndDisplay = avi_proector.hWnd 'выводим авишку на кpтинку, без pамки
MMcontrol1.DeviceType = "AVIVideo"

5. В коде кнопки, активиpующей авишку пишешь

AVI_Proector.visible = True
MMcontrol1.command = "open"
MMcontrol1.command = "play"

[Oxygen]

А по-моему, проще использовать MediaPlayer. С ним попроще работать. Только я не знаю, как убрать сплеш, который вылазит при начале прокрутки.

[Dex]

Предлагаю такой способ через MediaPlayer:
Добавить на форму кнопку и MediaPlayer.
Изменить вручную так как програмно не получится
Form1.BorderStyle=0
В кнопку поместить:

Код: Выделить всё

MediaPlayer1.ShowControls = False
Form1.WindowState = 2
MediaPlayer1.Width = Form1.Width
MediaPlayer1.Height = Form1.Height

Будет во весь экран!
Токо перед началам ни забудь файл для просмотра
вставить а то смотреть бедет нечего.

[Gfif21]

MMcontrol.hWndDisplay = avi_proector.hWnd

Вот на этой строчке вылетает ошибка:

Run-time error '424':

Необходим объект

Как это исправить?

[Gfif21]

MMcontrol.hWndDisplay = avi_proector.hWnd

Вот на этой строчке вылетает ошибка:

Run-time error '424':

Необходим объект

Как это исправить?

Упсс... создал заново стандартный exe, поместил контролы, написал код - ошибка не выскочила, программа запустилась!

Но!!!
После нажатия на кнопку PictureBox становится видимым, но видеоизображения нет, идет только звук

Как теперь это исправить?

[Gfif21]

MMcontrol.hWndDisplay = avi_proector.hWnd

Вот на этой строчке вылетает ошибка:

Run-time error '424':

Необходим объект

Как это исправить?

Упсс... создал заново стандартный exe, поместил контролы, написал код - ошибка не выскочила, программа запустилась!

Но!!!
После нажатия на кнопку PictureBox становится видимым, но видеоизображения нет, идет только звук

Как теперь это исправить?

Уффф... Добил все-таки проблему. Оказывается все дело в том, что видео было сжато кодеком 3ivx. Попробовал сжать DivX - теперь картинка есть.

[Gfif21]

Гы, у меня новый вопрос:

Что надо - в Окне1 показывается заставка игры (*.avi), по окончании заставки скрываем Окно1 (Окно1.Hide) и показываем Окно2 (Окно2.Show) с менюшкой.

Имеем - если написать так

Код: Выделить всё

MMcontrol1.Notify = False
MMcontrol1.Wait = True
MMcontrol1.Shareable = False
MMcontrol.hWndDisplay = avi_proector.hWnd
MMcontrol1.DeviceType = "AVIVideo"
AVI_Proector.visible = True
MMcontrol1.command = "open"
MMcontrol1.command = "play"
Окно1.Hide
Окно2.Show vbModal, Me


то Окно1 скрывается, а Окно2 показывается сразу же после запуска заставки.

Вопрос: как сделать так, чтобы команды Hide и Show были выполнены после окончания видеоролика?

[Gfif21]

Ну типа я сам дошел до решения.