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





 


 



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

Построим приложение которое позволит воспроизводить видео и звуковые файлы на основе компонента TMediaPlayer. Этот компонент имеет методы Play, Pause, Stop и другие. Для данного приложения понадобятся компоненты TMediaPlayer, TOpenDialog, TButton и TLabel.

 

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