Работа с видео

Во время разработки прикладного приложения может возникнуть необходимость воспроизведения на форме какого-либо видеофайла. Например, это может быть краткая призентация с информацией о приложении или видео, которое будет проигрываться во время выполнения какого-либо длительного процесса. Для воспроизведения видео можно воспользоваться проигрывателем Windows Media, который входит в состав операционных систем Windows. Проигрыватель можно загрузить в компонент OleDocumentBox. COM-объект Windows Media имеет программный идентификатор «MediaPlayer.MediaPlayer.1», укажите его в методе CreateObject для создания экземпляра проигрывателя:

Class TESTForm: Form
    OleDocumentBox1: OleDocumentBox;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        OleDocumentBox1.CreateObject("MediaPlayer.MediaPlayer.1");
    End Sub TESTFormOnCreate;
End Class TESTForm;

Далее, используя свойство OleObject, можно управлять проигрывателем. Укажите проигрываемый файл:

OleDocumentBox1.OleObject.SetProperty("FileName", "C:\Video\start.avi");

По умолчанию осуществляется автоматическое воспроизведение, если необходимо его отключить, то задайте свойству «autoStart» значение False:

OleDocumentBox1.OleObject.SetProperty("autoStart", False);

Используйте методы Play, Pause, Stop и другие для управления воспроизведением файла:

OleDocumentBox1.OleObject.Invoke("Play", New Variant[0]);

OleDocumentBox1.OleObject.Invoke("Pause", New Variant[0]);

OleDocumentBox1.OleObject.Invoke("Stop", New Variant[0]);

Для того, чтобы более подробно узнать какие функции доступны при работе с проигрывателем Windows Media, изучите его объектную модель. Описание доступно в MSDN.

Если на компьютере установлены другие проигрыватели, имеющие в своей реализации COM-объект, то указанный выше код может быть переделан для работы с этими проигрывателями.

См. также:

База знаний разработчиков