Видеоплеер на Lazarus. Возможно ли?

[BadBoyAlex]

и посмотреть, что будет...

Выскакивает AV. Где можно добыть FPC 2.7.1 Win32+Win64

[Лекс Айрин]

например ftp://freepascal.dfmk.hu/pub/fpc/snapsh ... 386-win32/
ftp://freepascal.dfmk.hu/pub/fpc/snapsh ... _64-win64/

[Снег Север]

Что имеется ввиду под СТ?

CodeTyphon

Я рад, но я нахожусь на стабильной версии (1.4.2 + FPC 2.6.2). ИМХО, какого лешего они впихнули в сборку стабильной версии то, что на ней не работает?!

Вам программа пишет, какую минимальную версию FPC она требует. Извините, но никто вам работу на стабильной версии не гарантировал.

Снег Север, смысл ставить один плеер, чтобы работал другой?

Смысл в том, чтобы получить полный набор всех кодеков. Потом можете сделать из них выборку под свои нужды. Вам необходимы libvlc.dll, libvlccore.dll и некоторый минимум плагинов. Я вообще когда-то подбирал экспериментально на своем тестовом проигрывателе, чтобы некоторый ролик воспроизводился нормально.

[Лекс Айрин]

Снег Север, вообще-то это я говорил.... набор библиотек и кодеков это одно... а вот полноценный плеер это другое. К тому же, кодеки все ставят пакетом (многие, кстати, просто не знают, что их надо включать и удивляются, что ничего не работает).

[Снег Север]

Снег Север, вообще-то это я говорил.... набор библиотек и кодеков это одно... а вот полноценный плеер это другое. К тому же, кодеки все ставят пакетом (многие, кстати, просто не знают, что их надо включать и удивляются, что ничего не работает).

vlc как раз тем хорош, что у него "усё унутрях". Можно скачивать не инсталяцию, а zip файл, выбрать нужное для себя и получить собственный проигрыватель с удобными функциями. Я совсем недавно участвовал в разработке коммерческой программы на делфи, к которой, в частности, прикрутил такой мини-vlc проигрыватель, на основе обсуждаемого компонента, для воспроизведения одного довольно экзотического формата.

[BadBoyAlex]

Кто-нибудь может скинуть пример (работающий) на VLC и исходники?

[Снег Север]

Кто-нибудь может скинуть пример (работающий) на VLC и исходники?

Работающие примеры с исходниками - PasLibVlc\FreePascal из http://prog.olsztyn.pl/paslibvlc/
Устанавливаете VLC, CT, в СТ - пакет для лазаруса, компилируете примеры и - вуаля! Проверено лично не далее, как сегодня.

Потом разбираетесь с инициализацией VLC в компоненте и переделываете пару строк на использование своего пути к библиотекам, а не из реестра. И далее - как я уже писал выше.

[hovadur]

Кто-нибудь может скинуть пример (работающий) на VLC и исходники?

https://dl.dropboxusercontent.com/u/389 ... example.7z

[crazynetwork]

А можно обновить ссылочку?

Добавлено спустя 5 минут 8 секунд:

Кто-нибудь может скинуть пример (работающий) на VLC и исходники?

Работающие примеры с исходниками - PasLibVlc\FreePascal из http://prog.olsztyn.pl/paslibvlc/
Устанавливаете VLC, CT, в СТ - пакет для лазаруса, компилируете примеры и - вуаля! Проверено лично не далее, как сегодня.

Потом разбираетесь с инициализацией VLC в компоненте и переделываете пару строк на использование своего пути к библиотекам, а не из реестра. И далее - как я уже писал выше.

Скомпиленые примеры тоже не заработали. Сам пример открылся нормально в ХЕ10, компилится, запускается без ошибок, но видео не воспроизводит. Кто может подсказать в чем дело? Спасибо.

[BadBoyAlex]

Сам пример открылся нормально в ХЕ10, компилится, запускается без ошибок, но видео не воспроизводит. Кто может подсказать в чем дело? Спасибо.

Скачай и распакую портативную версию vlc, потом укажи к ней путь:

Код: Выделить всё

VideoPlayer.VLC.Path:= ExtracrFileDir(Application.ExeName) + '\vlc\';

[crazynetwork]

Ща проверим

Добавлено спустя 21 минуту 9 секунд:
Действительно, заработало. Может вы еще знаете какие именно файлы надо с собой таскать?

Добавлено спустя 7 минут 42 секунды:
Отвечу сам. Судя по всему необходимо таскать:
1. libvlc.dll
2. libvlccore.dll
3. plugins (папка, нужные плагины подбирать по вкусу)

Добавлено спустя 30 минут 54 секунды:
Скажите, а установка громкости только у меня вываливается в ошибку Invalid floating point operation ?

PasLibVlcPlayer1.SetAudioVolume(PasLibVlcPlayer1.GetAudioVolume()+10);

Добавлено спустя 4 часа 36 минут 48 секунд:
Опять же сам отвечу себе. Надо в код добавить

Set8087CW((Get8087CW and $FFC0) or $003F);

[BadBoyAlex]

Скажите, а установка громкости только у меня вываливается в ошибку Invalid floating point operation ?

PasLibVlcPlayer1.SetAudioVolume(PasLibVlcPlayer1.GetAudioVolume()+10);

Видать только у вас. У меня вот такой код:

Код: Выделить всё

VideoPlayer.SetAudioVolume(VolumeBar.Position);

Уже какой месяц выдаёт ошибки:

LazarusError.png

LazarusError2.png

И предложенный вами способ решения не действует =(

[Снег Север]

У меня на СТ 5.60 с кодом

Код: Выделить всё

Set8087CW((Get8087CW and $FFC0) or $003F);

от crazynetwork

Код: Выделить всё

VideoPlayer.SetAudioVolume(VolumeBar.Position);

работает нормально. Правда, я проверял только для 32х версии (у меня VLC 32-х разрядный стоит).

[crazynetwork]

Скажите, а установка громкости только у меня вываливается в ошибку Invalid floating point operation ?

PasLibVlcPlayer1.SetAudioVolume(PasLibVlcPlayer1.GetAudioVolume()+10);

Видать только у вас. У меня вот такой код:

Код: Выделить всё

VideoPlayer.SetAudioVolume(VolumeBar.Position);

Уже какой месяц выдаёт ошибки:

LazarusError.png

LazarusError2.png

И предложенный вами способ решения не действует =(

Ну я запускаю это все дело на Delphi XE10, на сколько я понял данный код отключает поддержку Delphi 4 !!! Вероятно для Лазаруса, есть свой способ это сделать.

Добавлено спустя 2 минуты 1 секунду:
Не буду создавать отдельной темы (хотя если модератор скажет надо, создам).
Кто знает как правильно передать параметры в VLC. Код ниже не работает.

PasLibVlcPlayer1.VLC.StartOptions.Add('--vout-filter=deinterlace --deinterlace-mode=blend');

Способ ниже так же не работает.

PasLibVlcPlayer1.VLC.StartOptions.Add('--vout-filter=deinterlace');
PasLibVlcPlayer1.VLC.StartOptions.Add('--deinterlace-mode=blend');

[Снег Север]

crazynetwork, попробуйте ваш последний вариант, но без -- перед названиями параметров.