DELPHI MEDIAPLAYER ПРИМЕРЫ

Delphi предоставляет возможность использовать управляющий элемент TMediaPlayer для воспроизведения аудио- и видеофайлов. Пример простого проигрывателя аудиофайлов:

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := 'audio.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Если нужно обработать события, связанные с трансляцией медиа-файлов, можно использовать следующий код:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
case MediaPlayer1.NotifyValue of
nvSuccessful: ShowMessage('Воспроизведение успешно');
nvFailure: ShowMessage('Ошибка воспроизведения');
nvSuccessfulOpen: ShowMessage('Файл открыт успешно');
end;
end;

Для отключения звука или включения его определенной части можно использовать следующий код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
MediaPlayer1.AudioOutput := aoMute
else
MediaPlayer1.AudioOutput := aoPreferred;
end;

Для создания собственного настраиваемого проигрывателя можно использовать следующий пример:

type
TForm1 = class(TForm)
MediaPlayer: TMediaPlayer;
TrackBar1: TTrackBar;
procedure MediaPlayerNotify(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MediaPlayerNotify(Sender: TObject);
begin
if MediaPlayer.NotifyValue = nvSuccessfulClose then
MediaPlayer.Play;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
MediaPlayer.Position := TrackBar1.Position;
end;

Созданный настраиваемый проигрыватель использует TMediaPlayer и TTrackBar для контроля над воспроизведением и позицией проигрывания файлов.

Пример использования компонента KRIniConfig в Delphi

Вебинар \

Урок на делфи 55. Аудио плеер (media player).

Media Player - Delphi tutorial

25 Компонент MediaPlayer

Урок delphi-hlp.ru,MediaPlayer

как установить компонент windows media player в delphi xe5/7 и тд

Пример установки компонентов в Delphi

Реклама
Новое
Реклама