Справочник по компонентам Delphi. Часть 2 - Работа со средствами мультимедиа

Пользуясь свойством Mode, можно узнать текущее состояние устройства. Смысл режимов ясен из названий соответствующих констант:

(Ro) property Mode: TMPModes;
TMPModes = (mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking, mpPaused, mpOpen);

Следующие свойства дают информацию о характеристиках и состоянии ус­тройства:

(Ro) property Start: Longint;

— начальная позиция данных (если имеются дорожки — позиция первой до­рожки);

(Ro) property Length: Longint;

— длина данных;

(Ro) property Position: Longint;

— текущая позиция данных относительно начала (если имеются дорожки — относительно начала текущей дорожки).

Эти три свойства зависят от носителя данных (например, от вставленного компакт-диска или загруженного файла AVI). Значение свойств, хотя и имеет тип Longint, представлено и должно интерпретироваться в зависимости от формата представления времени (свойство TimeFormat).

Если у устройства имеются дорожки (как, например, у аудиоплейера), то информацию о них можно получить через свойства:

(Pb) property Tracks: Longint;

(Pb) property TrackLength[TrackNum: Integer]: Longint;

(Pb) property TrackPosition[TrackNum: Integer]: Longint;

Число кадров, на которое перемещается позиция устройства при шаге впе­ред/назад (операциях Step/Back), определяется свойством:

property Frames: Longint;

property Wait: Boolean;

устанавливает состояние ожидания окончания операции. Если оно установлено в True, функции MCI (Open, Play и т. п.) вернут управление только по за­вершении операции. В противном случае отследить конец операции можно, используя свойство:

property Notify: Boolean;

Если это свойство установлено в True, драйвер MCI посылает медиаплейеру специальные извещения о завершении каждой операции. Результат операции присваивается свойству:

(Ro) property NotifyValue: TMPNotifyValues;
TMPNotifyValues = (nvSuccessful, nvSuperseded, nvAborted, nvFailure);

• nvSuccessful — успешное окончание;
• nvSuperseded — устройство получило еще одну команду, требующую изве­щения, и извещение от данной операции не будет получено;
• nvAborted — операция прервана;
• nvFailure — ошибка во время выполнения операции;

Программист также имеет возможность получить управление в этот момент, предусмотрев обработчик события:

(Pb) property OnNotify: TNotifyEvent;

Если программист хочет использовать свойства Wait и Notify, он должен устанавливать их значения специально перед каждой операцией MCI. После ее завершения их значения более не актуальны и не принимаются во внимание, пока снова не будут переустановлены. Когда свойства не действуют, устройство ожидает конца операции и не посылает извещений (как если бы Wait=True и Notify = False).

Идентификатор устройства, получаемый им при открытии (вызове метода Open), равен значению свойства:

(Ro) property DeviceID: Word;

Он необходим, когда программист хочет сам вызвать функцию API mciSendCommand для выполнения действий, не предусмотренных методами данного класса. В качестве примера приведена функция, позволяющая уз­нать наличие носителя данных в устройстве (такая возможность в компоненте TMediaPlayer, к сожалению, отсутствует):

function TForm1.MediaPresent: boolean;
var 
    StatusParm: TMCI_Status_Parms;
begin
    StatusParm.dwItem := mci_Status_Media_Present;
    inciSendCoimnand(MediaPlayerl.DeviceID, mci_Status, nici_Wait or mci_Status_Itein, Longint (QStatusParm));
    Result := StatusParm.dwReturn;
end;

Перейдем к рассмотрению единиц измерения интервалов и форматам их пред­ставления. Их устанавливает свойство:

property TimeFormat: TMPTimeForinats;
TMPTirneFormats = (tfMilliseconds, tfHMS, tfMSF, tfFrames, tfSMPTE24, tfSMPTE25, tfSMPTE30, tfSMPTE30Drop, tfBytes, tfSamples, tfTMSF);

