Компонент Delphi MediaPlayer (мультимедийный проигрыватель)

Компонент Delphi MediaPlayer (мультимедийный проигрыватель) расположен на странице System Палитры компонентов. Он предназначен для проигрывание аудио и видео файлов.

Компонент Delphi MediaPlayer (мультимедийный проигрыватель)

Интерфейс мультимедийного проигрывателя показан на рисунке сверху. На нем располагаются кнопки, напоминающие кнопки музыкальных центров, ими можно управлять по средствам мыши или клавишами со стрелками и клавишей пробела.

Компонент MediaPlayer  имеет следующие кнопки, перечислим их слева на право:

  • Воспроизведение (Play),
  • Пауза (Pause);
  • Стоп, остановка (Stop);
  • переход к следующему клипу, дорожке (Next);
  • переход к предыдущему клипу, дорожке (Prev);
  • переход на несколько фрагментов вперед (Step);
  • переход на несколько фрагментов назад (Back);
  • режим записи (Record);
  • извлечение диска (Eject).
За видимость кнопок на компоненте отвечает свойство VisibleButtons. По умолчанию все кнопки видимы. Проще всего установить набор видимых кнопок в Инспекторе объектов. Но можно сделать так чтобы установки задавались программно (задаем видимость кнопок воспроизведение и остановки):
  MediaPlayer1.VisibleButtons := [btPlay, btStop];
Установив компонент мы имеем дело с цветными кнопками, но если нам больше нравится серый цвет, то необходимо в свойстве ColoredButtons, в Инспекторе объектов, определить для каких кнопок нужен серый цвет и напротив них поставить свойство FALSE.

За доступность самих кнопок отвечает свойство EnabledButtons. Доступная кнопка  имеет свой естественный цвет и может быть нажата. Запрещенная или недоступная кнопка не реагирует на нажатие, цвет ее светло-серый. При определении свойства AutoEnable в TRUE проигрыватель сам определяет автоматически доступность кнопок в зависимости от типа используемого файла. И программисту останется возможность управлять доступностью тех кнопок которые не заблокированы.

Компонент MediaPlayer проигрывая какой либо клип или фонограмму связан с файлом расположенном на внешнем носителе или же на жестком диске. Этот файл необходимо открыть для записи или воспроизведения, свойство FileName задает имя файла.

Для того чтобы, мы могли запустить наш проигрыватель нужно воспользоватся методом Open или установить свойство AutoOpen в TRUE.

пример работы компонента

Расположим на форме компоненты Panel и MediaPlayer. Примерно как показано слева.

Зададим свойство FileName - C:\Program Files\Borland\Delphi7\Demos\ CoolStuf\speedis.avi (этот файл автоматически устанавливается со средой Delphi). AutoOpen в TRUE. Свойство Display, определяет куда будет выводиться изображение, - выберем Panel1, если ничего не выбрать, то Delphi сама создаст экран для проигрывания. Запустим приложение, теперь нажав на кнопку Play мы можем просмотреть клип.

Итог: нами был разобран компонент MediaPlayer, его возможности по воспроизведению клипов.

Компонент Delphi MediaPlayer (мультимедийный проигрыватель): 2 комментария

    • Для того чтобы музыка начала проигрываться при загрузке формы надо создать обработчик
      формы FormCreate нижеследующего содержания:

      procedure TForm1.FormCreate(Sender: TObject);
      begin
      MediaPlayer1.Play;
      end;

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *