КАТАЛОГ СТАТЕЙ.
Авто и Мото (2093)
Бизнес (6648)
Дом, семья, дети (4520)
Досуг и Юмор (680)
Еда (879)
Здоровье (3989)
Искусство (1690)
Мода, стиль (1666)
Наука (1674)
Образование (1422)
Общество (3037)
Окружающий мир (800)
Промышленноcть, оборудование (2067)
Связь (482)
Секс, любовь, отношения (965)
Спорт (936)
Справочная информация (273)
Страны, путешествия (1854)
Строительство и ремонт (7648)
Транспорт и логистика (480)
Создание MP3-проигрывателя, используя MediaPlayer
Единственное, что я от вас хочу, так это ваше желание и немного терпения. После того, как прочитаете эту статью, вы поймете, что написать mp3-плеер не так уж и трудно.
В Delphi есть компонент MediaPlayer (расположен на странице System). Это универсальный проигрыватель для работы с аудио- и видео-информацией.
Этот компонент можно использовать в двух режимах. Во-первых, можно предоставить пользователю возможность управлять воспроизведением информации с помощью кнопочного интерфейса, напоминающего панель управления различными проигрывателями. Во-вторых, можно сделать сам компонент невидимым и управлять воспроизведением информации с помощью его методов. (Более подробно...)
Теперь приступим. Думаю, вы уже догадались, создаем новый проект. Потом добавляем на форму: наш главный компонент MediaPlayer, button, label, OpenDialog.
Кнопка ОТКРЫТЬ
На кнопку прописываем следующее событие:
|
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then with MediaPlayer1 do begin FileName := OpenDialog1.FileName; Open; Notify:=true; label1.Caption:=ExtractFileName(FileName); end; end; |
Компилируем и проверяем работу нашего приложения. Нажимая на кнопку, выбираем файл в формате *.mp3.
Теперь добавляем на форму timer, label2 и label3.
Дважды кликаем на таймер и прописываем код:
|
procedure TForm1.Timer1Timer(Sender: TObject); var chas, min, sec, chas1, min1, sec1: Integer; function mode(Length: Integer): String; begin Result:=IntToStr(Length); if Length<10 then Result:='0'+Result; end; begin MediaPlayer1.TimeFormat:=tfMilliSeconds; {Длина трека} sec:=mediaplayer1.Length div 1000; min:=sec div 60; chas:=min div 60; min:=min - chas*60; sec:=sec - min*60 - chas*3600; label2.Caption:=IntToStr(chas)+':'+mode(min)+':'+mode(sec); {сколько прошло} sec1:=mediaplayer1.Position div 1000; min1:=sec1 div 60; chas1:=min div 60; min1:=min1 - chas*60; sec1:=sec1 - min1*60 - chas1*3600; label3.Caption:=IntToStr(chas1)+':'+mode(min1)+':'+mode(sec1); end; |
Теперь в нашем таймере свойство Enabled ставим на False и в кнопке button1 между двумя end'ами добавляем
| Timer1.Enabled:=true; |
После чего снова откомпилируем и проверяем.
Ну и наверняка вам еще хочется, чтобы в нашем проигрывателе присутствовал прогресс вопроизведения. В таком случае на форму мы еще добавляем еще один таймер и компонент Gauge, который находится на странице Samples библиотеки компонентов. Растягиваем его на форме по своему усмотрению. Также мы можем убрать надпись процента, указав свойство ShowText на False.
Теперь нам нужно привязать Gauge к треку. Для этого на timer2 прописываем следующий код.
|
procedure TForm1.Timer2Timer(Sender: TObject); begin with MediaPlayer1 do begin if FileName <>'' then Gauge1.Progress:=Round(100*Position/Length); if Gauge1.Progress=100 then begin Position:=0; play; end; end; end; |
После этого свойство Enabled таймера ставим на False и добавляем в button1 код
| Timer2.Enabled:=true; |
Снова компилируем и любуемся результатом.
Автор: VT, Источник: Программирование на Delphi
