Написание простого медиа-проигрывателя (часть 2)

Продолжим нашу работу над медиа-проигрывателем, основанным на Windows Media Player. Хочется подчеркнуть, что кардинально изменить что-либо не удастся, поэтому в этой статье я просто расскажу о небольших усовершенствованиях и на этом мы остановимся.

Обычно во время воспроизведения мы должны видеть название файла, который проигрывается в данное время. Давайте снабдим проигрыватель этой функцией. Для этого изменим обработчик пункта меню "Открыть" на следующее:

if OpenDialog.Execute then 
begin 
  MediaPlayer.URL:=OpenDialog.FileName; 
  Form1.Caption:='SMP - '+ExtractFileName(OpenDialog.FileName); 
end;

Как работает добавленная строка? Функция ExtractFileName() возвращает имя файла из указанного пути - то, что нам нужно. "SMP" - это сокращённо "Simple Media Player" :-) Наконец, значение присваивается заголовку формы.

Что ещё можно добавить? Да, действительно странный проигрыватель... Можно сделать окошко "О программе". Для этого в меню добавьте соответствующий пункт и назовите его "О программе..." По правилам Windows любая надпись, приводящая к открытию диалогового окна, должна заканчиваться многоточием - "..." Рекомендую запомнить это правило и всегда и везде его использовать. Окно можно создать "с нуля": File - New - Form (в разных версиях Delphi названия пунктов меню могут отличаться). А ещё можно воспользоваться окном, подготовленным разработчиками - открываем File - New - Other, переходим на вкладку Forms, выбираем "About box" и нажимаем "ОК". В результате создаётся форма. В ней напишите название программы, своё имя, версию... Далее создаём обработчик для созданного пункта меню

AboutBox.ShowModal;

Пытаемся запустить программу, но Delphi выдаёт предупреждение, что второй модуль не связан с первым и предлагает это сделать. Соглашаемся, и приложение запускается.

Вот и всё. Конечно, такому проигрывателю далеко до Winamp, Light Alloy и даже до стандартного Windows Media Player, но основы, я думаю, понятны. Если вы повнимательнее изучите список ActiveX-компонент, то найдёте там много интересного.

Автор: Ерёмин А.А.

Статья добавлена: 16 февраля 2006

Следующая статья: Копирование файлов »

Статьи, похожие по тематике

Для вставки ссылки на данную статью на другом сайте используйте следующий HTML-код:
<a href="https://www.delphi-int.ru/articles/18/">Написание простого медиа-проигрывателя (часть 2)</a>

Ссылка для форумов (BBCode):
[url=https://www.delphi-int.ru/articles/18/]Написание простого медиа-проигрывателя (часть 2)[/url]

Быстрая вставка ссылки на статью в сообщениях на сайте:
{{a:18}} (буква a — латинская) — только адрес статьи (URL);
{{статья:18}} — полноценная HTML-ссылка на статью (текст ссылки — название статьи).

Поделитесь ссылкой в социальных сетях:

Комментарии читателей к данной статье

Репутация: нет

Ильченко В. Г. (23 октября 2006, 17:16): Конечно для проигрывания файлов видео или аудио такая конструкция будет работать... Но очень хотелось бы почитать как работать с подключаемыми интерфейсами Windows Media Player 10 узнать как получить управление эквалайзером, визуализацией, как вывести спектр звукового сигнала... MSDN под дельфи не направлен к сожалению...

Оставлять комментарии к статьям могут только зарегистрированные пользователи.