DOSUG CZ– розовая кнопка на сайте!
Logo

Ваш первый MP3-плейер
(Delphi)

   MP3 сейчас, пожалуй, наиболее популярный формат для хранения музыки. Давайте напишем плейер, способный воспроизводить музыку в этом формате + некоторые дополнительные возможности. Все, что нам для этого понадобится - это компонента TMediaPlayer и немного времени. Вы думаете, TMediaPlayer не умеет проигрывать MP-шки? Вы, к счастью, ошибаетесь.
   Итак, ищем компоненту TMediaPlayer на вкладке System палитры компонент Delphi. Если вы посмотрите в помощи, то увидите что-нибудь типа "MediaPlayer component enables your application to control a media playing or recording device such as a CD-ROM player, video player/recorder, or MIDI sequencer." Ни слова о MP3. MediaPlayer имеет свойство DeviceType, определяющее тип устройства, которым можно управлять с помощью этой компоненты, но в списке устройств вы опять-таки не найдете что-нибудь похожее на MP3. Однако это не значит, что MP3 не поддерживается.
    Будем считать, что среда Delphi уже запущена и открыта форма по умолчанию form1. Это первая и последняя форма в нашем приложении.
   Как и было обещано, наш проигрыватель будет не только воспроизодить MP3-файлы, но и читать (и изменять) так называемый тэг ID3. И даже больше - у нас будет прогресс-бар, показывающий какую часть музыкального произведения мы слушаем.
   На форму добавьте следующие компоненты:

  • Со вкладки Standard:
    компоненту ListBox, назовите ее 'mp3List';
    компоненту GroupBox, содержащую 6 компонент Edit (названных: edTitle, edArtist, edAlbum, edYear, edGenre, edComment);
  • Со вкладки Additional:
    компоненту BitBtn, назовите ее 'btnOpenFolder';
    компоненту StaticText c именем 'txtFolder';
  • Со вкладки System:
    компоненту Timer, назовите ее 'ProgresTimer';
    компоненту ProgressBar, назовите ее 'Progres';
    и, конечно, компоненту MediaPlayer, назовите ее 'mp3Player'.

Дизайн - личное дело каждого, можно предложить, например, такой вариант:


Замечание: когда вы помещаете компоненту MediaPlayer на форму, она содержит 9 кнопок. Так как в нашем приложении используется всего 3 кнопки, измените свойство VisibleButtons для отображения только трех кнопок (btPlay, btPause, btStop).
   Компоненты BitBtn и StaticText служат для определения и отображения каталога, из которого беруться MP3-файлы. Список файлов отображается в компоненте ListBox. Компоненты Edit служит для отображения информации тэга ID3. И, наконец, компонента Timer вместе с ProgressBar служит для отображения прослушиваемой части музыкальной композиции.

 
главная - о проекте - контакты - реклама на сайте
 
LBN100 Elite

SoftStudio.Ru - студия разработки программ
LBN100 Elite