Необычный Avi проигрыватель

  • Автор темы Audioslave
  • Дата начала
A

Audioslave

#1
Есть такая проблемка: задается 2 плейлиста с avi-файлами - один основной, второй, скажем так, рекламы. Запускается основной плейлист и устанавливается интервал, когда он будет паузиться и запускаться второй.Когда "реклама" заканчивается, опять запускается основной ролик с места паузы. Пытаюсь сделать через MMControl...Подскажите плиз как можно:
1) вывести avi-окно без заголовка
2) вывести его сразу на весь экран
3) может есть способ полегче(получше) MMControl
 
O

Orion

#2
Могу предложить вывести avi-окно прямо в форме. Для этого в приложение необходимо добавить объект для вывода изображения и назначить направление вывода в это окно. Добавляемый объект должен иметь свойство дескриптора окна hWnd. Такие типы элементов управления есть в Visual Basic 6, и один из них — это picturebox. Рассмотрим на примере, как это можно сделать. Доработайте проигрыватель видео следующим образом:

1. Добавь в форму FormPlayer элемент управления picture, дважды щелкнув мышью кнопку PictureBox на панели элементов управления, и присвойте ему имя picview.
2. Измените код приложения в соответствии с указанным ниже:

Private Sub Form_Load()
MMControlCDPlayer.Notify = False
MMControlCDPlayer.Wait = True
MMControlCDPlayer.Shareable = False
MMControlCDPlayer.DeviceType = "WaveAudio"
MMControlCDPlayer.DeviceType = "AVIVideo"
End Sub

Private Sub cbFindFile_Click ()
cdPlayer.ShowOpen
MMControlCDPlayer.FileName = cdPlayer.FileName
MMControlCDPlayer.Command = "Open"
' Назначение окна вывода изображения
MMControlCDPlayer.hWndDisplay = picView.hWnd
FormPlayer.picView.SetFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControlCDPlayer.Command = "Close"
End Sub