Проиграть mp4 файл внутри программы?

[Dennis777]

Ребята, подскажите пожалуйста чайнику, как можно проиграть видеофайл в формате мп4 внутри программы?

Есть программа по изучению английского языка. Почти готова. Единственное что осталось сделать - придумать способ проигрывания мп4 файлов(их очень много, конвертировать в ави - не охота). Стандартный медиаплеер не читает мп4, подскажите, как быть? может у кого-то завалялся исходник какой-то?

Все, что нужно, это чтобы можно было нажать на паузу, стоп, плей и добавить функцию перемотки.

Помогите пожалуйста, на веб-мани есть 20 баксов, я отблагодарю! Времени мало, надо в течении недели все озвучить и подключить(

[Stilet]

Сторонние ищи: http://yandex.ua/yandsearch?text=%D0...oc=10&lr=20554
Это самый простой выход.

[Человек_Борща]

конвертировать в ави - не охота

Недели не хватит?

Если проект не шибко коммерческий, берите любой видео-плеер, бесплатный с портативным вариантом, и распространяете его со своим содержимым. Все.

[Dennis777]

По поводу недели - там просто очень много этих файликов. и больших, и еще больше маленьких. Просто так тратить кучу времени не хотелось. По поводу распространения бесплатного плеера - так и думал, но сначала думал найти что то в делфи...

[Dennis777]

Кстати, вдруг кому интересно, нашел выход:
в делфи можно подключить виндовский медиаплеер во вкладку АктивX, в сто раз лучше Tmediaplayerа)

[raxp]

Tmediaplayer - обертка над MCI вызовами, ей простительно. WMP и DS будут воспроизводить все на что есть кодеки в ОС.

raxp_DS плеер_mp4.zip

[ZuBy]

исходник не мой, но всеядный. (аудио, картинки, видео)

p.s. в свое время хотел поработать с ним, но ...

[саша40]

TMediaPlayer. Кажись поможет.

[Arigato]

Сообщение от саша40

TMediaPlayer. Кажись поможет.

MP4 он не сможет проиграть.

Решение: использовать ActiveX Windows Media Player. Как его установить в Делфи 2007 и далее, описано тут: http://wiki.eltima.com/user-guides/h...ll-delphi.html (там идет речь об установки другого компонента, но все действия аналогичны в нашем случае).

[raxp]

Устанавливать его незачем, достаточно иметь экспорт (хидер) и подключить динамически. Весь код использования выглядит следующим образом:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


uses OleCtrls, WMPLib_TLB;

var wmp: TWindowsMediaPlayer;


procedure TForm1.FormCreate(Sender: TObject);
begin
 decimalseparator:= '.';

 wmp:= TWindowsMediaPlayer.Create(self);
 with wmp do begin
  TabOrder:= 1;
  align:= alclient;
  parent:= Form1;
  Visible:= true
 end;

 // скармливаем адрес видеопотока (или путь к видеофайлу) 
 // прошу обратить внимание, что это может быть и не IP,
 // а адрес DDNS, зарегистрированный для сервера трансляции
 wmp.URL:= 'http://www.vesti.ru/video1.asx?vid=onair';
 wmp.settings.set_volume(100);

 // растягиваем видео на весь контрол
 wmp.ControlInterface.stretchToFit:= true;
 wmp.uiMode:= 'none';
 wmp.enableContextMenu:= true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 // приостанавливаем клиента
 wmp.controls.stop;
 wmp.Free;
end;

end.

Видео-демонстрация работы:

http://www.youtube.com/watch?v=Eg9LFe7lbeI