Как создать медиаплеер с помощью ООП "Delphi"

Как создать медиаплеер с помощью ООП "Delphi"
Главное окно программы "Delphi"

Для того, чтобы создать небольшой медиа-плеер с помощью объектно-ориентированного языка программирования Delphi, вам понадобится уже установленная программа Delphi 7 или похожие на неё программы, использующие язык ООП “Delphi”.

Инструкция

Уровень сложности: Легко

1 шаг

Как создать медиаплеер с помощью ООП "Delphi"
Форма после выполнение шага 1

Открываете новую форму в вашей программе и далее с вкладки “standard” ставите на форму компонент “button” (кнопка). Переименуйте её на свой лад, к примеру “Открыть и играть”.

2 шаг

Как создать медиаплеер с помощью ООП "Delphi"
Проект после вставки label'а

Также ставите на форму один компонент “Label” (также вкладка “standard”) и переименовываете в “Остановлено”. В принципе, нет особой разницы, что сюда писать: все равно этот текст при начале проигрывания будет заменен на “Проигрывание [название файла]”.

3 шаг

Как создать медиаплеер с помощью ООП "Delphi"
Компонент "OpenDialog"

Обязательно добавляете на форму компонент “OpenDialog” из вкладки “OpenDialogs”. Он нужен, чтобы пользователь мог указать путь до проигрываемого файла.

4 шаг

Из вкладки “System” ставите на форму компонент “Mediaplayer”.

5 шаг

Если хотите, можете добавить компонент “Image” из вкладки Additional, туда вы можете загрузить любую картинку, чтобы сделать свой небольшой медиа-проигрыватель более красивее!

6 шаг

Как создать медиаплеер с помощью ООП "Delphi"
Готовый медиа-плеер

В кнопку “Открыть и играть” вписываете следующий код:
OpenDialog1.Execute;
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
Label1.Caption:=’Проигрывание’+OpenDialog1.FileName;

Здесь вместо “Проигрывание” можно написать любой текст, который будет появляться в Label1. “+OpenDialog1.FileName;” означает, что после слова “проигрывание” будет написано имя открытого файла.

7 шаг

Запускаете проигрыватель, нажав на кнопку “Открыть и играть”, выбираете музыку и слушаете её!

Обсуждение

Ваш комментарий

Запросить инструкцию

Не нашли нужную пошаговую инструкцию?
Возможно, что кто-то из посетителей сайта сможет помочь. Оставьте запрос прямо сейчас, если Вы уверены, что эта тема ещё не освещена на нашем проекте!

Рейтинг
  1. +
  2. -2
0
1