Просмотр видеофильма с использованием

компонента MediaPlayer

Постановка задачи. Создайте проект, позволяющий просматривать видеоролики.

Реализация. Положите в папку проекта видеоролик. На форму положите кнопку «Воспроизвести» и две кнопки для покадрового просмотра: «Следующий кадр» и «Предыдущий кадр». Положите два компонента TRadioButton для выбора непрерывного воспроизведения или покадрового просмотра. Также положите TMediaPlayer. Ниже дан код всех необходимых обработчиков.

procedure TForm1.FormCreate(Sender: TObject);

begin

// Определим размер области вывода видеофайла

// на поверхности формы

MediaPlayer1.DisplayRect:=Rect(0,0,200,150);

end;

// Воспроизведение видеофайла

procedure TForm1.Button1Click(Sender: TObject);

begin

MediaPlayer1.Play;

end;

// Активизация режима просмотра всего видеофайла

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Button1.Enabled:=True;//Доступна кнопка Воспроизвести

// Сделать недоступными кнопки покадрового просмотра

Form1.Button3.Enabled:=False;

Form1.Button2.Enabled:=False;

end;

// Активизация режима покадрового просмотра

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

MediaPlayer1.Pause;

Button2.Enabled:=True;

Button3.Enabled:=True;

Button1.Enabled:=False;

end;

// К следующему кадру

procedure TForm1.Button2Click(Sender: TObject);

begin

// Увеличиваем позицию кадра на единицу

MediaPlayer1.Position:=MediaPlayer1.Position+1;

end;

// К предыдущему кадру

procedure TForm1.Button3Click(Sender: TObject);

begin

// Уменьшаем позицию кадра на единицу

MediaPlayer1.Position:=MediaPlayer1.Position – 1;

end;

Один момент из просматриваемого видеоролика приведен на рис. 50.

Рис.50. Просмотр видеофильма