Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
9 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
141.68 kB
Просмотров:
51
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Раздел: Разработка программного решения
Тема: Использование видео для пользователей программ
№2 слайд
Содержание слайда: Компонент MediaPlayer
Для воспроизведения звуковых файлов (форматов wav, midi, mp3), видео файлов (формата avi и некоторые др.) и записи звука в среде Delphi применяется компонент MediaPlayer (раздел System).
№3 слайд
Содержание слайда: Мультимедиа
Мультимедиа – это возможность передачи информации в различной форме (звук, видео и др.).
Мультимедиа-приложение – это программа, в которой используются возможности воспроизведения звуковых и видео файлов. В среде Delphi имеется возможность создания мультимедиа-приложений.
№4 слайд
Содержание слайда: Компонент MediaPlayer. Основные свойства.
AutoOpen - задает автоматическое открытие мультимедиа-устройства перед воспроизведением или записью.
DeviceType – определяет тип мультимедиа-устройства.
Display – определяет окно-экран, используемое для воспроизведения видео.
№5 слайд
Содержание слайда: Компонент MediaPlayer. Основные свойства.
FileName – содержит имя файла для воспроизведения или записи.
Shareable - определяет, могут ли несколько приложений разделять одно мультимедиа-устройство.
VisibleButtons – определяет множество видимых кнопок.
AutoEnabled – включает режим автоматического определения доступности кнопок.
№6 слайд
Содержание слайда: Для того чтобы музыка начала проигрываться при загрузке формы надо создать обработчик
формы FormCreate нижеследующего содержания:
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Play;
end;
№7 слайд
Содержание слайда: procedure TForm1.N2Click(Sender: TObject);
procedure TForm1.N2Click(Sender: TObject);
begin
if dlgopen1.execute then
begin
mp1.filename:=dlgopen1.filename;
mp1.open;
end;
end;
№8 слайд
Содержание слайда: procedure TForm1.N2Click(Sender: TObject);
procedure TForm1.N2Click(Sender: TObject);
begin
if dlgopen1.execute then
begin
mp1.filename:=dlgopen1.filename;
mp1.open;
mp1.DisplayRect:=Rect(0,0,Pnl1.Width,Pnl1.Height);
end;
end;
№9 слайд
Содержание слайда: Создайте подобный проигрыватель используя компонент медиаплеер