Компонент Delphi MediaPlayer (мультимедийный проигрыватель) расположен на странице System Палитры компонентов. Он предназначен для проигрывание аудио и видео файлов.
Интерфейс мультимедийного проигрывателя показан на рисунке сверху. На нем располагаются кнопки, напоминающие кнопки музыкальных центров, ими можно управлять по средствам мыши или клавишами со стрелками и клавишей пробела.
Компонент MediaPlayer имеет следующие кнопки, перечислим их слева на право:
- Воспроизведение (Play),
- Пауза (Pause);
- Стоп, остановка (Stop);
- переход к следующему клипу, дорожке (Next);
- переход к предыдущему клипу, дорожке (Prev);
- переход на несколько фрагментов вперед (Step);
- переход на несколько фрагментов назад (Back);
- режим записи (Record);
- извлечение диска (Eject).
MediaPlayer1.VisibleButtons := [btPlay, btStop];
За доступность самих кнопок отвечает свойство 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, его возможности по воспроизведению клипов.
а как сделать так, чтоб при открытии программы музыку играла автоматически??
Для того чтобы музыка начала проигрываться при загрузке формы надо создать обработчик
формы FormCreate нижеследующего содержания:
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Play;
end;