Урок 12 Компонент MediaPlayer
8-Nov-2005
в колонках играет - Beatles - Help
Уже как месяц я начал и положил хуй на этот проект.Но увидел что на сайт заходят
люди и решил написать и выложить ещё пару статей.
Компонент MediaPlayer со вкладки System
Этот компонент нужен, как вы наверное уже догадались или не догадались для воспроизведения
музыки, видео и мультимедиа-файлов, в общем всего того, что можно воспроизводить
с помощью стандартного windows media player.
Основные св-ва:
AutoOpen - автоматически открывает файл
AutoRewind -после воспроизведения
переходит в самое начало
ColoredButtons - устанавливает цвета кнопок либо на черный
либо на не черный
DeviceType - тип устройства воспроизведения, лучше ставить
AutoSelect
Enabled - запретить\разрешить доступ к управлению компонентом
EnabledButtons -аналогично enabled только для каждой
кнопки(play,stop,pause...)
FileName - имя файла который требуется открыть
Visible - видимость компонента
VisibleButtons - видимость каждой кнопки компонента по отдельности
Теперь перейдём к практике:
Создайте новый проект File-New -Application.
Разместите на форме компонент Panel со вкладки Standart и MediaPlayer со вкладки
System.
Примерно это должно выглядеть вот так.
Теперь немного поковыряемся в Object Inspector.Установите свойство MediaPlayera
visible=false.Теперь медиплайер не будет виден, но это не значит что он не будет
выполнять свои задачи.Установите св-во Display = Panel1.Это св-во показывает
где будут воспроизводится видеофайлы.
Да, кстати, добавьте ещё Timer и установите его своёво Enabled=false
Теперь - двойной клик по Panel1 и в событии Panel1Click пишем следующий код.
void __fastcall TForm1::Panel1Click(TObject
*Sender)
{
MediaPlayer1->FileName="c:\\windows\\porno\\xxx.avi"; //здесь указываем
путь к видео или аудио файлу.ВНИМАНИЕ!вместо одного \ надо ставить два \, иначе
файл не откроется.
MediaPlayer1->Open(); //открываем файл, теперьс ним можно творить что угодно
MediaPlayer1->Play(); //воспроизводим файл
Timer1->Enabled=true;
}
В событии таймера onTimer пишем
void __fastcall TForm1::Timer1Timer(TObject
*Sender)
{
Form1->Caption="Воспроизведено фреймов-"+IntToStr(MediaPlayer1->Position)+"
Всего -"+IntToStr(MediaPlayer1->Length);// в заголовке формы показывается
сколько воспроизведено и сколько всего кадров либо мсек(для аудио)
}
F9!Кликайте по панели и радуйтесь жизи!
Вот и всё - если немного покопаетесь - больше разберётесь.
Если есть вопросы по этому материалу или вопросы в принципе, пишите на мыло,
ответы постараюсь выложить в последующих уроках.
Author of article - MA F*CKA CREW 2005
www.builderhelper.3dn.ru
builder.helper@rambler.ru