Урок 12 Компонент MediaPlayer No title

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