Проигрыватель видео разных форматов в Delphi

Здравствуйте. Мне нужно в моей программе проигрывать видео, точнее превратить каждый кадр видео в tbitmap для дальнейшей обработки. Если я правильно понимаю, компонент TMediaPlayer проигрывает только avi файлы, а мне нужно и mp4, и mkv и т.д. Пробую разные библиотеки и везде натыкаюсь на грабли:

1) Скачал библиотеку Delphi-FFMPEG-master.zip с этого сайта, пытался запустить пример ffmpeg_sample_player.exe – сначала он требовал библиотеку sdl.dll, я её скачал с этого сайта, запускаю пример снова, он требует уже avutil-56.dll, скачиваю библиотеку ffmpeg с этого сайта, наконец пример запустился. Но все примеры из исходного враппера – консольные, а не vcl приложения, там нет ни одного dfm файла. Без визуальных компонент сложно и долго с этим разбираться.

2) Скачал библиотеку PasLibVlc_3.0.6.zip с этого сайта. Почему-то пример для Delphi XE7 не запускается (требует библиотеку libvlccore которую я не смог к нему подключить), но запускается пример для Delphi 7. Он выводит видео на handle формы:

Я попытался вывести изображение на TImage:

Изображение не выводится, Image1 остаётся белым. Я не понял, где-нибудь вообще есть документация к PasLibVlc, например хотелось бы узнать что это за параметр p_mi.

3) Нашёл библиотеку с компонентом VLDSVideoPlayer от mitov.com. Поскольку мне нужно иметь доступ к каждому кадру видео в виде tbitmap, я использую метод VLDSVideoPlayer1.Pump. Почему то в таком варианте видео проигрывается медленно и дёргано. Попробовал подключить TTLClockGen как ClockPin для VLDSVideoPlayer1, пробовал разные настройки TTLClockGen – всегда видео проигрывается крайне медленно, и кажется не все кадры. Не исключаю что это баг в библиотеке.
Подскажите что делать, в каком направлении копать?

0

Сообщение от Drouge libvlc_media_player_set_display_window(p _mi, image1.Canvas.Handle);

Скорее всего, нужно передавать Handle окна, а не DC. А так срабатывает?:

0

Сообщение от AzAtom Скорее всего, нужно передавать Handle окна, а не DC. А так срабатывает?: DelphiВыделить код 1 libvlc_media_player_set_display_window(p _mi, Panel1.Handle);

Да, действительно, это я не сообразил. Но я боюсь что я не разберусь дальше. Как вывести отдельные кадры на tbitmap-ы?

0

Drouge, в данном случае не знаю, но могу подкинуть проект (на C++), который использует ffmpeg для декодирования и получения кадров видео.

0

AzAtom,
Я в C++ не силён, мне бы Delphi.

0

Drouge, там консольная утилита, используются Pipes и функции WinApi, переделать на delphi нужный кусок будет не сложно, если разбираешься. Я пока ещё не перекинул, руки не дошли.

0

AzAtom,
Может вы так подскажете, в каком направлении копать. Я скомпилировал этот пример, теперь надо вывести каждый кадр в tbitmap. Мне показалось, что после строки 132 сама картинка хранится в объекте frame.data. Это так? Можно ли напрямую оттуда получить каждый пиксель кадра? Пусть скорость будет довольно медленная, мне это не критично.

0

ну дык же
https://github.com/Laex/Delphi... pframe.dpr

Добавлено через 52 секунды

Сообщение от Drouge каждый пиксель кадра

а пиксели и так там судя по коду

0

Drouge, исходник во вложении.
Эта программа получает из внешней программы (ffmpeg) кадры видео и звук и упаковывает в свой формат. Вычленить получение кадров не сложно.

Вложения

tgvzapil.zip (231.2 Кб, 35 просмотров)

0