Использование видео файлов в Visual Basic |
Автор Виталий | ||||||||||
29.04.2003 г. | ||||||||||
Рассматриваются некоторые способы использования видео файлов различных форматов - AVI, GIF анимация, XviD MPEG4, Flash(.swf), Microsoft Windows Media(.wmv) и т.п. в среде Visual Basic.
Рассматриваются некоторые способы использования видео файлов различных форматов - AVI, GIF анимация, XviD MPEG4, Flash(.swf), Microsoft Windows Media(.wmv) и т.п. в среде Visual Basic. В системе проектирования VB есть достаточно средств для работы с различными файлами мультимедиа. Самым простым и вероятно самым первым средством просмотра анимированных картинок, с которым сталкивается программист на VB 6.0 является инструмент Animation, который входит в состав дополнительного набора Microsoft Windows Common Controls-2 6.0. Инструмент Animation умеет прокручивать несжатые avi файлы без звука. Образцы таких файлов лежат в папке ...GraphicsAvis и отличаются при всей своей невзрачности солидными размерами. Так файл Cineapk.avi при длительности воспроизведения чуть больше 1 сек. имеет размер 30,4 Кб! Работать с этими файлами очень просто - помещаем на форму объект Animation, и две кнопки, одна будет "Пуск", а другая "Стоп". Animation растяните до нужных размеров и в форме напишите следующий код:
При попытке открыть закодированный avi или со звуковым сопровождением - выдается сообщение об ошибке. VB был бы достаточно скучен, если бы работал только с таким видом файлов. Но тут на помощь приходят вездесущие API - и мы получаем возможность работать с закодированными и озвученными файлами. Для работы используется библиотека winmm.dll. Поместите следующий код в модуль проекта:
А далее я приведу два способа просмотра звуковых avi файлов. В первом случае демонстрация идет в отдельном окне, размеры которого соответствуют истинным размерам видио. Поместите на форму две кнопки и следующий код в форму проекта:
Второй способ - здесь в качестве экрана используется PictureBox. Размер изображения видио будет соответствовать размеру PictureBox.Поместите на форму PictureBox и одну кнопку. В модуль проекта добавте следующие декларации:
Этот код напишите в форме проекта: Теперь для запуска видео напишите для кнопки "Пуск" следующий код: Этим способом можно проигрывать практически любые avi файлы, если конечно в вашей системе зарегистрированы соответствующие кодеки. Возникают проблемы с воспроизведением XviD MPEG4 - по крайней на моем компьютере в самом начале фильм отчаянно тормозил минуты три - а потом наоборот рванул, наверстывая упущенное время и все без звука. В общем - не получилось...Но унывать не стоит, сейчас я подхожу к описанию самого мультимедийного элемента управления - Windows Media Player. Пользователям Windows ME и XP известен многофункциональный проигрыватель Windows Media. Программистам на VB доступен элемент управления, составляющий основу этого проигрывателя MSDXM.OCX. Поместите на форму Проект->Компоненты->Windows Media Player. Выглядит он примерно так: Разнообразные настройки параметров позволяют настроить внешний вид и элементы управления проигрывателя. Он поддерживает множество популярных мультимедийных форматов в том числе и звуковые форматы MP3 и плейлисты M3U. И что самое приятное для его работы не нужно ни одной строчки кода, если в параметрах задать имя файла:
Этот проигрыватель отлично воспроизводит XviD MPEG4, в том числе и в полноэкранном режиме. Еще важным достоинством этого проигрывателя является поддержка формата WMV, который оптимизирован для передачи по компьютерным сетям. Видео файлы этого формата имеют небольшие размеры при удовлетворительном качестве воспроизведения. Так звуковой видеофайл формата MPEG4 длительностью 15 сек. имеет размер около 2 Мб, а этот же файл, закодированный в формате wmv и оптимизированный для скорости 128 Кбитсек всего около 200 Кб. а для скорости 56 Кбитсек всего около 60 Кб. но его качество заметно хуже. Есть ещё один способ воспроизведения файлов формата WMV и GIF анимации - при помощи элемента WebBrowser. Этот стандартный инструмент для проектирования броузера отлично работает в качестве проигрывателя! Для установки этого компонента подключите MIcrosoft Internet Controls к вашему проекту(подробнее тут), после чего разместите его на форме так, что бы размеры не были слишком маленькими - это будущий экран. Разместите кнопку "Пуск". Код формы такой :
Аналогично элемент WebBrowser используется для отображения GIF анимации. Для отображения Flash (.swf) анимации в VB используется элемент ShockwaveFlash ( flash.ocx). Для установки этого компонента подключите его к вашему проекту. Разместите его на форме, сделайте размер побольше и разместите следующий код:
Этот код для меню "Open", если использовать кнопку - то надо соответственно переписать название процедуры. Правым щелчком мыши на запущенном приложении открывается меню, где есть необходимые опции для работы с файлом. Примеры к статье можно скачать тут:
|