• tfMilliseconds — число миллисекунд;
• tfHMS — младший байт: часы/минуты/секунды. Старший байт не задей­ствован;
• tfMSF — младший байт: минуты/секунды/кадры. Старший байт не задей­ствован;
• tfFrames — число кадров;
• tfSMPTE24, tfSMPTE25, tfSMPTE30, tfSMPTE30Drop — младший байт: часы/минуты/секунды/кадры. Числа 24, 25 и 30 означают число кадров в секунду;
• tfBytes — число байт;
• tfSamples — число отсчетов;
• tfTMSF — младший байт: дорожки/минуты/секунды/кадры.

Для кодирования и декодирования информации в этих форматах используйте модуль MMSystem, где предусмотрены соответствующие функции. Для ус­тройств, имеющих дорожки (типов dtCDAudio и dtVideoDisc), в конструкторе устанавливается формат tfTMSF.

Два свойства предназначены специально для устройств видео (таких, как dtAVIVideo, dtDigitalVideo, dtOverlay, dtVCR, dtVideodisc). Первое из них

(Pb) property Display: TWinControl;

задает окно (оконный элемент управления), в котором будет производиться отображение видеоданных. Если это свойство равно nil, то драйвер устройства создаст собственное окно. Если устройство не поддерживает альтернативные окна, свойство игнорируется. Прямоугольная область окна Display, в которой должно происходить отображение, задается вторьм свойством:

property DisplayRect: TRect;

Если значение свойства не определено, вывод в область не производится.

Уже говорилось о том, что для пользователя компонент TMediaPlayer выглядит как набор кнопок, каждая из которых соответствует команде MCJ. Все типы кнопок определены в множестве:

TMPBtnType = (btPlay, btPause, btStop, btNext, bCPrev, btStep, btBack, btRecord, btEject);
TButtonSet = set of TMPBtnType;

Отображением кнопок в составе TMediaPlayer во время выполнения управляют три свойства:

(Pb) property VisibleButtons: TButtonSet;

определяет множество видимых кнопок. По умолчанию видны все кнопки, но программисту имеет смысл удалить те, операции которых не поддерживаются данным устройством. Кнопки можно удалить и на стадии разработки, и во время исполнения. Например:

if not (rnpCanRecord in Capabilities) then VisibleButtons := VisibleButtons-[btRecord];

(Pb) property ColoredButtons: TButtonSet;

определяет цветовую раскраску кнопок. Каждой операции (как это принято, например, в бытовой технике) соответствует свой цвет. Значок операции на кнопках, попавших в это множество, в случае их видимости также будет цветным. По умолчанию все кнопки имеют это свойство. Следующее свойство

(Pb) property EnabledButtons: TButtonSet;

определяет множество разрешенных кнопок. Оно должно изменяться в зависимости от выполняемой операции (например, при нажатии Pause запре­щается и Stop). Объект сам может управлять состоянием своих кнопок, если его свойство:

(Pb) property AutoEnable: Boolean;

(Pb) property AutoOpen: Boolean;

— если это свойство установлено в True, устройство автоматически открыва­ется сразу после загрузки TMediaPlayer;

(Pb) property FileName: string;

— имя файла. Используется в том случае, если данные мультимедиа хранятся в файле (например, для dtAVIVideo и dtWaveAudio);

(Pb) property Shareable: Boolean;

— используется при открытии устройства. True означает возможность однов­ременного открытия его другими задачами (другими объектами TMediaPlayer).

Пара событий, возникающих при нажатии кнопок TMediaPlayer определяется свойствами:

(Pb) property OnClick: EMPNotify;
EMPNotify = procedure (Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean) of object;
(Pb) property OnPostClick: EMPPostNotify;
EMPPostNotify = procedure (Sender: TObject; Button: TMPBtnType) of object;

Обработчику события OnClick передается тип нажатой кнопки в параметре Button. В результате обработки он должен вернуть значение в параметре DoDefault. Если оно равно True, вызывается соответствующая кнопке функция MCI и после этого — OnPostClick. Если оно равно False, ничего не происходит (подразумевается, что пользователь сам вызвал требуемые функции MCI).

Для того чтобы проиллюстрировать работу компонента TMediaPlayer, на прилагаемой к книге дискете имеется пример использования проигрывателя CD-аудиодисков CDPLAYER. В нем реализованы все команды управления проигрывателем и отображается его текущее состояние в компоненте-индика­торе типа TGauge.