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

Май 28, 2008 — Filed under: Delphi
Метки: , ,