воспроизведение файлов .mp4

[Denis_"programist"]

Всем доброго времени суток, пишу курсовую работу и хотел бы узнать. Может есть какая библиотека или может код и т.д. для воспроизведения на делфи файлов формата .mp4. смотрел ответы в интернете и на форумах но нечего не понял. Если есть решение подскажите и объясните. Зарание спасибо

[BLACK_RAIN]

http://programmersforum.ru/showthread.php?t=307204
http://basicsprog.ucoz.ru/publ/6-1-0-25
http://basicsprog.ucoz.ru/publ/6-1-0-26

[Arigato]

Можно установить компонент ActiveX Windows Media Player.

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

img1.png

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

img2.png

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

img3.png

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

img4.png

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

img5.png

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

img6.png

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

img7.png

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

img8.png

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

img9.png

12. Для начала воспроизведения необходимо выполнить код:

  WindowsMediaPlayer1.URL:='1.mp4';
  WindowsMediaPlayer1.controls.play;

Где WindowsMediaPlayer1 – имя компонента на форме, '1.mp4' – проигрываемый файл.
Если нужно остановить проигрывание видео, то для этого служит метод:

  if WindowsMediaPlayer1.playState = wmppsPlaying then
    WindowsMediaPlayer1.controls.stop;

Мы проверяем, что в данный момент проигрыватель находится в состоянии воспроизведения и вызываем нажатие кнопки stop.

[Denis_"programist"]

Спасибо большое , помогли очень сильно

[Denis_"programist"]

есть только один вопрос я не очень понял как установить, все сделал как вы и сказали но очень много всего, искал во всех вкладках но нечего подобного не нашел.
может я что-то сделал не так? ибо у меня в проджект группе нет файла WMP.bpl https://1drv.ms/i/s!AqipAWZ0y3VL1y-NvR7taquMWsl3

[kutani]

Используйте объект WMP динамически, предварительно импортировав его интерфейсы из самого плеера - wmp.dll (можно через tlibimp или встроенными средствами выше):

uses WMPLib_TLB, OleCtrls;

var mp: TWindowsMediaPlayer;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 mp.controls.stop
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 mp.DefaultInterface.URL:= extractfilepath(paramstr(0)) + '1.mp4';
 mp.controls.play
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 mp:= TWindowsMediaPlayer.Create(nil);
 with mp do begin
  Align:= alclient;
  Parent:= panel1
 end
end;

скачай меня