Для поиска темы - пользуйтесь СИСТЕМОЙ ПОИСКА


Стоимость дипломной работы


Home Для студента... Практическая работа №6 Воспроизведение немых видео клипов – компонент Animate.

Практическая работа №6 Воспроизведение немых видео клипов – компонент Animate.
загрузка...
Рейтинг пользователей: / 1
ХудшийЛучший 

Практическая работа №6 Воспроизведение немых видео клипов – компонент Animate.


Компонент  Animate позволяет воспроизводить на форме стандартные видео клипы Windows (типа копирования, поиска файлов и т. п.) и немые видео файлы .avi Эти файлы представляют собой последовательность кадров битовых матриц. 

Создайте новое приложение, перенесите на форму компонент Animate. Воспроизводимое изображение задается одним из двух свойств: Filename или CommonAVI. Первое свойство позволяет программно задать имя воспроизводимого файла. А второе – воспроизводить стандартные мультипликации Windows.

В компоненте  Animate предусмотрены события OnClose, OnOpen, OnStart,, OnStop, генерируемые соответственно в моменты закрытия и открытия компонента, начала и конца воспроизведения.

Тестовый пример воспроизведения видеоклипа.

Установите свойство Visible компонента Animate  в false. Это надо для того, чтобы изображение возникало только тогда, когда произойдет соответствующее событие: копирование, показ мультипликации, и т.д. Свойство Autosize установите – вfalse, и свойство  Activ установите – в false.

Добавьте: кнопку OK- которая будет начинать процесс воспроизведения.

Компонент Timer, который служит для отсчета интервалов времени. 

Таймер включается при установке значения True в его свойство Enabled и будет включен пока его свойство Enabled не примет значение false.

Компонент ProgressBar1- предназначенный для отображения хода выполнения длительного по времени процесса, который начинается с момента срабатывания таймера. Свойства max  и min -  значения диапазона изменения. Свойство Position – содержит текущее значение отображаемой величины.




Напишем два обработчика событий procedure TForm1.BitBtn1Click – запускает процесс, и procedure TForm1.Timer1Timer – которая  завершает процесс и подготавливает компоненты к следующему запуску.

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Animate1.FileName:='cool.avi';

Animate1.Active:=True;

ProgressBar1.Show;

Timer1.Enabled:=True;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ProgressBar1.Position:= ProgressBar1.Position + 1;

if ProgressBar1.Position >= ProgressBar1.Max then

begin

Timer1.Enabled:=False;

ProgressBar1.Position:=0;

ProgressBar1.Hide;

Animate1.Stop;

end;

end;


 
загрузка...

Добавить комментарий


Защитный код
Обновить