Компонент TMediaPlayer

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Компонент TMediaPlayer находится на вкладке System палитры компонентов (рисунок 11).

Рисунок 11 – Расположение компонента TMediaPlayer в палитре компонентов.

Каждая кнопка компонента имеет собственное имя, позволяющее программисту сделать какую-либо кнопку невидимой или недоступной. В таблице 3 приводится имя и назначение каждой кнопки (под носителем информации подразумеваются файлы и физические устройства, которые могут служить источником или приемником информации).

Таблица 3 – Назначение кнопок компонента TMediaPlayer

btEject Освобождает устройство от носителя информации

Основные свойства компонента TMediaPlayer представлены в таблице 4.

Таблица 4 – Свойства компонента TMediaPlayer

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

property VisibleButtons: TButtonSet; Содержит множество видимых кнопок. property Wait: Boolean;

Если свойство AutoEnable имеет значение True, компонент автоматически по типу устройства или расширению файла и значению свойства Mode определяет, какие кнопки будут доступны пользователю. Если свойство AutoEnable имеет значение False, доступными будут только те кнопки, которые входят в множество EnabledButtons. Множество EnabledButtons игнорируется, если свойство AutoEnable имеет значение

True.

Свойство AutoRewind игнорируется, если устройство имеет дорожки и если процесс записи/воспроизведения вызван изменением значения в свойстве StartPos или EndPos.

Свойство Display позволяет указать компонент (обычно – панель TPanel), который будет служить "экраном" для отображения видеочасти файлов типа AVI. Таким образом, в отличие от компонента TAnimate, компонент TMediaPlayer может воспроизводить и звук, и изображение одновременно.

Положение носителя в свойствах StartPos, Length, Position, Start и End в зависимости от значения свойства TimeFormat должно интерпретироваться следующим образом (отсчет ведется от начала носителя информации):

−tfMilliseconds – миллисекунды в диапазоне от 0 до 4 294 967 295;

