Графика и мультимедиа___________________________________373

MediaPlayerl->FileName = OpenDialogl->FileName;

Label4->Caption = MinimizeName(MediaPlayerl->FileName,Label4->
Canvas,200) ;

MediaPlayerl->Open() ;

MediaPlayerl->Notify ^ true;

}
)
//—————————————————————————-

void _fastcall •TFormI::MediaPlayerlNotify(TObject *Sender)
{

Label2->Caption = "Состояние: "+ModeStr[MediaPlayerl->Mode] ;

// Переустановка Notify, чтобы событие произошло в следующий раз

MediaPlayerl->Notify = true;

//————————————————————————-

void   fastcall TFormI::MediaPlayerlClick(TObject *Sender,

TMPBtnType Button, bool &DoDefault)
(

Label3->Caption = "Операция: " + ButtonStr[Button];

// Переустановка Notify, чтобы произошло событие OnNotify

MediaPlayerl->Notify = true;

}

В свойстве FileName компонента MediaPlayerI задано имя файла, загружае-
мого в момент создания MediaPlayerI, т.е. в момент создания приложения. Соот-
ветственно в обработчике FormCreate события OnCreate формы записаны операто-
ры, задающие имя файла и текущее состояние проигрывателя в метки Label4 и
Label2 соответственно. Для записи имени файла использована функция Minimize-
Name, которая обеспечивает сокращенное отображение пути к файлу (см.
рис. 5.21) в случае, если полный путь не помещается в отведенном месте (в опера-
торе указана максимальная длина — 200 пикселей). Чтобы эта функция работала,
в модуль добавлена директива компилятора

ftinclude "filectrl.hpp"

В дальнейшем отображение соответствующей информации предусмотрено в
процедурах, соответствующих открытию файла (OpenClick), нажатию пользовате-
лем какой-нибудь кнопки проигрывателя (MediaPlayerlClick), возвращению лю-
бого метода проигрывателя (MediaPlayerlNotify). После каждого события выпол-
няется оператор

MediaPlayerl->Notify = true;

обеспечивающий наличие события OnNotify после возвращения следующего мето-
да проигрывателя.

Запустите приложение и проверьте его в работе (рис. 5.21). С его помощью вы
можете слушать музыку, смотреть немые и звуковые клипы, т.е. можете наслаж-
даться всеми прелестями мультимедиа.