назад | содержание | вперед

Проигрыватель видеофайлов

При помощи приложения, разработанного в предыдущем разделе, можно воспроизводить и видеофайлы в формате AVI. Для этого необходима небольшая доработка: потребуется назначить другой тип устройства для элемента управления MMControlCDPlayer (сравните тексты кода, указанного ниже, и предыдущего). В результате мы превратим проигрыватель звуковых файлов в проигрыватель для файлов в формате AVI (рис. 12.5).

Рис. 12.5. Вид проигрывателя файлов AVI в режиме выполнения

Private sub Form_Load()

MMControlCDPlayer.Notify = False

MMControlCDPlayer.Wait = True

MMControlCDPlayer.Shareable = False

MMControlCDPlayer.DeviceType = "AVIVideo"

End Sub

Private Sub cbFindFile_Click ()

cdPlayer.ShowOpen

MMControlCDPlayer.FileName = cdPlayer.FileName

MMControlCDPlayer.Command = "Open"

End Sub

Private Sub Form_Unload(Cancel As Integer)

MMControlCDPlayer.Command = "Close"

End Sub

Приложение работает аналогично проигрывателю звуковых файлов (рис. 12.4). Изображение из файла выводится в окно просмотра. Необходимо заметить, что беспокоиться об открытии этого окна не требуется, так как оно появляется по умолчанию для файлов в формате AVI.

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

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

Приложение с выводом изображения в объект формы показано в режиме выполнения на рис. 12.6.

Рис. 12.6. Вид проигрывателя файлов AVI в режиме выполнения с выводом данных в пользовательское окно

назад | содержание | вперед