Без темы
<<  Обработка естественноязыковых текстов: онтологичность в лингвистике и дискурсивность в извлечении знаний Организация памяти ЭВМ  >>
ООП IDE borland C++ builder
ООП IDE borland C++ builder
Содержание
Содержание
Вопрос 1
Вопрос 1
Воспроизведение звуков
Воспроизведение звуков
Воспроизведение звуков
Воспроизведение звуков
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Создание простой мультипликации
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer
Универсальный проигрыватель MediaPlayer

Презентация на тему: «ООП IDE borland C builder». Автор: . Файл: «ООП IDE borland C builder.ppt». Размер zip-архива: 573 КБ.

ООП IDE borland C builder

содержание презентации «ООП IDE borland C builder.ppt»
СлайдТекст
1 ООП IDE borland C++ builder

ООП IDE borland C++ builder

Лекции 17. Проектирование мультимедиа и анимационных приложений

1

2 Содержание

Содержание

Процедуры воспроизведения звуков Windows - Веер Начала анимации - создание мультипликаций Универсальный проигрыватель MediaPlayer Воспроизведение немых видео клипов - компонент Animate

2

3 Вопрос 1

Вопрос 1

Процедуры воспроизведения звуков Windows - Веер

3

4 Воспроизведение звуков

Воспроизведение звуков

Существует немало файлов звуковых и мультимедиа. 1. Волновой файл .wav - в нем записано цифровое представление информации о волновой форме электрического сигнала, соответствующего каждому звуку. 2. Файлы цифрового интерфейса музыкальных инструментов .midi -используются для хранения музыкальных фрагментов - звук хранится в виде данных о том, на каких инструментах исполняются определенные ноты и как долго они звучат. Волновые и MIDI файлы могут хранить только звук или музыку. 3. Файлы AVI и MPEG - для хранения видео информации. Большинство видеофайлов поддерживают также хранение звуковой дорожки, и звук воспроизводится синхронно с картинкой.

4

5 Воспроизведение звуков

Воспроизведение звуков

Наиболее простой процедурой, управляющей звуком, является процедура Веер, которая воспроизводит стандартный звуковой сигнал, установленный в Windows. Поместим на форму кнопку и в обработчике щелчка на кнопку напишем оператор: Веер(); После запуска приложения при щелчке на кнопке раздастся стандартный звук Windows.

5

6 Создание простой мультипликации

Создание простой мультипликации

Мультипликационные фильмы представляют собой совокупность множества кадров, каждый из которых чуть-чуть отличается от предыдущего и при быстром поочередном просмотре кадров создает иллюзию движения. Попробуем сделать простую мультипликацию, условное изображение человечка, шагающего и бьющего при этом в литавры. Перенесем на форму компоненты Image, кнопку Button и таймер Timer. Кнопку разместим внизу формы. Основную площадь формы должен занимать компонент Image, на котором и будет рисоваться изображение.

6

7 Создание простой мультипликации

Создание простой мультипликации

Рассмотрим пример приложения, в котором мультипликация состоит из двух кадров. Таймер будет задавать темп смены кадров, поэтому зададим значение свойства Interval таймера достаточно большим, например, 500. Значение параметра Enabled таймера установим в false. Таймер будет управляться кнопкой. В заголовочном файле модуля формы (unit1.h) добавим строку void _fastcall Draw(); Это объявление функции, которая будет рисовать изображение.

7

8 Создание простой мультипликации

Создание простой мультипликации

Текст модуля может иметь вид: short int cadr = 0; short int H=30; // шаг short int Xpos = 3 * H; // координата туловища short int Ypos = 120; // "земля" short int Hrasn = 30; // высота тела short int Rhead =10; // радиус головы short int Rhead2 = Rhead /2; // радиус литавров short int revers =1; // направление движения short int L = H * 1.41; // длина ноги

8

9 Создание простой мультипликации

Создание простой мультипликации

Void _fastcall tform1::draw() { short int yhead; // координата низа головы switch (cadr) { case 0: yhead = ypos-h- hrasn; image1->canvas->moveto(xpos-h,ypos); image1->canvas->lineto (xpos,ypos-h); // нога image1->canvas->lineto(xpos+h,ypos); // другая нога image1->canvas->moveto(xpos, ypos-h); image1->canvas->lineto(xpos,yhead); // туловище image1->canvas->moveto(xpos+revers*h, yhead-h) ; image1->canvas->lineto(xpos, yhead+4) ; // рука image1->canvas->ellipse(xpos+revers*h-rhead2, yhead-h-rhead2, xpos+revers*h+rhead2,yhead-h+rhead2);

9

10 Создание простой мультипликации

Создание простой мультипликации

Image1->canvas->lineto(xpos + revers*h, yhead+h); // другая рука image1->canvas->ellipse(xpos+revers*h-rhead2, yhead+h-rhead2, xpos+revers*h+rhead2,yhead+h+rhead2); image1->canvas->ellipse (xpos-rhead, yhead,xpos+rhead, yhead-2*rhead); image1->canvas->rectangle(xpos-rhead, yhead-2*rhead-1,xpos+rhead,yhead-2*rhead-4); //шляпа break; case 1: yhead = ypos-l- hrasn; image1->canvas->moveto(xpos, ypos) ; image1->canvas->lineto(xpos, yhead) ; image1->canvas->moveto(xpos, yhead+4) ; image1->canvas->lineto(xpos+revers*l,yhead+4);

10

11 Создание простой мультипликации

Создание простой мультипликации

Image1->Canvas->Ellipse(Xpos+revers*L-Rhead2,Yhead+4-Rhead2, Xpos+revers*L+Rhead2,Yhead+4+Rhead2) ; Image1->Canvas->Ellipse (Xpos-Rhead, Yhead, Xpos+Rhead, Yhead-2*Rhead); Image1->Canvas->Rectangle(Xpos-H/2, Yhead-2*Rhead-1, Xpos+H/2,Yhead-2*Rhead-4); } } Void _fastcall TForm1::TimerlTimer(TObject *Sender) { Draw (); if ((Xpos >= Image1->Picture->Width-H) || (Xpos <= H) ) revers = -revers; Xpos = Xpos + revers * H; cadr = 1 - cadr; Draw (); }

11

12 Создание простой мультипликации

Создание простой мультипликации

