Ваш браузер устарел. Рекомендуем обновить его до последней версии.





 


 



Delphi

 

 


Урок 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.


Flag Counter
Яндекс.Метрика
200stran.ru: показано число посетителей за сегодня, онлайн, из каждой страны и за всё время
Besucherzahler russain brides
счетчик посещений

Выбери лучшее!

allbest