Файл: Лабораторная работа 23 Номер учебной группы Пк22 Фамилия, инициалы учащегося Герасименко А. Г. Дата выполнения работы 30. 11. 2022.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 28.03.2024
Просмотров: 6
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Лабораторная работа №23
Номер учебной группы: Пк-22
Фамилия, инициалы учащегося: Герасименко А.Г.
Дата выполнения работы: 30.11.2022
Тема работы: «Разработка программ создания и использования мультимедийных возможностей системы программирования».
Цель работы: «Научить разрабатывать программу создания и использования мультимедийных возможностей системы программирования».
Задание 23
23.1 Разработать алгоритм и программу для воспроизведения звуковых файлов при помощи компонента MediaPlayer. В приложении реализовать возможность выбора песни из списка. Название воспроизводимого трека должно отображаться в компоненте TLabel. С помощью события onTimer компонента TTimer и свойства Position компонента TrackBar отобразить процесс воспроизведения в виде ползунка.
23.2 Разработать программу для воспроизведения видеофайла при помощи компонента MediaPlayer. *Выбор видеофайла реализовать при помощи компонента TOpenDialogs.
Оснащение работы:
-
ПЭВМ -
Среда программирования Delphi
Результат выполнения задания 23.1
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
procedure FormActivate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
procedure MediaPlayer1Notify(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
SOUNDPATCH='c:\windows\media\';
ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var
SearchRec: TSearchRec;
begin
Form1.MediaPlayer1.Play;
if FindFirst(SOUNDPATCH+'*.wav', faAnyFile, SearchRec) =0 then
begin
Form1.ListBox1.Items.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Label2.Caption:=ListBox1.Items[ListBox1.itemIndex];
end;
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
if (Button = btPlay) and (Label2.Caption <> '') then
begin
with MediaPlayer1 do
begin
FileName:=SOUNDPATCH+Label2.Caption;
Open;
end;
end;
end;
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do
begin
Form1.Caption := ModeStr[Mode];
Notify := True;
end;
end;
end.
Результат выполнения задания 23.2
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
ListBox1: TListBox;
MediaPlayer2: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure MediaPlayer2Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
procedure MediaPlayer2Notify(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
SOUNDPATCH='c:\windows\media\';
ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.MediaPlayer1.Play;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.DisplayRect:=Rect(0,0,177,185);
end;
procedure TForm1.FormActivate(Sender: TObject);
var
SearchRec: TSearchRec;
begin
Form1.MediaPlayer1.Play;
if FindFirst(SOUNDPATCH+'*.wav', faAnyFile, SearchRec) =0 then
begin
Form1.ListBox1.Items.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Label2.Caption:=ListBox1.Items[ListBox1.itemIndex];
end;
procedure TForm1.MediaPlayer2Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
if (Button = btPlay) and (Label2.Caption <> '') then
begin
with MediaPlayer1 do
begin
FileName:=SOUNDPATCH+Label2.Caption;
Open;
end;
end;
end;
procedure TForm1.MediaPlayer2Notify(Sender: TObject);
begin
with Sender as TMediaPlayer do
begin
Form1.Caption := ModeStr[Mode];
Notify := True;
end;
end;
end.
