Delphi. Пишем простой mp3 плеер на TMediaPlayer

В одной из прошлых статей я уже писал mp3 плеер на библиотеке bass, но сделать из него компонент у меня не получилось из за самой библиотеки dll, пока не хватило опыта. Поэтому решил сделать аналогичный плеер из стандартных компонентов. Мне вообще нужно добавлять его как компонент в TRichView и далее отображать это в браузере при помощи HTML5 и фрэймворка UniGUI. Пользователь добавляет в документ аудио – может прослушать его в TRichView и потом в браузере. Но всё по порядку. Сначала сделаем простой mp3 плеер.

10

 

11

Этот плеер (TAudioPanel) на порядок проще, но он таким и создавался. Главная цель – уметь проигрывать mp3 и wav файлы.

Мне нужно задавать трек извне, поэтому я сделал свойство FilePath, через которое пишется путь к mp3 файлу.

Использование компонента

Бросаем на форму TAudioPanel, прописываем свойство FilePath и вызываем OpenMusicFile

Создание компонента

Итак, Delphi > Component > NewComponent

В ресурсы добавляем png картинку громкости

12

Создаем компонент на основе TPanel в новом Package.

 

 

 

by Stanislav_Panteleev

Добавить комментарий