Взял MediaPlayerEx из этой темы Media.pas и приукрасил (что добавил, что удалил).
Основа это компонент MediaPlayer в который еще до меня были добавлены некоторые методы и свойства. Так же внесены изменения и в файл Media.pas от которого зависит как MediaPlayerEx так и MediaPlayer (последний вроде не пострадал).
Не вдаваясь в подробности кто что менял, опишу что есть:

1. Добавилось событие doOpen и только оно открывает файл, а не как раньше doPlay. Но так же добавлено свойство AutoPlay (True/False) которое позволяет после открытия сразу начать воспроизведение.
2. Теперь не придется "таскать" с собой таймер чтоб отслеживать позицию проигрывания. Еще с давних времен в MediaPlayer имеется свой таймер который отслеживает onEndPlay (окончание проигрывание), пришлось научить этого лентяя выдавать и onPosition (позицию проигрывания). Выведено свойство Interval.
3. Добавились свойства StartPos и FinishPos определяющие начало и конец проигрывания. Можно проигрывать не весь файл, а только нужную чать.
4. Возможность изменения скорости проигрывания (как быстрей, так и медленнее).
5. Установка громкости.
6. Свойством Channels можно включитьотключить левый или правый канал.
7. Появилась возможность не только масштабировать видео (по центру, на весь экран), но и задать свой размер проигрывания видео (doSetDisplayRect). В простом примере Test02.pas (см. архив) на одном окне одновременно проигрывается 6 видео. В теории можно вывести видео на любое окно в нужной позиции.
8. Добавлено получение частоты кадров видео файла (FrameRate).
Прочие мелочи.
Вроде все работает, но тестировать нужно.

Скачать архив (обновлен 28.06.2020) с компонентом и примерами
(один пример тестирует все возможное, второй пример описан в пункте 7)

Если нет предыдущего MediaPlayerEx, то устанавливаем (ini файл перетащить на рабочее поле HiAsm) и в папку HiAsm (Elements\delphi\code) копируем Media.pas.


Редактировалось 13 раз(а), последний 2020-06-28 18:36:05

sla8a, ну теперь плееры посыпятся, как из рога изобилия, да такие что MS и не снились
Молодец!

Леонид, сарказм это хорошо.
Кстати интересное наблюдение: в примере идущем к компоненту MediaPlayer на 11 элементов 3 таймера (два Timer и один в самом MediaPlayer). В соседней ветке в схеме из 819 компонентов всего 154 таймеров. Пример MediaPlayer лидирует.

sla8a, никакого сарказма, сам скачал, опробовал, удивился, правда шести фильмов не нашлось, но сколько есть играли

Для тех кто любит посмотреть фильмы не отрываясь от схемастроения есть возможность просмотра медиа-файлов прямо на рабочем поле HiAsm.
code_35923.txt

Леонид, у меня нашлось на один фильм больше и не один не запустился все упакованны в mkv. Для теста пришлось кусочек фильма перегнать в avi.

У меня все нормально- mkv тоже воспроизводит без проблем

MAV, а onError ничего не говорил по этому поводу?

Очень хороший компонент для локального плеера, жаль что он с потоком не дружит.

Для сравнения запустил видео-поток в стандартном DirectShow и в MediaPlayerEx:



А в остальном компонент очень понравился! Прибрал в коллекцию!

code_35928.txt

sla8a, говорит что ошибка инициализации MCI(примерно так по памяти), а попробовал на рабочем компе так всё mkv запускаются. На рабочем компе SAM CoDeC Pack 5.7(LAV-видео декодер), дома K-Lite Codec Pack 9.хх(FFdshow-видео декодер).

Наконец-то руки дошли у кого-то улучшить! А то я находил возможности улучшения, да так и не довёл дело до конца. Спасибо, sla8a!
------------ Дoбавленo в 21.06:


Только для видео, да?

И звук тоже, ну как минимум mp3 и wav точно.
Там еще работы не початый край. Лично мне нужно была установка начальной и конечной позиции для произведения звуковых файлов.
3042, может будет минутку, пробежитесь по коду как MediaPlayerEx.pas так и по Media.pas, может со стороны заметите что "кривое". Со стороны оно всегда лучше видно.

Ничего кривого вроде не заметил, хотя работу компонента не проверял из-за нехватки времени. Вообще, в MCI я не сильно разбираюсь, у меня есть спецификация на него, но глубоко не вникал.

А можно посмотреть?

Строго говоря, это книга, написанная довольно давно, но функции не потеряли актуальность и сейчас (правда, только для звукового адаптера и для C++).