−tfHMS – часы, минуты, секунды (занимают в порядке перечислениям одному байту начиная с младшего; старший байт LongInt не используется.

−tfMSF – минуты, секунды и кадры (занимают в порядке перечисления по одному байту начиная с младшего; старший байт LongInt не используется);

−tfFrames – кадры в диапазоне от 0 до 4 294 967 295;

−tfSMPTE24 – часы, минуты, секунды и количество блоков по 24 кадра в секунду (занимают в порядке перечисления по одному байту, начиная с младшего);

−tfSMPTE25 – часы, минуты, секунды и количество блоков по 25 кадров в секунду;

−tfSMPTE30 – часы, минуты, секунды и количество блоков по 30 кадров в секунду;

−tfSMPTE30Drop – часы, минуты, секунды и количество пропущенных блоков по 30 кадров в секунду;

−tfBytes – байты в диапазоне от 0 до 4 294 967 295;

−tfSamples – количество условных блоков информации в диапазоне от 0 до 4 294 967 295;

−tfTMSF – дорожки, минуты, секунды и кадры (занимают в порядке перечисления по одному байту, начиная с младшего).

Свойство TimeFormat в окне инспектора объектов недоступно и устанавливается автоматически при открытии мультимедийного устройства методом Open. В связи с этим значения в свойствах StartPos, Position и EndPos могут устанавливаться, а в свойствах Length, Start, TrackLength и TrackPosition становятся действительными только после

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

вызова метода Open. Некоторые методы компонента TMediaPlayer перечислены в таблице 5.

Таблица 5 – Методы компонента TMediaPlayer

События компонента TMediaPlayer представлены в таблице 6.

Таблица 6 – События компонента TMediaPlayer

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

В качестве примера использования компонента TMediaPlayer рассмотрим программу мультимедиа проигрывателя.

На форму frmEasyPlayer поместите две панели (pnView, pnCommand). Установите значение свойства Align для компонента pnCommand равным alBottom, а для компонента pnView равным alClient.

Поместите на панель pnCommand компонент TMediaPlayer (mmPlayer). Установите значение свойства AutoSize компонента pnCommand равным True. Поместите на панель pnCommand компонент TBitBtn (btnOpen). Настройте вид компонента mmPlayer как показано на рисунке 12. Добавьте на форму компонент TOpenDialog (OpenDialog).

Рисунок 12 – Вид формы после добавления компонентов

Настройте свойство Filter компонента OpenDialog как показано на рисунке 13

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Рисунок 13 – настройка свойства Filter компонента OpenDialog

Добавьте в секцию public формы метод SetTitle. Этот метод служит для установки заголовка формы в зависимости от имени открытого файла. Тело метода приведено ниже.

procedure TfrmEasyPlayer.SetTitle(ATitle: string); begin

if ATitle<>'' then Caption:='Проигрыватель - ' + ATitle else Caption:='Проигрыватель';

end;

Добавьте в форму обработчики событий OnClick для компонента btnOpen и OnCreate для формы.

procedure TfrmEasyPlayer.FormCreate(Sender: TObject); begin

SetTitle(''); end;{FormCreate}

procedure TfrmEasyPlayer.btnOpenClick(Sender: TObject); begin

if OpenDialog.Execute then begin

try mmPlayer.FileName:=OpenDialog.FileName; mmPlayer.Open;

SetTitle(ExtractFileName(OpenDialog.FileName)); except

on Err:EMCIDeviceError do ShowMessage(Err.Message); else

ShowMessage('Неизвестная ошибка'); end;{except}

end;{if} end;{btnOpenClick}

Для того чтобы видеоизображение выводилось не в окно медиапрогрывателя, а на компонент pnView укажите его в свойстве Display компонента mmPlayer. Чтобы обеспечить масштабирование выводимого видеоизображения необходимо при изменении размеров панели pnView изменять значение свойства mmPlayer.DisplayRect. Создайте обработчик события OnResize для компонента pnView.

procedure TfrmEasyPlayer.pnViewResize(Sender: TObject); begin

//изменяем размер области для вывода изображений mmPlayer.DisplayRect:=pnView.ClientRect;

end;{pnViewResize}

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

Запустите программу, проверьте ее работоспособность. Вид окна работающей программы приведен на рисунке 14.

Рисунок 14 – Окно программы «EasyPlayer».

Обратите внимание на то, что будут проигрываться только те мультимедиа файлы, для которых в операционной системе установлены драйверы. Поэтому вызовы методов Open и Play компонента TMediaPlayer необходимо обязательно помещать в защищенную секцию исключения.

Иногда необходимо проиграть несколько файлов подряд, если использовать для этого код, приведенный ниже, то будет проигрываться только последний файл.

...

mmPlayer.FileName:=’file1.mp3’; mmPlayer.Open;

mmPlayer.Play;

mmPlayer.FileName:=’file2.mp3’; mmPlayer.Open;

mmPlayer.Play;

...

Создайте новый проект. Поместите на форму (frmSndList) компонент TMediaPlayer (mmPlayer). Установите значение свойства Visible компонента mmPlayer равным False. Добавьте обработчики событий OnCreate, OnKeyDown и OnDestroy для формы. Создайте обработчик события OnNotify для компонента mmPlayer. Листинг программы приведен ниже.

Листинг 3

unit UPlayer;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer;

type

TfrmSndList = class(TForm)

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

mmPlayer: TMediaPlayer;

procedure mmPlayerNotify(Sender: TObject); procedure FormCreate(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure FormDestroy(Sender: TObject); private

{Private declarations } public

{Public declarations }

//список для хранения списка mp3 файлов

SndList:TStringList;

//индекс текущего проигрываемого файла

CurFile:Integer;

end;

var frmSndList: TfrmSndList;

implementation

{$R *.dfm}

procedure TfrmSndList.mmPlayerNotify(Sender: TObject); begin

//если проигрыватель остановлен, //то запускаем следующий файл из списка if mmPlayer.Mode=mpStopped then

begin Inc(CurFile);//следующий файл

if CurFile<=SndList.Count-1 then begin

mmPlayer.FileName:=SndList.Strings[CurFile];

mmPlayer.Open;

mmPlayer.Play;

//устанавливаем заголовок формы

Caption:=SndList.Strings[CurFile]; end

else //список исчерпан закрываем программу

Halt(0); end;{if}

end;{mmPlayerNotify}

procedure TfrmSndList.FormCreate(Sender: TObject); var Search:TSearchRec;

begin

//создаем список

SndList:=TStringList.Create;

//ищем все файлы mp3 в текущем каталоге if FindFirst('*.mp3', 0, Search)=0 then

begin repeat

SndList.Add(Search.Name); until FindNext(Search)<>0;

CurFile:=0;//индекс первого файла для проигрывания end{if}

else CurFile:=-1; //нет файлов в списке FindClose(Search);