Урок 2     Мультимедийное приложение. Компонент MediaPlayer, его свойства и методы

Построим приложение которое позволит воспроизводить видео и звуковые файлы на основе компонента MediaPlayer. Этот компонент имеет методы Play, Pause, Stop, Next, Previous, Step, Back, StartRecording, Eject. Эти методы позволяют сделать медиаплеер невидимым во время работы приложения, если это нужно. Для данного приложения понадобятся компоненты MediaPlayer (медиаплеер), OpenDialog (окно открытия файла), Button (электронная кнопка) и Label (поле вывода текста).

unit Unit9;

interface

uses
     Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
     Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
     Vcl.ExtCtrls, Vcl.MPlayer;

type
     TForm9 = class(TForm)
           MediaPlayer1: TMediaPlayer;
           Image1: TImage;
           Button1: TButton;
           Button2: TButton;
           Label1: TLabel;
          OpenDialog1: TOpenDialog;
          procedure Button1Click(Sender: TObject);
          procedure Button2Click(Sender: TObject);
     private
          { Private declarations }
     public
          { Public declarations }
     end;

var
     Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
     //вызов окна диалога ОТКРЫТИЕ ФАЙЛА
     OpenDialog1.Execute();
     //передача имени файла медиаплееру от окна диалога
     MediaPlayer1.FileName := OpenDialog1.FileName;
     //открытие медиаплеера
     MediaPlayer1.Open();
     //вывод на экран пути и имени файла
     Label1.Caption := MediaPlayer1.FileName;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
     Close;
end;

end.