Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?
Поиск
L


Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 5
Всего онлайн: 5
Зарегистрировано юзеров: 5762
Комментариев на сайте: 623
Новый юзер: Sevnday



Последние комментарии
c
N0E0O7 прокомментировал "Урок 1 - Инициализация OpenGL":
А у меня форма чёрная запускается
dimonsky прокомментировал "Урок 2 - Простые примитивы":
GetDC(handle) вместо canvas.handle, и убрать вызов FormResize. Тогда получается конфетка.



Мы в соцсетях
c
Delphi
Урок 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.

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


Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 5 Апреля 2013
Просмотров: 11125

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

Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



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




аватар Добавил: susczanski [Новичок] Дата: 2013-04-14
Отформатировал в wav - рфботает




аватар Добавил: Admin [Сэнсэй] vk.com/savelev_a_y Дата: 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
как запустить несколько треков или папку, альбом или вообще все?