Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

События

Сегодня:
Вопросы0    Ответы0    Мини-форумы0


Последние:
Вопрос26.08, 21:10 / #6673
Ответ02.08, 00:42 / #6619
Новости30 апреля 2012


Сейчас онлайн:
На сайте — 20
На IRC-канале — 3

Ссылки

Написание простого медиа-проигрывателя (часть 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

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

Рейтинг статьи: 4.00 Голосов: 1 Ваша оценка:

Зарегистрируйтесь/авторизируйтесь,
чтобы оценивать статьи.


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

 

Для вставки ссылки на данную статью на другом сайте используйте следующий HTML-код:

Ссылка для форумов (BBCode):

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

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


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

Ильченко В. Г.
Репутация: нет

Ильченко В. Г. (23 октября 2006, 17:16):

Конечно для проигрывания файлов видео или аудио такая конструкция будет работать...
Но очень хотелось бы почитать как работать с подключаемыми интерфейсами Windows Media Player 10 узнать как получить управление эквалайзером, визуализацией, как вывести спектр звукового сигнала...
MSDN под дельфи не направлен к сожалению...

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