Урок 20 - Знакомство с компонентами (часть 11/12)

  В этом уроке мы продолжаем изучать вкладку System.
  Сейчас мы будем рассматривать компонент под названием MediaPlayer.

   Этот компонент производит операции над звуковыми правилами, а как он это делает сейчас мы и узнаем.

   Итак давайте вытащим его на форму.

Компонент 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 необходимые кнопки.

Компонент MediaPlayer


   В следующем уроке мы перейдем на новую вкладку под названием Dialogs и перейдем к компоненту OpenDialog.

Удачи!
Встретимся в следующем уроке!




Добавил(а): susczanski Дата: 2013-04-14
у меня выдает ерор на "MediaPlayer1.Open", что-то не так с файлом. Где-то читал, что mp3 он не читает.. Может в этом причина?



Добавил(а): susczanski Дата: 2013-04-14
Отформатировал в wav - рфботает



Добавил(а): Admin Дата: 2013-04-15
"Где-то читал, что mp3 он не читает.." где же Вы такое читали? У меня mp3 спокойно открывает, может у Вас с самим файлом проблема? Попробуйте другой 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.
Отменить.