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