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

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

Добавьте:

1. Кнопку OK, которая будет начинать процесс воспроизведения.

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

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

Напишем два обработчика событий procedureTForm1.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