Як створити медіаплеєр з допомогою ООП "delphi"

Зміст

Як створити медіаплеєр з допомогою ООП
Головне вікно програми "Delphi"

Для того, щоб створити невеликий медіа-плеєр за допомогою об'єктно-орієнтованої мови програмування Delphi, вам знадобиться вже встановлена програма Delphi 7 або схожі на неї програми, що використовують мову ООП "Delphi".

Інструкція

Рівень складності: Легко

1 крок

Як створити медіаплеєр з допомогою ООП
Форма після виконання кроку 1

Відкриваєте нову форму у вашій програмі і далі з вкладки "standard" ставите на форму компонент "button" (кнопка). Перейменуйте її на свій лад, наприклад "Відкрити і грати".

2 крок

Як створити медіаплеєр з допомогою ООП
Проект після вставки label'а



Також ставите на форму один компонент "Label" (також вкладка "standard") і перейменовуєте в "Зупинено". В принципі, немає особливої різниці, що сюди писати: все одно цей текст при початку програвання буде замінений на "Програвання [назва файлу]".

3 крок

Як створити медіаплеєр з допомогою ООП
Компонент "OpenDialog"

Обов'язково додаєте на форму компонент "OpenDialog" з вкладки "OpenDialogs". Він потрібен, щоб користувач міг вказати шлях до файлу,.

4 крок

З вкладки "System" ставите на форму компонент "Mediaplayer".

5 крок

Якщо хочете, можете додати компонент "Image" з вкладки Additional, туди ви можете завантажити будь-яку картинку, щоб зробити свій невеликий медіа-програвач більш гарніше!

6 крок

Як створити медіаплеєр з допомогою ООП
Готовий медіа-плеєр

В кнопку "Відкрити і грати" вписуєте наступний код:
OpenDialog1.Execute-
MediaPlayer1.FileName: = OpenDialog1.FileName-
MediaPlayer1.Open-
MediaPlayer1.Play-
Label1.Caption: = 'Програвання' + OpenDialog1.FileName;

Тут замість "Програвання" можна написати будь-який текст, який з'являтиметься в Label1. "+ OpenDialog1.FileName-" означає, що після слова "програвання" буде написано ім'я відкритого файлу.

7 крок

Запускаєте програвач, натиснувши на кнопку "Відкрити і грати", вибираєте музику і слухаєте її!







» » Як створити медіаплеєр з допомогою ООП "delphi"