Turbo Delphi 07

1. Пример использования функции PlaySound.
1) Создайте папку под новый проект.
2) Создайте новый проект и сохраните его в созданную папку.
3) Оформите внешний вид окна: задайте заголовок «PlaySound» (Caption), размеры (Width, Height), позицию / положение (Position / Top, Left), стиль границ (BorderStyle) и кнопки заголовка (BorderIcons) формы.
4) Разместите на форме две кнопки – компонент TButton (вкладка Standard).
Получите форму следующего вида:

5) Для кнопки с заголовком «Выход» создайте обработчик OnClick:
procedure TfrmMain.btnCloseClick(Sender: TObject);
begin
Close
end;
7) Для кнопки с заголовком «PlaySound» создайте обработчик OnClick:
procedure TfrmMain.btnPlayClick(Sender: TObject);
var
FileName: PChar;
begin
FileName := PChar('_sound.WAV');
PlaySound(FileName, 0, SND_ASYNC);
end;
8) Подключите в разделе uses модуля библиотеку, в которой реализован функционал PlaySound – модуль Mmsystem.
9) Сохраните проект и запустите программу на исполнение.

2. Пример использования компонента TMediaPlayer.
1) Создайте папку под новый проект.
2) Создайте новый проект и сохраните его в созданную папку.
3) Оформите внешний вид окна: задайте заголовок «Мультимедиа проигрыватель» (Caption), размеры (Width, Height), позицию / положение (Position / Top, Left), стиль границ (BorderStyle) и кнопки заголовка (BorderIcons) формы.
4) Разместите на форме мультимедиа проигрыватель – компонент TMediaPlayer (вкладка System). Компонент TMediaPlayer оформлен, как панель управления устройством с кнопками ("воспроизведение", "перемотка", "запись" и др).
Получите форму следующего вида:

5) В свойство FileName выберите мультимедийный файл (*.avi, *.wav, *,mid). При выборе файла в свойстве будет отображаться абсолютный путь к файлу. Можно, отредактировав путь, задать его относительным. Например, для указания файла в текущей папке, из которой запускается программа, можно указать только имя файла.
6) Установите свойство AutoOpen=True.
7) Сохраните проект и запустите программу и нажмите зеленую кнопку "воспроизведение" (крайняя слева): увидите видеоролик (AVI) или услышите звук (WAV или MID).

3. Вывод видео компонентом TMediaPlayer в другой компонент.
Свойство Display компонента TMediaPlayer позволяет задать компонент вывода видео. Если оно не заполнено, видео воспроизводится в отдельном окошке. В качестве экрана для показа можно использовать различные компоненты, например, панель TPanel.
Реализуйте мультимедиа проигрыватель с выводом видео в компонент TPanel.

4. Мультимедиа плейер с возможностью открытия файла и просмотра прогресса воспроизведения.
1) Создайте папку под новый проект.
2) Создайте новый проект и сохраните его в созданную папку.
3) Оформите внешний вид окна: задайте заголовок «PlaySound» (Caption), размеры (Width, Height), позицию / положение (Position / Top, Left), стиль границ (BorderStyle) и кнопки заголовка (BorderIcons) формы.
4) Разместите на форме следующие компоненты и задайте им свойства:

Название	Компонент	Значения свойств
Мультимедиа проигрыватель	TMediaPlayer (System)	Name = mpMain AutoOpen = True FileName = '_video.avi'
Кнопка	TButton (Standard)	Name = btnClose Caption = 'Выход'
Кнопка	TButton (Standard)	Name = btnOpen Caption = 'Открыть'
Независимый переключатель	TCheckBox (Standard)	Name = chkMain Caption = 'Окно/панель'
Прогресс изменения	TProgressBar (Win32)	Name = pbrMain
Панель	TPanel (Standard)	Name = pnlVideo Anchors = [akLeft, akTop, akRight, akBottom]
Диалог открытия файла	TOpenDialog (Dialogs)	Name = odMain Filter =' AVI File (*.avi)|*.avi| WAVE File (*.wav)|*.wav| MIDI File (*.mid)|*.mid| ALL Files (*.*)|*.*'
Таймер	TTimer (System)	Name = tmrMain Interval = 100

5) Расположите компоненты на форме следующим образом:

6) Создайте следующие обработчики событий для указанных компонент:

Компонент	Событие	Процедура обработчика
TButton («Выход»)	OnClick	procedure TForm1.btnCloseClick(Sender: TObject); begin Close; end;
TButton («Открыть»)	OnClick	procedure TForm1.btnOpenClick(Sender: TObject); begin if odMain.Execute then with mpMain do begin Close; FileName := odMain.FileName; Open; Play; end; end;
TCheckBox	OnClick	procedure TForm1.chkMainClick(Sender: TObject); var Start_From: Longint; begin with mpMain do begin if FileName='' then Exit; Start_From := Position; Close; pnlVideo.Refresh; if chkMain.Checked then Display := pnlVideo else Display := NIL; Open; Position := Start_From; Play; end; end;
TTimer	onTimer	procedure TForm1.tmrMainTimer(Sender: TObject); begin with mpMain do if FileName <>'' then pbrMain.Position := Round(100*Position/Length); end;

7) Сохраните проект и запустите программу на исполнение.