Форум программистов, компьютерный форум, киберфорум
Arigato
Войти
Регистрация
Восстановить пароль
Рейтинг: 5.00. Голосов: 2.

Установка компонента ActiveX Windows Media Player в Delphi 2007 и более поздних

Запись от Arigato размещена 29.12.2013 в 04:11
Обновил(-а) Arigato 30.12.2013 в 10:29

Компонент TMediaPlayer из вкладки System палитры компонентов имеет массу недостатков, половину файлов он попросту не может воспроизвести. Проблемы возникнут и при попытке проиграть видео в формате MP4, данный компонент не поддерживает этот формат. Чтобы воспроизвести MP4-видео в Delphi, можно воспользоваться стандартным проигрывателем Windows Media Player, импортировав его в свой проект и разместив прямо на форме.

В Delphi 7 установка компонентов ActiveX проходила буквально в 4 клика. Многие же пользователи Delphi 2007 столкнулись с проблемой установки таких компонентов. Причем решение проблемы достаточно трудно найти через гугл, все ссылки ведут на описание установки для Delphi 7. Ниже я привожу подробную инструкцию, как установить компонент ActiveX Windows Media Player в Делфи 2007.

Выполните следующие действия:
1. Создайте новый пакет: File -> New -> Package – Delphi for Win32
2. Сохраните с именем WMP: File -> Save Project As…

Нажмите на изображение для увеличения
Название: img1.png
Просмотров: 1049
Размер:	26.9 Кб
ID:	1920

3. Импортируйте ActiveX компонент: Component -> Import Component… -> Import ActiveX Control

Нажмите на изображение для увеличения
Название: img2.png
Просмотров: 875
Размер:	48.1 Кб
ID:	1921

4. Выберите контрол Windows Media Player

Нажмите на изображение для увеличения
Название: img3.png
Просмотров: 991
Размер:	63.8 Кб
ID:	1922

5. Установите флажок Generate Component Wrappers

Нажмите на изображение для увеличения
Название: img4.png
Просмотров: 1063
Размер:	56.6 Кб
ID:	1923

6. Выберите Add unit to WMP.dproj project и нажмите кнопку Finish

Нажмите на изображение для увеличения
Название: img5.png
Просмотров: 898
Размер:	41.9 Кб
ID:	1924

7. Сохраните проект: File -> Save All
8. Установите пакет: щелкните правой кнопкой мыши по WMP.bpl и выберите пункт меню Install

Нажмите на изображение для увеличения
Название: img6.png
Просмотров: 892
Размер:	10.2 Кб
ID:	1925

9. Если установка завершилась успешно, то появится следующее сообщение:

Нажмите на изображение для увеличения
Название: img7.png
Просмотров: 876
Размер:	12.7 Кб
ID:	1926

Установка компонента завершена. Ниже описан пример работы с ним.
10. Создаем новый проект VCL Forms Application – Delphi for Win32. Теперь в категории ActiveX палитры компонентов появились новые компоненты:

Нажмите на изображение для увеличения
Название: img8.png
Просмотров: 795
Размер:	9.1 Кб
ID:	1927

11. Кидаем компонент TWidowsMediaPlayer на форму

Нажмите на изображение для увеличения
Название: img9.png
Просмотров: 729
Размер:	14.5 Кб
ID:	1928

12. Для начала воспроизведения необходимо выполнить код:
Delphi
1
2
  WindowsMediaPlayer1.URL:='1.mp4';
  WindowsMediaPlayer1.controls.play;
Где WindowsMediaPlayer1 – имя компонента на форме, '1.mp4' – проигрываемый файл.
Если нужно остановить проигрывание видео, то для этого служит метод:
Delphi
1
2
  if WindowsMediaPlayer1.playState = wmppsPlaying then
    WindowsMediaPlayer1.controls.stop;
Мы проверяем, что в данный момент проигрыватель находится в состоянии воспроизведения и вызываем нажатие кнопки stop.
Размещено в Delphi
Показов 23999 Комментарии 1
Всего комментариев 1
Комментарии
  1. Старый комментарий
    Спасибо, ты мне жизнь спас!
    Запись от Popcornrus размещена 29.01.2017 в 17:23 Popcornrus вне форума
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru