Среда, 22.11.2017, 01:46
Приветствую Вас Гость

Не ошибается тот, кто ничего не делает.
Но и ничего не делать - ошибка.

Эмиль Кроткий

Меню сайта
Категории раздела
Работа с библиотеками BASS и DirectShow [14]
Статьи по написанию mp3 плеера, видеоплеера, работе с WEB камерой и т.д.
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


















Тиц
Главная » Статьи » Мультимедиа » Работа с библиотеками BASS и DirectShow

Урок 2.1. Пишем видеоплеер (проигрыватель видео) на Delphi с использованием технологии DirectShow.
     Сегодня на уроке мы познакомимся с технологией DirectShow и начнем создавать простейший проигрыватель видео.
Почему DirectShow спросите вы, ведь есть куча других способов создать видеоплеер. Когда я начал этим заниматься, думал точно также. И начал свою первую попытку создания плеера с компонента TMediaPlayer, который входит в Delphi и находится на вкладке System. Но уже через несколько  часов работы с ним я заметил, что многие фильмы, которые без проблем работают в других проигрывателях, в TMediaPlayer отказывались на отрез запускаться. Я начал копать в сторону подключения к нему видео кодеков, но как оказалась это сделать либо в принципе невозможно или я плохо искал. Такое положение дел меня сильно не устраивало и я начал искать другие способы создания видеоплеера.
    Кстати, скачать мои мучения с TMediaPlayer можно здесь.
Реализованы функции Play, Pause, Stop, время проигрывания, текущее время, ProgressBar, регулирование громкости.
Может, кому пригодится.
Поиск информации в Интернете  обозначил несколько направлений:
-  BASS_DSHOW;
- xVideo;
- DSPack;
- DirectShow.

BASS_DSHOW
модуль подгружаемый к библиотеке Bass.dll. К сожалению запустить под Vista на Delphi 2010 ни его ни примеры из Demo поставляемое  с ним мне не удалось.

Библиотека xVideo и примеры идущие с ней заработали без проблем, но попытки найти в Интернете хоть какую-нибудь информацию по ней, кроме справки поставляемой с ней на английском языке и форума- тоже на английском мне не удалось.
Скачать BASS_DSHOW и xVideo можно здесь:

http://surodev.com/downloads/BASS_DSHOW2.4.2.zip
http://surodev.com/downloads/xVideo.zip

А здесь http://surodev.com находится форум по ним.

DSPack – оказался визуальным компонентом для Delphi и надстройкой над DirectShow. В Интернете нашел правленую версию DSPack  для Delphi 2010 . Пакет  встал нормально, примеры из демо тоже работали.

Ну и на одном из сайтов я наткнулся на статью:  
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=270

Которая и вдохновила меня копать в сторону DirectShow.

Теперь немножко теории.

DirectShow – это архитектура (API) для воспроизведения, перехвата и обработки потоков мультимедиа.
Для работы с DirectShow Вам понадобится скачать заголовочные файлы DirectShow API c сайта http://www.clootie.ru/ или здесь и  поместить их в каталог Delphi\Lib либо добавить путь к каталогу, в котором они находятся в установках Delphi Library Path. Хотя DirectShow скорее всего уже установлен на Вашем компьютере т.к. он входит в стандартную поставку Windows.

Основы DirectShow
.

Любой видео поток представляет собой последовательность кадров (фреймов). Аудио и видео-потоки могут быть обработаны самыми разными способами: раскодированы, скопированы, изменены. В DirectShow все эти операции реализованы в виде COM-объектов, так называемых фильтрах. Фильтр – является единицей операции в DirectShow. Каждый фильтр это программный компонент, который встраивается в поток мультимедийных данных и может выполнять определенные действия:
- читать данные из файла;
- получать видео непосредственно с источника;
- декодировать форматы;
- передавать данные на графическую или звуковую плату.


DirectShow имеются готовые фильтры, из которых, словно из детских кубиков, программист может выстроить ту или иную цепочку обработки данных, кроме того, можно создать свои, нестандартные фильтры.
Такая цепочка обработки называется графом фильтров (Filter Graph). Так вот для создания схемы соединения фильтров, предназначен самый базовый и лежащий в основе всех основ компонент DirectShow, под названием Filter Graph Manager – Менеджер Графа Фильтров.

Например, программа, показывающая видео из AVI-файла может построить такой граф фильтров:

Пример графа фильтров DirectShow для воспроизведения видео.


    В этом примере пять фильтров, первый (File Source) просто читает данные с диска, второй фильтр (AVI Splitter) разделяет данные на кадры и передает упакованные видео данные фильтру AVI Decompressor, который их распаковывает и передает фильтру Default DirectSound Device, выводящему звук. AVI Decompressor передает распакованные данные фильтру Video Renderer, который выводит кадры видео на экран. (Этот пример и часть кода исходников ниже из книги Есенин С.А. DirectX и Delphi. Разработка графических и мультимедийных приложений.).

Фильтры делятся на три типа:


Фильтры-источники (Source filters)  - эти фильтры просто получают данные из какого-то источника, с диска (как фильтр File Source (Async) на рисунке), с CD или DVD дисковода или с TV- карты или карты, к которой подключена цифровая видеокамера.
Фильтры-преобразователи (Transform filters) – эти фильтры как видно из названия преобразуют поток данных, проходящий через них каким-либо образом, например – разделяет поток данных на кадры, производят декомпрессию и т.п. На нашем рисунке к таким фильтрам относятся AVI Splitter и AVI Decompressor.
Фильтры вывода (Renderer filters) – фильтры, которые получают полностью обработанные данные и выводят их на монитор, звуковую карту, пишут на диск или выводят на еще какое-нибудь устройство.

Итак из фильтров можно выстраивать граф. Делается это с помощью интерфейса IGraphBuilder. Создать объект типа IGraphBuilder можно так:

CoCreateInstance(CLSID_FilterGraph,nil,CLSCTX_INPROC_SERVER, IID_IGraphBuilder,pGraphBuilder);

Здесь переменная pGraphBuilder имеет тип IGraphBuilder; идентификатор класса CLSID_FilterGraph и IID_IGraphBuilder объявлены в файле DirectShow9.pas, поэтому не забудьте добавить  uses DirectShow9,ActiveX;

Если интерфейс IGraphBuilder получен, то можно построить граф фильтров в ручную или автоматически. IGraphBuilder  может сам, автоматически, построить граф, в зависимости от того какие файлы мы собираемся воспроизводить. Интерфейс IGraphBuilder имеет метод RenderFile, который получает имя файла в качестве параметра и, в зависимости от типа файла (которое определяется по расширению и по специальным сигнатурам в файле), сканирует реестр, в поисках необходимой для построения графа информации, создает необходимые фильтры и строит граф, предназначенный для воспроизведения файлов этого типа (WAV, AVI, MP3, MPG и т.д.).

    После построения графа DirectShow готов к воспроизведению. Для управления потоком данных через граф обработки предназначен интерфейс IMediaControl – он имеет методы Run, Pause и Stop.

И так приступим к созданию видео проигрывателя. Запустим Delphi создадим новый проект и начнем создавать интерфейс нашего плеера как показано на рисунке:

Пишем видеоплеер (проигрыватель видео) на Delphi с использованием технологии DirectShow.



Теперь немного подробнее:

Размещаем на форме вверху компонент TPanel, два компонента TListBox из вкладки Standard и компонент  TSplitter из вкладки Additional. ListBox-ы и Splitter должны быть вне Panel1. Splitter должен находиться между Panel1 и ListBox2 (смотрите рисунок). Он предназначен для изменения размеров. В нашем случае изменения размера плейлиста мышкой во время выполнения программы.
Далее в низу добавляем компонент TGroupBox из вкладки Standard и размещаем на нем Panel2, ProgressBar из вкладки Win32 и Panel3. Для Panel3 устанавливаем свойство Align->alBottom, для ProgressBar1 свойство Align->alBottom  и для Panel2 устанавливаем свойство Align->alBottom. Затем размещаем все остальные элементы управления как показано на рисунке:

Пишем видеоплеер (проигрыватель видео) на Delphi с использованием технологии DirectShow.

В качестве кнопок управления использован компонент TSpeedButton из вкладки  Additional.

Далее в для ListBox1 свойство Visible->False. Для ListBox2 свойство  Align->alRight. Для Splitter1 свойство  Align->alRight. Для Panel1 свойство  Align->alClient.
Затем кидаем на форму два компонента TTimer из вкладки System, компонент TOpenDialog из вкладки Dialogs и компонент TPopupMenu из вкладки Standard.

Пишем видеоплеер (проигрыватель видео) на Delphi с использованием технологии DirectShow.

Для ListBox2 свойство  PopupMenu-> PopupMenu1.
Panel1 – будет служить для вывода изображения фильма. ListBox –ы будут служить плейлистом, в ListBox1 будем хранить пути к файлам проигрывания, поэтому мы его сделали скрытым, а в ListBox2 название файлов. Цвет панели для проигрывания и цвет плейлиста вы можете изменить в свойстве Color компонента, при этом не забывайте изменить цвет  текста плейлиста в свойстве Font->Color. В компоненте PopupMenu1 создаем три пункта «Добавить», «Удалить», «Очистить». Свойство AutoPopup устанавливаем False. Для Timer1 свойство Interval->500, а для Timer2 свойство Interval->2000.
Для TrackBar1 свойство Max->100, свойство Position->50.
Картинки для кнопок управления можно взять свои или скачать здесь. Установить их можно в свойстве Glyph компонента SpeedButton.
На этом настройка интерфейса закончена. Сохраняем проект.  Код для обработки событий напишем на следующем уроке.

