Урок 20 - Знакомство с компонентами (часть 11/12)
В этом уроке мы продолжаем изучать вкладку System.
Сейчас мы будем рассматривать компонент под названием MediaPlayer.
Этот компонент производит операции над звуковыми правилами, а как он это делает сейчас мы и узнаем.
Итак давайте вытащим его на форму.
Как видите он имеет 10 кнопок (Воспроизведение, пауза, Стоп, 4 кнопки перемотки, Запись, Открыть). Рассмотрим некоторые свойства компонента: AutoEnable - это свойство отвечает за активность кнопок, когда эта кнопка не может быть использована она становится не активной. Например при воспроизведении файла кнопка "Play" деактивируется, а "Stop" наоборот становится активной и т.д. Аналогичны ему свойства AutoOpen и AutoRewind.
Также не менее интересное свойство FileName, в нем задается путь к файлу. Еще один важный момент, если задать свойству AutoOpen значение True, а свойство FileName оставить пустым, то при запуске программы вы увидите ошибку, поэтому свойству AutoOpen лучше задать False, если не используется FileName. Теперь попытаемся воспроизвести что-нибудь, поместим файл "1.mp3" в корень локального дика "С".
Создаем обработчик события Fomr1OnCreate и пишем код:
procedure TForm1.FormCreate(Sender: TObject); begin MediaPlayer1.FileName:='C:\1.mp3'; //Задаем путь к файлу MediaPlayer1.Open; //Открываем файл end;Наш компонент стал активен, нажмем на "Play", и вот звук воспроизводится, можно его остановит, поставить на паузу и т.д.
Разберём еще 2 свойства: EnableButtons и VisibleButtons, в первом можно устанавливать какие кнопки буду активны, а какие нет, второе свойство аналогично первому, но оно скрывает ненужные кнопки, вот им то мы и воспользуемся, скроем лишние кнопки(bfNext, bfPrev, bfStep, bfBack, bfRecord, bfEject), тоже самое сделаем и в EnableButtons. Все готово, осталось только 3 необходимые кнопки.
В следующем уроке мы перейдем на новую вкладку под названием Dialogs и перейдем к компоненту OpenDialog.
Удачи!
Встретимся в следующем уроке!
Добавил(а): susczanski | Дата: 2013-04-14 | |
у меня выдает ерор на "MediaPlayer1.Open", что-то не так с файлом.
Где-то читал, что mp3 он не читает.. Может в этом причина?
|
Добавил(а): susczanski | Дата: 2013-04-14 | |
Отформатировал в wav - рфботает
![]() |
Добавил(а): Admin | Дата: 2013-04-15 | |
"Где-то читал, что mp3 он не читает.." где же Вы такое читали?
![]() |
Добавил(а): susczanski | Дата: 2013-04-15 | |
http://beluch.ru/progr/100comp/4_8_3.htm
здесь вроде.. там, может, что-то с кодировкой, но мне легче все конвертировать в WAV
![]() |
Добавил(а): susczanski | Дата: 2013-04-15 | |
А как программно узнать, что трек закончился и нужно переключить на новый? По параметрам Length и Position?
|
Добавил(а): Klesh | Дата: 2013-04-16 | |
Да по параметрам Length и Position.
If MediaPlayer1.Position = MadiaPlayer1.Length then
begin
...
end;
|
Добавил(а): susczanski | Дата: 2013-04-18 | |
нашел еще способ: можно узнать состояние плеера
if MediaPlayer1.Mode=mpStopped then ...
|
Добавил(а): _Bes_ | Дата: 2014-03-14 | |
как запустить несколько треков или папку, альбом или вообще все?
|
No results found.