3.1.2 Компонент GroupBox
Видеоклип представляет собой файл в формате AVI, содержащий последовательность отдельных кадров, при отображении которых создается эффект движения. Наряду с изображением AVI – файлы могут содержать звук. Для воспроизведения видеоклипов можно использовать любой из компонентов – Animate и MediaPlayer.
Компонент Animate позволяет проигрывать AVI – файлы, а также отображать стандартную анимацию, используемую в Windows. AVI – файлы, воспроизводимые компонентом Animate, имеют ограничения:
-
Они не должны содержать звука
-
Информация в них не должна быть сжатой.
-
Размер
файла не должен превышать 64 Кбайт.
Поэтому для вывода видео будем использовать компонент GroupBox, который так же позволяет работать с видео. А для воспроизведения видео файлов будем использовать уже известный компонент MediaPlayer.
4 Состав программных средств
Программное и аппаратное обеспечение для нормальной работы программы стандартное –Delphi Borland 7.
5 Состав технических средств
Данная программа была написана на языке программирования Delphi.
Системные требования:
Процессор не ниже Pentium 2;
Операционная система Windows 95, 98, 2000, XP;
Оперативная память не меньше 125 Мб;
Клавиатура, мышь, оборудование для вывода звука;
Цветной монитор SVGA.
Заключение
Результатом данной курсовой работы является разработка аудио и видеопроигрывателя. Разработанный проигрыватель располагает набором минимальных функций и возможностей. Самое главное он обладает важным преимуществом, а именно простотой реализации. Как можно заметить, созданное приложение может проигрывать и воспроизводить самые распространенные файлы (MP3, WMA, AVI).
Список использованных источников
Любавин С. А. – Программирование на Delphi – М.:НТ Пресс, 2008 – 576с.
А. Хомоненко, В. Гофман, Е. Мещеряков, В. Никифоров. Delphi 7. СПб.: БХВ–Петербург, 2003. – 912с.
Фаронов В.В. Delphi 4: Учебный курс. – М.: Нолидж, 1998. – 464 с.
Фаронов В.В. Delphi 6: Учебный курс. – СПб.: Питер, 2002. – 512с.
Фаронов В. В. Система программирования Delphi. – СПб.: БХВ–Петербург, 2003. – 912с.
Фаронов В.В. Delphi. Программирование на языке высокого уровня // 1-е издание.– СПб.: Питер, 2003, 640 с.
Приложение а
1. Аудио – проигрыватель
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, MPlayer;
type
TForm2 = class(TForm)
lbMainTime: TLabel;
MediaPlayer1: TMediaPlayer;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
lbFileName: TLabel;
Button4: TButton;
Button5: TButton;
procedure UpdateViewTime;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
const perem=1000; // константа для перемотки на 10000 миллисекунд
implementation
uses Unit1, Unit3;
{$R *.dfm}
function FileLangToStr(leng: longint):string;
var
strTime: string; // переменная результирующая строки
sec: Longint;
min: longint;
Begin
// получаем секунды и минуты из миллисекунд(lengt)
sec:= trunc(leng/1000);
min:= trunc(sec/60);
sec:= sec-min*60;
strTime:= IntToStr(min);
// если секунд меньше 10, то преобразуем результирущую строку(участок минут), добовляя '0' спереди
If sec < 10 then strTime:= strTime + ':0' + IntToStr(sec)
else strTime:= StrTime + ':' + IntToStr(sec);
FileLangToStr := strTime;
end;
procedure TForm2.UpdateViewTime;
var
// длина файла и позиция в файле
leng, posit: Longint;
begin
// находим длину воспроизводимого файла
leng:= MediaPlayer1.Length;
// находим позицию в воспроизводимом файле
posit:= MediaPlayer1.Position;
// преобразуем время в строку
lbMainTime.caption:= FileLangToStr(posit);
// устанавливаем имя файла
lbFileName.caption:= MediaPlayer1.FileName;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute=true then
begin
// открываем файл
MediaPlayer1.FileName:= OpenDialog1.FileName;
MediaPlayer1.Open;
// устанавливаем значения в индикаторах
UpdateViewTime;
// включам таймер
Timer1.Enabled:= true;
end;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
// обновление значений экрана
UpdateViewTime;
end;
procedure TForm2.FormActivate(Sender: TObject);
begin
// временное выключение таймера
Timer1.Enabled:= false;
// задание значений
lbMainTime.Caption:= '00:00';
lbFileName.Caption:= 'no file...';
// установка фильтров для диалога
OpenDialog1.Filter:= 'Mp3 music(*.mp3)|*.MP3|Wav files(*.wav)|*.WAV';
end;
procedure TForm2.Button3Click(Sender: TObject);// перемотка вперед
begin
if mpCanPlay in MediaPlayer1.Capabilities then
begin
if (MediaPlayer1.Position+perem)<=MediaPlayer1.Length then
MediaPlayer1.Position:= MediaPlayer1.Position + perem
else
MediaPlayer1.Position:= MediaPlayer1.Length;
MediaPlayer1.Play;
end;
end;
procedure TForm2.Button2Click(Sender: TObject); // перемотка назад
begin
if mpCanPlay in MediaPlayer1.Capabilities then
begin
if
MediaPlayer1.Position>=perem then
MediaPlayer1.Position:= MediaPlayer1.Position - perem
else
MediaPlayer1.Position:=0;
MediaPlayer1.Play;
end;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
form2.Visible:= false;
form1.Show;
end;
end.
2. Видеопроигрыватель
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer;
type
TForm3 = class(TForm)
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
GroupBox1: TGroupBox;
Button1:
TButton;
Button2: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm3.Button2Click(Sender: TObject);
begin
form3.Visible:= false;
form1.Show;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
//
устанавливаем область воспроизведения
MediaPlayer1.Display:= GroupBox1;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute = True then
begin
// загружаем файл, выбранный в диалоге открытия
MediaPlayer1.FileName:= OpenDialog1.FileName;
// активизируем проигрыватель
MediaPlayer1.Open;
end;
end;
end.