Проигрыватель MediaPlayer
Компонент MediaPlayer обеспечивает воспроизведение звуковых файлов различных форматов (WAV, MID, RMI, МРЗ), полноценной, сопровождаемой звуком анимации и видеороликов (AVI) и музыкальных компакт-дисков. Значок компонента MediaPlayer находится на вкладке System библиотеки компонентов.
Компонент можно использовать для работы с помощью предоставляемых для этого кнопок:
или сделать кнопки невидимыми и управлять воспроизведением с помощью методов компонента.
Кнопка |
Обозначение |
Действие |
Воспроизведение |
btPlay |
Воспроизведение звука или видео |
Пауза |
btPause |
Приостановка воспроизведения |
Стоп |
btStop |
Остановка воспроизведения |
Следующий |
btNext |
Переход к следующему кадру |
Предыдущий |
btPrev |
Переход к предыдущему кадру |
Шаг |
btStep |
Переход к следующему звуковому фрагменту, например, к следующей песне на CD |
Назад |
btBack |
Переход к предыдущему звуковому фрагменту, например, к предыдущей песне на CD |
Запись |
btRecord |
Активизирует процесс записи |
Открыть |
btEject |
Открывает CD-дисковод компьютера |
Каждой кнопке медиа-плеера соответствует метод, осуществляющий по умолчанию требуемую операцию: Play, Pause, Stop, Next, Previous, Step, Bad StartRecording, Eject.
Тип устройства мультимедиа, с которым работает медиа-плеер, определяется его свойством DeviceType. Если устройство мультимедиа хранит объект воспроизведения в файле, то имя файла задается свойством FileName. По умолчанию свойство DeviceType имеет значение dtAutoSelect. Это означает, что медиа-плеер пытается определить тип устройства исходя их расширения имени файла FileName.
Еще одно свойство MediaPlayer - AutoOpen. Если оно установлено в true, медиа-плеер пытается открыть устройство, указанное свойством DeviceType, автоматически во время своего создания в процессе выполнения приложения.
Воспроизведение видео информации по умолчанию производится в окно, которое создает само открытое устройство мультимедиа. Однако это можно изменить, если в свойстве Display указать оконный элемент, в котором должно отображаться изображение. Это может быть, например, форма или панель. Можно также задать в свойстве DisplayRect типа TRect (свойство только времени выполнения) прямоугольную область этого окна, в которую должно выводиться изображение. Для задания свойства DisplayRect можно использовать функцию Rect. Однако в данном свойстве использование этого типа не совеет обычно. Первые две координаты, как и обычно, задают положение левого верхнего угла изображения. А два следующих числа задают ширину и высоту изображения, а не координаты правого нижнего угла. Например, оператор
MediaPlayerl->DisplayRect = Rect(10,10,200,200);
задает для вывода область с координатами левого верхнего угла (10, 10), длиной; шириной, равными 200.
В компоненте MediaPlayer определены события OnClick и OnNotify. Первое из них происходит при выборе пользователем одной из кнопок медиа-плеера и определено как
enum TMPBtnType fbtPlay, btPause, btstop, btNext,
btPrev, btStep, btBack, btRecord, btEject);
void fastcall Click (TObject *Sender, TMPBtnType Button, bool SDoDefault)
Параметр Button указывает выбранную кнопку. Параметр DoDefauIt, передаваемый по ссылке, определяет выполнение (при значении true по умолчанию) или отказ от выполнения стандартного метода, соответствующего выбранной кнопке.
Событие OnNotify происходит после возвращения очередного метода, если свойство медиа-плеера Notify было установлено в true. Способ возврата любого метода медиа-плеера определяется свойством Wait. Если установить Wait равным false, то возвращение управления в приложение происходит сразу после вызова метода, не дожидаясь завершения его выполнения. Таким образом, задав Notify равным true и Wait равным false, можно обеспечить немедленный возврат в приложение и отображения пользователю текущего состояния объекта мультимедиа.
Свойства Notify и Wait действуют только на один очередной метод. Поэтому их значения надо каждый раз восстанавливать в обработчиках событий OnClick или OnNotify.
В обработчиках событий можно читать свойство Mode, характеризующее текущее состояние устройства мультимедиа. Можно также читать и устанавливать ряд свойств, характнризующих размер воспроизводимого файла и текущую позицию в нем.
Вот, собственно, в конспективном виде основная информация о компоненте MediaPIayer. А теперь попробуйте все это на практике. Простое и в тоже время мощное приложение можно сделать очень просто. Начните новый проект и перенесите на форму компоненты MediaPlayer (вкладка System), MainMenu (вкладка Standart) и OpenDialog (вкладка Dialods). В фильтре компонента OpenDialog можно, например, задать:
-
аудио и видео (*.wav,*.mid,*.avi)
*.wav; *.mid; *.avi
аудио (*.wav,*.mid)
*.wav;*.mid
видео (*.avi)
*.avi
все файлы
*.*
В меню достаточно задать одну команду: Файл|Открыть. Обработчик события OnClick этой команды может содержать оператор
if (OpenDialog1->Execute()) {
MediaPlayer1->FileName=OpenDialog1->FileName;
MediaPlayer1->Open();
}
который открывает устройство мультимедиа, соответствующее выбранному пользователем файлу. При этом надо проследить, чтобы в компоненте MediaPlayer свойство DeviceType равнялось dtAutoSelect. Это обеспечит автоматический выбор соответствующего устройства мультимедиа исходя из расширения выбранного файла.
В компоненте MediaPIayer при желании можно указать ими файла FileName, открываемого в момент начала выполнения приложения. Тогда надо установить свойство AutoOpen в true. Впрочем, это, конечно, не обязательно.
Вот и все. Можете выполнять свое приложение и наслаждаться музыкой или фильмами (если, конечно, все вопросы, связанные с настройкой мультимедиа на вашем компьютере решены).
Чтобы все-таки использовать какие-то события компонента MediaPlayer, давайте немного усложним приложение. Введем в него четыре метки
В первой из них (Label1) укажем надпись «Файл:» (свойство Caption). Во второй (Label2) «Состояние» - состояние проигрывателя, в третьей (Label3) «Операция» - последнюю вызванную операцию. Четвертую метку (Label4) расположим рядом с меткой Label1 так, чтобы она служила ее продолжением. В ней будем отображать имя загруженного файла, но в сокращенном виде с многоточиями, если имя файла не помещается в отведенном для него месте.
Код, обеспечивающий подобную обратную связь в приложении, может следующим.
#include "filectrl.hpp"
AnsiString ModeStr[7]={"He готово", "Остановлено", "Воспроизведение", "Запись", "Поиск", "Пауза", "Открыто"};
AnsiString ButtonStr[9]={"Воспроизведение", "Пауза", "Стоп", "Следующий", "Предыдущий", "Вперед", "Назад", "Запись", "Конец"};
//----------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Label4->Caption = MinimizeName(MediaPlayerl->FileName,
Label4->Canvas,200);
Label2->Caption = "Состояние: " + ModeStr[MediaPlayer1->Mode];
MediaPlayer1->Notify=true;
}
//-------------------------------------------
void __fastcall TForm1::N2Click (TObject *Sender)
{
if (OpenDialog1->Execute ())
{
MediaPlayer1->FileName=OpenDialog1->FileName;
Label4->Caption=MinimizeName(MediaPlayer1->FileName,
Label4->Canvas,200);
MediaPlayer1->Open();
MediaPlayer1->Notify=true;
}
}
//----------------------------------------
void __fastcall TForm1::MediaPlayer1Notifу(TObject *Sender)
{
Label2->Caption="Состояние:"+ModeStr[MediaPlayer1->Mode];
// Переустановка Notify,
// чтобы событие произошло в следующий раз
MediaPlayer1->Notifу=true;
}
//--------------------------------------------
void __fastcall TForm1::MediaPiayer1Click(TObject *Sender,
TMPBtnType Button, bool &DoDefault)
{
Label3->Caption="Операция:"+ButtonStr[Button];
// Переустановка Notify, чтобы произошло событие OnNotify
MediaPlayer1->Notify=true;
}
В свойстве FileName компонента MediaPlayer1 задано имя файла, загружаемого в момент создания MediaPlayer1, т.е. в момент создания приложения. Соответственно в обработчике FormCrcate события OnCreate формы записаны операторы, задающие имя файла и текущее состояние проигрывателя в метке Label4 и Label2 соответственно. Для записи имени файла использована функция MinimizeName, которая обеспечивает сокращенное отображение пути К файлу (см. рис.) в случае если путь не помещается в отведенном месте (в операторе указана максимальная длина 200 пикселей). Чтобы эта функция работала, в модуль добавлена директива компилятора
#include "filectrl.hpp"
В дальнейшем отображение соответствующей информации предусмотрено в процедурах, соответствующих открытию файла (OpenClick), нажатии пользователем какой-нибудь кнопки проигрывателя (MediaPlayerlClick), возвращении любого метода проигрывателя (MediaPlayerlNotify). После каждого события выполняется оператор
MediaiaPlayer1->Notify=true;
обеспечивающий наличие события OnNotify после возвращения следующего метода проигрывателя.
Запустите приложение и проверьте его в работе. С его помощью можно слушать музыку, смотреть немые и звуковые клипы.
