Проект “Просмотр видеоклипов”
Разработать проект, который позволяет просматривать выбранные пользователем видеофайлы.
a) Создайте новый проект в Delphi и сохраните его в отдельной папке “Просмотр видеоклипов”;
b) Разместите на форме компоненты OpenDialog, Panel, который необходим для отображения видеофайлов, и MediaPlayer. Компонент MediaPlayer является универсальным проигрывателем аудио- и видео- информации. Измените следующие свойства этого компонента:
- Укажите место показа видеофайла, выбрав в свойстве Display значение Panel1;
- В данном проекте управление видеофайлами будем осуществлять с помощью методов MediaPlayer, а не с помощью кнопок этого компонента, поэтому сделайте MediaPlayer невидимым с помощью свойства Visible;
c) Разместите на форме кнопку “Начало просмотра” и обработайте событие OnClick для этой кнопки так, чтобы на панели осуществлялся просмотр файла, выбранного пользователем в диалоговом окне открытия файла:
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
{определяем область показа видеофайла (прямоугольник)}
MediaPlayer1.DisplayRect:=Rect(10,10,Panel1.Width-10, Panel1.Height-10);
MediaPlayer1.Play;
end;
d) Проверьте работу проекта.
Мне больше нечего сказать про эту лабораторную работу, качайте и пользуйтесь)
Надеюсь, Вам помог этот сайт и я в частности))
monks_jk