Автор xaramamburu, сайт basicsprog.ucoz.ru





Категория: Работа с библиотеками BASS и DirectShow | Добавил: xaramamburu (15.10.2011)
Просмотров: 28126 | Комментарии: 31 | Рейтинг: 4.4/8
Всего комментариев: 311 2 »
28  
еще проблема в воспроизведении некоторых файлов, в проигрывателях таких как gomplayer, light alloy, wmp файлы открываются, а тут пишется что - Не удается прорендерить файл

//загружаем файл для проигрывания при этом граф строится автоматический
hr := pGraphBuilder.RenderFile(StringToOleStr(PChar(filename)), '');
if hr<>0 then begin
ShowMessage('Не удается прорендерить файл');
exit;

29  
Ну по поводу исчезновения видео, раз оно происходит только в real-time, значит нужно искать ошибки в коде программы. Скидывайте ваш проект мне на почту попробую посмотреть, правда у меня Delphi 2010, но думаю что должно работать.
По поводу воспроизведения некоторых файлов, то к сожалению те проигрыватели, которые вы перечислили, вряд ли используют автоматическое построение графа фильтров, я думаю, что в них граф строится в зависимости от типа воспроизводимого файла. Посмотрите урок 5.1, там граф строится немножко по другому, можете проверить будут ли воспроизводиться ваши файлы таким способом, работу проверял только для avi и wmv, на самом деле как я понял нужно для каждого типа файлов строить свой граф, если интеллектуальное построение выдает ошибку.)))

30  
А как при ручном построении Графа(Дракулы) узнать, какие кодеки и фильтры нужны для конкретного файла? И как получить список кодеков/сплиттеров/фильтров DirectShow, установленных в системе? Хорошо бы про это статью забацать.
Про DirectShow в интернете информации совсем мало, а что-то конкретное вообще не найти.

31  
Честно говоря не знаю, я когда этим занимался то для просмотра графа использовал программы GraphEdit и GraphStudio, смотрел граф и добавлял соответствующие фильтры в проект. Смотрите урок 4.2
(добавление фильтра в граф:
//создаем объект для построения фильтра вывода видео FVideoRender
CoCreateInstance(CLSID_VideoMixingRenderer, nil, CLSCTX_INPROC, IID_IBaseFilter, FVideoRender);
// Добавляем его в граф
FGraphBuilder.AddFilter(FVideoRender, 'Video Renderer');),
и уроки 5.1 и 5.2 (построение графа по ключевым фильтрам в зависимости от расширения:
(//если расширение wmv
if lowercase(ExtractFileExt(FileNameVideo))='.wmv' then  begin
//строим участок графа от фильтра источника  fl_SrcFile  до фильтра FDirectVobSub
if FAILED(RenderStream(nil,  @MEDIATYPE_Video, fl_SrcFile, nil , FDirectVobSub)) then
Begin
ShowMessage('Внимание! Произошла ошибка на участке от фильтра источника  fl_SrcFile  до фильтра FDirectVobSub');
Exit;
End;).
Для получения списка фильтров или устройств из конкретной категории используется объект перечислитель устройств. Смотрите уроки по работе с видеокамерой 3.1 и 3.2, а здесь пример получения списка видео, аудио устройств и фильтров для сжатия http://basicsprog.ucoz.ru/uroki_delphi/multimedia/urok3_1/kamera000.zip
Вообще по DirectShow есть книга "DirectShow и телевидение", но примеры в ней на С.
Да если необходимо соединить только конкретные заданные фильтры, то используют соединение через Pin (т.е. фильтры добавляются в граф, затем ищутся входные и выходные контакты Pin, а затем соединяются, но до этого я так и не дошел, но информацию в интернете видел). Юзайте сайт и форум "DirectShow по русский" http://directshow.wonderu.com /  .))))

27  
Роль сервера: выводить на LCD-тв видео ролики а так же текстовую информацию разного содержания и формата.
Роль клиента: отпровлять на сервер список выводимых роликов, текста, информации для отображения.

26  
исчезновение происходит в real-time, если указать сразу настройки на форме все нормально. пока сделал криво, останавливаю видео заново привязываю к панели и и возвращаю позицию на которой остановилось. переключается секунды 3 такой вариант

23  
Добрый день, xaramamburu.
Обращаюсь к Вам, за советом.
Вопрос о наложении текста(пост 8), решил отображать текст на прозрачном окне поверх окна плеера.
Нужна ваша помощь в следующем :
На форме имеется список файлов для проигрования, кнопки пуск и стоп , также эта форма является серверным приложением.
Если я нажимаю кнопку пуск на форме в ручную т.е. мышкой , то файл воспроизводится и все ок,
но если я подаю команду обработать процедуру нажатия кнопки пуск (нажать кнопку пуск) по сети с клиентского приложения то выдается сообщение с ошибкой Не удается создать граф от(ShowMessage('Не удается создать граф');).
В чем разница построения графа не пойму.(соответственно все сетевые настройки и подключения работают)
Могу выслать файлы проектя сервера и клиента для наглядности, только ваш е-mail не доступен для просмотра.

24  
Мой e-mail: xaramamburu@list.ru . Только поясните в чем у вас заключается роль сервера и роль клиента, а там будем думать.)))

22  
да, если не прописывать, то окно с видео разворачивается

25  
Тогда смотрите после какой из этих команд видео начинает пропадать, либо в свойствах формы сразу попробуйте задать полно экранный режим без бордюра, поверх окон и с максимальным разворачиванием окна. Вы первый кто обращается с такой проблемой. Короче вам надо определить какое конкретное из этих свойств приводит к исчезновению видео и как это проявляется (т.е это происходит в real-time и/или при задании настроек в ручную в свойствах формы, а уже дальше думать как решать.))))

20  
кстати пишу в delphi6, в остальном ваш пример работает прекрасно

21  
А если эти команды не прописывать, то окно с видео разворачивается или нет?

19  
здравствуйте! при включении полноэкранного режима если прописать BorderStyle:=bsNone; //без бордюра или FormStyle :=fsstayOnTop; //поверх окон, видео продолжает работать, но на панели перестает показываться. как с этим бороться?

17  
спасибо за ваш пример и помощь. отлично разобрался. меня интересует еще один вопрос как можно открыть файл с определенными правами. дело в том что я пишу потоковый видеопроигрыватель для просмотра фильмов hd без скачивания. одновременно файл должен скачиваться и проигрываться. если фильм уже скачивается то его нельзя открыть. другие проигрыватели как то это делают. либо как то создать поток TMemoryStream и постоянно подгружать но тогда как открывать его?

18  
Ну тут я вам сильно помочь не смогу, но по работе с потоками памяти в DSPack есть пример DSPack\Demos\D6-D7\Filters\Async\MemFile\, к сожалению запустить его под Delphi 2010 так и не удалось. Но как я понял он показывает как грузить и читать видео из памяти. В интернете даже видел примеры использования этого фильтра.

15  
Всё как то сложновато. В общем используя программу GraphEdit построил интеллектуальный граф фильтров, и увидел как называются звуковые фильтра. Затем в своей программе используя функцию pGraphBuilder.FindFilterByName(StringToOleStr(PChar('AC3Filter 0002')), pFilter); и pFilter.Stop остановил один звуковой поток, таким же образом могу остановить и второй. Есть еще функция EnumFilters которая якобы как я понял из MSDN перечисляет все фильтра в графе, но как ею пользоваться я так и не понял(. может кто поможет?

16  
На самом деле под построением графа ручками я имел ввиду, что граф можно построить каким угодно способом, но затем нужно перебрать все фильтры в графе и удалить фильтры для аудио потока, а затем построить новые. Или сразу искать нужный фильтр потока, а все другие удалить или как то отключить.
Вот можете посмотреть мои попытки выбора потока и небольшой материал, который удалось нарыть в интернете. Отпишитесь если разберетесь.))))))

13  
скажите пожалуйста как быть. Когда я открываю фильм (.avi) в вашем проигрывателе у меня идет смешивание звуковых потоков английского и русского. в другом проигрывателе всё нормально. как можно разделить потоки звука. и определить сколько всего потоков звука? спасибо!

14  
В этом примере используется так называемое интеллектуальное построение графа для воспроизведения видео, соответственно не выбрать звуковые потоки нельзя. Если вы хотите, сделать проигрыватель с выбором звуковых потоков, то нужно граф воспроизведения строить в ручную и для avi файлов на выходе AviSplittera считать количество звуковых потоков, а затем подключать выбранный звуковой поток к AudioRenderer. В теории как-то так, на практике не пробовал.)))

1-10 11-16
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Наш опрос
Оцените мой сайт
Всего ответов: 532
Уголок общения



Copyright MyCorp © 2017Конструктор сайтов - uCoz