Void _fastcall tform1::brunclick(tobject *sender) { timer1->enabled = !Timer1->enabled; } void _fastcall tform1::formcreate(tobject *sender) { image1->canvas->moveto(0,ypos + 3) ; image1->canvas->pen->width = 4; image1->canvas->lineto(image1->clientwidth, ypos+3); // земля image1->canvas->pen->width = 1; image1->canvas->pen->mode = pmnotxor; draw(); }

12

13 Создание простой мультипликации

Создание простой мультипликации

FormCreate - обработчик события OnCreate формы, рисуется линия, отображающая «землю», по которой будет ходить человечек. Затем устанавливается режим пера pmNotXor. В заключение вызывается процедура Draw, которая рисует исходное положение человечка. Процедура BRunClick - обработчик события OnClick кнопки, каждый щелчок включает или выключает таймер, в результате чего человечек идет или останавливается. Timer1Timer - обработчик события OnTimer таймера, означает, что надо стереть прежний кадр и нарисовать новый.

13

14 Создание простой мультипликации

Создание простой мультипликации

Сначала вызывается процедура Draw. Поскольку позиция человечка с момента показа предыдущего кадра не изменилась, то этот вызов рисует на том же самом месте, на котором рисовался предыдущий кадр. Следовательно, предыдущий рисунок стирается, затем анализируется позиция человечка Xpos. Если эта позиция отстоит от какого-либо конца холста Image1 на величину, меньшую шага Н, то изменяется на обратный знак переменной revers, характеризующей направление движения. Если revers = 1, человечек шагает вправо; если revers = -1, человечек шагает влево. Затем позиция Xpos изменяется на величину revers * Н, т.е. на шаг вправо или влево. Изменяется переменная cadr, которая указывает номер высвечиваемого кадра: 0 или 1. В заключение вызывается процедура Draw, которая рисует указанный кадр в указанной позиции.

14

15 Создание простой мультипликации

Создание простой мультипликации

Последняя процедура Draw рисует кадр. В зависимости от значения cadr рисуется один или другой кадр, причем в рисунке учитывается позиция Xpos и направление движения revers. Запустим приложение и щелкнув на кнопке, можем заставить человечка перемещаться. Достигнув края формы он будет поворачиваться и шагать в обратном направлении. При вторичном щелчке на кнопке он будет останавливаться. Конечно, пока движения человечка очень неуклюжи. Чуть позже научим его двигаться более плавно. А пока обсудим некоторые проблемы, связанные с построением даже простеньких мультипликаций.

15

16 Создание простой мультипликации

Создание простой мультипликации

Первая из них - создание фона. Человечек движется в пустом пространстве. Попробуем вставить в программу какой-нибудь фон, например, включим в FormCreate следующие операторы, рисующие черный прямоугольник: Image1->Canvas->Brush->Color = 0; Image1->Canvas->Rectangle (90,0,200,100); Image1->Canvas->Brush->Color = clWhite; Выполним приложение, во время движения человечка на черном фоне черный человечек становится белым. Если мультипликация черно-белая, то такой результат может только радовать, поскольку черное на черном просто исчезало бы. Но при разноцветном пестром фоне картина становится безрадостной.

16

17 Создание простой мультипликации

Создание простой мультипликации

Введем в приложение компонент OpenPictureDialog и в начале процедуры FormCreate вставим оператор if (OpenPictureDialog1->Execute()) Image1->Picture->LoadFromFile (0penPictureDialogl->FileName); который позволит перед началом работы приложения загрузить в виде фона какой-нибудь графический файл. Увидим, что на пестром фоне человечек будет совершенно теряться.

17

18 Создание простой мультипликации

Создание простой мультипликации

Наиболее простой выход из положения- ограничиваться черно-белой мультипликацией или отказаться от режима пера pmNotXor и использовать буферизацию фона. В примере это сделаем следующим образом. Введем глобальную переменную типа TBitmap: Graphics::TBitmap *BitMap; это объект, в котором будем сохранять фрагменты фона, испорченные очередным кадром.

18

19 Создание простой мультипликации

Создание простой мультипликации

Изменим FormCreate следующим образом: void _fastcall TForm1::FormCreate(TObject *Sender) { BitMap = new Graphics::TBitmap; BitMap->Width = 2 * (L + Rhead); BitMap->Height = L + Hmen + 2 * Rhead + 6; Image1->Canvas->MoveTo(0,Ypos+3); Image1->Canvas->Pen->Width = 4; Image1->Canvas->LineTo(Image1->ClientWidth, Ypos+3); Imagel->Canvas->Pen->Width = 2; BitMap->Canvas->CopyRect(Rect(0,0,BitMap->Width, BitMap->Height); Imagel->Canvas-> Rect(Xpos-L-Rhead, Ypos-(L+Hmen+2*Rhead+5), Xpos+L+Rhead, Ypos+1)); Draw(); }

19

20 Создание простой мультипликации

Создание простой мультипликации

Первый оператор создает объект BitMap и задаются его размеры равными максимальным размерам изображения человечка. В конце, перед вызовом Draw в компонент BitMap методом CopyRect копируется фрагмент изображения, внутри которого будет расположен рисунок человечка. Затем процедурой Draw рисуется соответствующий кадр. Внимание: в данном приложении отсутствует оператор, задававший ранее режим пера pmNotXor. Поскольку приложение создало объект Bitmap, добавлен обработчик события OnDestroy формы, в который вставить оператор BitMap->Free();

20

21 Создание простой мультипликации

Создание простой мультипликации

Изменим обработчик Timer1Timer : void fastcall TForm1::TimerlTimer(TObject *Sender) { Image1->Canvas->Draw(Xpos-L-Rhead, Ypos-L-Hmen-2*Rhead-5,BitMap); if ((Xpos >= Image1->Picture->Width - H) || (Xpos <= H)) revers = -revers; Xpos = Xpos + revers * H; cadr = 1 - cadr; BitMap->Canvas->CopyRect(Rect(0,0,BitMap->Width, BitMap->Height); Image1->Canvas-> Rect(Xpos-L-Rhead, Ypos-(L+Hmen+2*Rhead+5) , Xpos+L+Rhead,Ypos+l)); Draw(); }

21

22 Создание простой мультипликации

Создание простой мультипликации

Если сравнить с предыдущим приложением, то вместо первого вызова процедуры Draw, который стирал предыдущий кадр, вводится оператор Image1->Canvas->Draw, который выполняет ту же функцию, но путем восстановления запомненного ранее фрагмента фона под рисунком. Второе отличие - это наличие оператора BitMap->Canvas->CopyRect, который перед вызовом Draw запоминает новый фрагмент фона. Выполним проект и увидим, что без фона приложение работает как и прежде. Добавим пестрый фон, увидим, что изображение стало несколько лучше. Так что, использовать для мультипликаций пестрые фоны крайне нежелательно.

22

23 Создание простой мультипликации

Создание простой мультипликации

Изображение было очень простым и рисовалось быстро. При сложных изображениях время рисования может быть заметным и приводить к мерцанию картинки и другим неприятным зрительным эффектам. В этих случаях используют буферизацию изображения. А после того, как рисунок сделан, он переносится на видимый холст методами Draw или CopyRect. Эти методы работают очень быстро и никаких неприятных мерцаний не происходит.

23

24 Создание простой мультипликации

Создание простой мультипликации

Еще одна проблема анимации - определение того, какие элементы изображаемого объекта видны, а какие - нет. Несмотря на простоту приведенного примера с человечком, даже в нем возникла такая проблема. Если внимательно посмотреть, то видно, что изображение неправильное. Конец одной из рук должен быть скрыт за литаврами, которые держит человечек. Эту ошибку в данном случае не трудно было бы убрать, но код несколько усложнился бы. А вот в трехмерной графике при вращении изображения объекта подобная проблема встает очень остро и должна соответствующим образом решаться.

24

25 Создание простой мультипликации

Создание простой мультипликации

Попробуем сделать мультипликацию более плавной. Здесь достаточно ограничиться простыми механическими движениями, которые всегда можно описать соответствующими функциями. Это относится к любым динамическим иллюстрациям работы механизмов, к любым схематическим перемещениям. Вполне допустимо считать, что его руки и ноги движутся по окружностям с соответствующими центрами. Тогда легко рассчитать их положение в любой момент времени и соответственно разбить это движение на любое число кадров. Откроем первое приложение с анимацией и внесем изменения в тексты обработчиков событий.

25

26 Создание простой мультипликации

Создание простой мультипликации

Они будут иметь следующий вид. #define Pi 3.1415926535897932385 short int cadr = 0; // номер кадра short int H=30; // длина ноги и руки short int Xpos = 3 * H; // координата опорной ноги short int Ypos = 120; // "земля" short int Hrasn = 30; // высота тела short int Rhead =10; // радиус головы short int revers =1; // направление движения short int L = H * 1.41; // длина ноги short int Ncadr=16; // число кадров на шаг

26

27 Создание простой мультипликации

Создание простой мультипликации

Void _fastcall tform1::draw() { float angl = pi/4*(l+(2.*Cadr)/(ncadr-l)); short int yb = ypos-h*sin(angl); short int yt = yb-hmen; short int X = xpos-revers*h*cos(angl); image1->canvas->moveto(x-(xpos-x),ypos); image1->canvas->lineto(x,yb); // нога if (cadr!= Ncadr/2-1) image1->canvas->lineto (xpos,ypos); // другая нога image1->canvas->moveto(x,yb); image1->canvas->lineto(x,yt); // туловище short int X1 = X - revers * (yb-ypos); image1->canvas->moveto(x1,yt+5-(xpos-x));

27

28 Создание простой мультипликации

Создание простой мультипликации

Image1->canvas->ellipse(x1-rhead / 2, yt+5-(xpos-x)-rhead/2, x1+rhead/2, yt+5-(xpos-x)+rhead/2); image1->canvas->lineto(x,yt+5); // рука if (cadr!= Ncadr / 2-1) { image1->canvas->ellipse(x1-rhead/2, yt+5+(xpos-x)-rhead1/2, xl+rhead/2, yt+5+(xpos-x)+rhead/2); image1->canvas->lineto(x1,yt+5+(xpos-x)); // другая рука } image1->canvas->ellipse(x-rhead,yt-2*rhead, x+rhead, yt); image1->canvas->rectangle(x-rhead,yt-2*rhead-4, x+rhead,yt-2*rhead-1); }

28

29 Создание простой мультипликации

Создание простой мультипликации

void _fastcall TForm1::BRunClick(TDbject *Sender) { Timer1->Enabled = !Timer1->Enabled; } void _fastcall TForm1::Tiimer1Timer(TObject *Sender) { Draw () ; cadr = (cadr+1) % Ncadr; if (cadr == 0) if ((Xpos < Image1->Picture->Width-revers*3*H) && (Xpos>-revers*3*H)) Xpos += revers*H*l.41; else revers = -revers; Draw (); }

29

30 Создание простой мультипликации

Создание простой мультипликации

Void _fastcall tform1::formcreate(tobject *sender) { image1->canvas->moveto(0, ypos+3) ; image1->canvas->pen->width = 4; image1->canvas->lineto(image1->clientwidth,ypos+3); // земля image1->canvas->pen->width = 1; image1->canvas->pen->mode = pmnotxor; timerl->lnterval = 600/ncadr; draw () }

30

31 Создание простой мультипликации

Создание простой мультипликации

В этом коде использованы функции sin и cos. В FormCreate добавлен оператор, задающий выдержку таймера (свойство Interval) путем деления 600 на константу Ncadr, которая задает число кадров на один шаг человечка. Длительность одного шага выбрана равной 600 миллисекунд. BRunClick не изменилась. TimerITimer начинается и кончается вызовами Draw: первый из которых стирает изображение предыдущего кадра второй - рисует новый кадр. После первого вызова Draw рассчитывается значение переменной cadr оператором cadr = (cadr+l) % Ncadr;

31

32 Создание простой мультипликации

Создание простой мультипликации

Поскольку тут используется операция вычисления остатка, от деления cadr + 1 на Ncadr, то значение cadr последовательно получает значения 0, 1, 2, ..., Ncadr - 1, 0, 1, ... . Шаг начинается с cadr = 0. При этом проверяется, не приблизился ли человечек к краю формы, и если приблизился - изменяется направление движения (знак переменной revers). Наиболее серьезно изменилась процедура Draw. Она начинается с определения угла наклона ног и рук Angl, исходя из номера кадра: float Angl = Pi/4*(l+(2.*cadr)/(Ncadr-1)) ;

32

33 Создание простой мультипликации

Создание простой мультипликации

Константа 2 в этом выражении записана с точкой и произведение 2.*cadr заключено в скобки. Это принципиально, ибо в этом случае константа воспринимается как значение с плавающей запятой и все выражение (2.*cadr)/(Ncadr-1) вычисляется как значение с плавающей запятой. Если не поставить точку после 2, то будут применяться целочисленные вычисления и пока 2*cadr меньше, чем Ncadr-1, значения этого выражения будут равны 0 и угол изменяться не будет. После вычисления угла на его основе строится изображение. Внимание: вторые нога и рука человечка рисуются при выполнении условия cadr!= Ncadr/2-1. Это связано с тем, что, если число кадров Ncadr четное, то в этот момент одна нога накладывается на другую и руки также накладываются друг на друга. Поскольку рисование идет в режиме pmNotXor, то это наложение приведет к тому, что у человечка вообще исчезнут в этом кадре руки и ноги.

33

34 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

Компонент MediaPlayer (страница System) - универсальный проигрыватель аудио- и видео- информации. Он инкапсулирует интерфейс управления носителями (Media Control Interface - MCI) 32-разрядных Windows. Компонент можно использовать в двух режимах. 1. Можно предоставить возможность управлять воспроизведением информации с помощью кнопочного интерфейса (панель управления различными проигрывателями). 2. Можно сделать сам компонент невидимым и управлять воспроизведением информации с помощью его методов. Пользовательский интерфейс медиаплеера имеет ряд кнопок, управляемых мышью или клавишей пробела и клавишами со стрелками.

34

35 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

Компонент MediaPlayer (страница System) - универсальный проигрыватель аудио- и видео- информации. Он инкапсулирует интерфейс управления носителями (Media Control Interface - MCI) 32-разрядных Windows. Компонент можно использовать в двух режимах. 1. Можно предоставить возможность управлять воспроизведением информации с помощью кнопочного интерфейса (панель управления различными проигрывателями). 2. Можно сделать сам компонент невидимым и управлять воспроизведением информации с помощью его методов. Пользовательский интерфейс медиаплеера имеет ряд кнопок, управляемых мышью или клавишей пробела и клавишами со стрелками.

35

36 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

Play

Воспроизведение.

Pause

Пауза воспроизведения или записи. Если медиа-плеер в момент щелчка уже в состоянии паузы, то воспроизведение или запись возобновляются.

Stop

Останов воспроизведения или записи.

Next

Переход на следующий трек или на конец.

Prev

Переход на предыдущий трек или на начало.

Step

Перемещение вперед на заданное число кадров.

Back

Перемещение назад на заданное число кадров.

Record

Начало записи.

Eject

Освобождение объекта, загруженного в устройство.

Кнопка

Действие

36

37 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

Каждой кнопке медиа-плеера соответствует одноименный метод: Play, Pause, Stop, Next, Previous, Step, Back, StartRecording, Eject. Тип устройства мультимедиа, с которым работает медиа-плеер, определяется свойством DeviceType. Если устройство мультимедиа хранит объект воспроизведения в файле, то имя файла задается свойством FileName. По умолчанию свойство DeviceType имеет значение dtAutoSelect. Это означает, что медиа-плеер пытается определить тип устройства исходя их расширения имени файла FileName. Если свойство AutoOpen установлено в true, то медиа-плеер пытается открыть устройство, указанное свойством DeviceType, автоматически во время своего создания в процессе выполнения приложения

37

38 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

Воспроизведение видео информации по умолчанию производится в окно, которое создает само устройство мультимедиа. Это можно изменить, если в свойстве Display указать оконный элемент, в котором должно отображаться изображение. В свойстве DisplayRect можно также задать прямоугольную область этого окна, в которую должно выводиться изображение с помощью функции Rect. Первые две координаты задают положение левого верхнего угла изображения. Два следующих числа задают ширину и высоту изображения, а не координаты правого нижнего угла. Например, оператор MediaPlayer1->DisplayRect = Rect(10,10,200,200); задает для вывода область с координатами левого верхнего угла (10, 10), длиной и шириной, равными 200.

38

39 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

В компоненте MediaPlayer определены события OnClick и OnNotify. Первое из них происходит при выборе пользователем одной из кнопок медиа-плеера и определено как enum TMPBtnType (btPlay, btPause, btstop, btNext, btPrev, btstep, btBack, btRecord, btEject); void _fastcall Click(TObject *Sender, TMPBtnType Button, bool &DoDefault) Параметр Button указывает выбранную кнопку. Параметр DoDefault, передаваемый по ссылке, определяет выполнение (при значении true по умолчанию) или отказ от выполнения стандартного метода, соответствующего выбранной кнопке.

39

40 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

Событие OnNotify происходит после возвращения очередного метода, если свойство медиаплеера Notify было установлено в true. Способ возврата любого метода медиаплеера определяется свойством Wait. Если установить Wait равным false, то возвращение управления в приложение происходит сразу после вызова метода, не дожидаясь завершения его выполнения. Таким образом, задав Notify равным true и Wait равным false, можно обеспечить немедленный возврат в приложение и отображения пользователю текущего состояния объекта мультимедиа. Свойства Notify и Wait действуют только на один очередной метод. Поэтому их значения надо каждый раз восстанавливать в обработчиках событий OnClick или OnNotify.

40

41 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

В обработчиках событий можно читать свойство Mode, характеризующее текущее состояние устройства мультимедиа. Можно также читать и устанавливать ряд свойств, характеризующих размер воспроизводимого файла и текущую позицию в нем. Рассмотрим пример использования компонента MediaPlayer. Поместим на форму компоненты MediaPlayer, MainMenu и OpenDialog. В свойстве Filter компонента OpenDialog введем следующие фильтры:

Аудио и видео (*.Wav,*.Mid,*.Avi)

*.wav; *.mid; *.avi

Аудио (*.Wav,*.Mid)

*.wav;*.mid

Видео (*.Avi)

*.avi

Все файлы

* *

41

42 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

В меню зададим одну команду: Файл | Открыть и в его обработчике события OnClick поместим оператор if (OpenDialogl->Execute()) { MediaPlayer1->FileName = OpenDialogl->FileName; MediaPlayer1->Open() ; } который открывает устройство мультимедиа, соответствующее выбранному пользователем файлу. При этом надо проследить, чтобы в компоненте MediaPlayer свойство DeviceType равнялось dtAutoSelect. Это обеспечит автоматический выбор соответствующего устройства мультимедиа исходя из расширения выбранного файла.

42

43 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

В компоненте MediaPlayer при желании можно указать имя файла FileName, открываемого в момент начала выполнения приложения. Тогда надо установить свойство AutoOpen в true. Усложним приложение. Введем в него четыре метки. В Label1 укажем надпись «Файл:». В Label2 будем программно отображать состояние проигрывателя, в Label3 - последнюю вызванную операцию, а Label4 расположим рядом с меткой Label1 так, чтобы она служила ее продолжением. В ней отобразим имя загруженного файла в сокращенном виде с многоточиями, если имя файла не помещается в отведенном для него месте.

43

44 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

Код, обеспечивающий обратную связь в приложении, может быть следующим. #include "filectrl.hpp" AnsiString ModeStr[7] = {"He готово", "Остановлено","Воспроизведение", "Запись", "Поиск", "Пауза", "Открыто"}; Ansistring ButtonStr[9] = {"Воспроизведение", "Пауза", "Стоп", "Следующий", "Предыдущий", "Вперед", "Назад", "Запись", "Конец"}; void _fastcall TForm1::FormCreate(TObject *Sender) { Label4->Caption = MinimizeName(MediaPlayer1->FileName, Label4->Canvas,200); Label2->Caption = "Состояние: " + ModeStr[MediaPlayer1->Mode]; MediaPlayer1->Notify = true; }

44

45 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

void _fastcall TForm1::OpenClick(TObject *Sender) { if (OpenDialogl->Execute()) { MediaPlayer1->FileName = OpenDialogl->FileName; Label4->Caption = MinimizeName(MediaPlayer1->FileName, Label4->Canvas,200); MediaPlayer1->Open(); MediaPlayer1->Notify = true; } }

45

46 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

void _fastcall TForm1::MediaPlayer1Notifу(TObject *Sender) { Label2->Caption = "Состояние: "+ModeStr[MediaPlayer1->Mode]; // Переустановка Notify, чтобы событие произошло в следующий раз MediaPlayer1->Notify = true; { void _fastcall TForm1::MediaPlayer1Click(TObject *Sender, TMPBtnType Button, bool &DoDefault) { Label3->Caption = "Операция: " + ButtonStr[Button]; // Переустановка Notify, чтобы произошло событие OnNotify MediaPlayer1->Notifу = true; }

46

47 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

В свойстве FileName компонента MediaPlayer1 задано имя файла, загружаемого в момент создания MediaPlayer1, т.е. в момент создания приложения. Соответственно в обработчике FormCreate записаны операторы, задающие имя файла и текущее состояние проигрывателя в метки Label4 и Label2 соответственно. Для записи имени файла использована функция MinimizeName, которая обеспечивает сокращенное отображение пути к файлу в случае, если полный путь не помещается в отведенном месте. Чтобы эта функция работала, в модуль добавлена директива компилятора #include "filectrl.hpp"

47

48 Универсальный проигрыватель MediaPlayer

Универсальный проигрыватель MediaPlayer

В дальнейшем отображение соответствующей информации предусмотрено в процедурах, соответствующих: открытию файла (OpenClick), нажатии пользователем какой-нибудь кнопки проигрывателя (MediaPlayer1Click), возвращении любого метода проигрывателя (MediaPlayer1Notify). После каждого события выполняется оператор MediaPlayer1->Notify = true;, обеспечивающий наличие события OnNotify после возвращения следующего метода проигрывателя.

48

«ООП IDE borland C builder»
http://900igr.net/prezentacija/anglijskij-jazyk/oop-ide-borland-c-builder-131111.html
cсылка на страницу
Урок

Английский язык

29 тем
Слайды