ВидеоПлеер в Delphi

[Konung21]

Здравствуйте. Мне нужно корректно проигрывать видео в своей форме (хотя бы только AVI). Компонент MediaPlayer не подходит - многие треки проигрываются некорректно - то нет звука, то проигрывание ускорено, то изображения и вовсе нет.
Можете подсказать способы реализовать нормальный плеер у себя в форме, или позвляющие управлять Windows Media Player или Winamp'ом... или еще как то? Может свободно распространяемые компоненты...
Работаю под Delphi 2010. Но могу и на D7.
Заранее спасибо откликнувшимся.

[MadReason]

пример работы с winamp
http://www.delphirus.com/article75.html
можешь погрести еще в сторону winamp sdk

еще попробуй написать что нибудь на ActiveX WindowsMediaPlayer

[raxp]

directshow/

[DomiNick]

Хм... Bass dll?


P.S.
Не видел предыдущего сообщения пока писал своё... В принципе я примерно об том же:

BASS_DSHOW - An extension enabling the playback of video files with BASS, using DirectShow codecs.

[Konung21]

Большое спасибо. Начал копать в сторону DirectShow. Новичек, поэтому полез в интернет. там наткнулся на вот эту популярную статью:
http://www.delphikingdom.com/asp/vie...?catalogid=270
Стал следовать ее инструкциям. Я только начал касаться API и COM технологий в Delphi, так и не нашел откуда брать pas'ник DShow... исполььзовал вместо него directshow9.
Создал проект, бросил на нее стандартную панель, кнопку ... вот код:

uses
	... directshow9, ActiveX,ComObj;


procedure TForm1.Button1Click(Sender: TObject);
var
	MyGraphBuilder : IGraphBuilder;
	MyMediaControl : IMediaControl;
	VideoWindow : IVideoWindow;

begin

	CoInitialize(nil);
	{получаем интерфейс IGraphBuilder}
	CoCreateInstance(CLSID_FilterGraph,nil,CLSCTX_INPROC_SERVER,IID_IGraphBuilder,MyGraphBuilder);


	{вызываем RenderFile - граф фильтров строится автоматически}
	MyGraphBuilder.RenderFile('C:\Program Files\Borland\Delphi5\Demos\Coolstuf\cool.avi',nil);

	{получаем интерфейс ImediaControl}
	MyGraphBuilder.QueryInterface(IID_IMediaControl,MyMediaControl);
	{Примечание - MyMediaControl - переменная типа IMediaControl}

	{получаем интерфейс IVideoWindow}
	MyGraphBuilder.QueryInterface(IID_IVideoWindow,VideoWindow);
	{Примечание - VideoWindow - переменная типа IVideoWindow}

	{располагаем окошко с видео на панель}
	VideoWindow.Set_Owner(Self.Panel1.Handle);
	VideoWindow.Set_WindowStyle(WS_CHILD OR WS_CLIPSIBLINGS);
	VideoWindow.SetWindowPosition(0,0,Panel1.ClientRect.Right,Panel1.ClientRect.Bottom);

	{проигрываем видео}
	MyMediaControl.Run;
	
	ShowMessage('Нажмите OК');

	CoUninitialize;
end;

Проблема с последним: для VideoWindow у меня не определяются методы

Set_Owner(Self.Panel1.Handle); и
Set_WindowStyle(WS_CHILD OR WS_CLIPSIBLINGS); для VideoWindow.
в остальном все нормально.

посоветуйте, пожалуйста, как правильно поместить окно изобржения на на панель? а вообще, мне нужно cделать его Full Screen.

[BOBAH13]

Переопределяем SampleGrabber и получаем каждый кадр в свой буфер, его выводим куда и чем угодно Вам.

type
  TArRGBTriple = array[0..0] of TRGBTriple;
  PArRGBTriple = ^TArRGBTriple;

function GetPin(pFilter: IBaseFilter; PintDir: TPinDirection): IPin;
procedure RemoveDefault(pGraph: IGraphBuilder; pNULLRenderer, pGrabberBase: IBaseFilter);

implementation

function GetPin(pFilter: IBaseFilter; PintDir: TPinDirection): IPin;
var
  bFound: Boolean;
  pEnum: IEnumPins;
  pPin: IPin;
  hr: HRESULT;
  PinDirThis: TPinDirection;
begin
  Result := NIL;
  bFound := False;

  hr := pFilter.EnumPins(pEnum);
  if Failed(hr) then
    Exit;

  while (pEnum.Next(1, pPin, NIL) = S_OK) do
  begin
    pPin.QueryDirection(PinDirThis);
    bFound := (PintDir = PinDirThis);
    if bFound then
      Break;
    pPin := NIL;
  end;

  pEnum := NIL;
  if bFound then
    Result := pPin;
end;

procedure RemoveDefault(pGraph: IGraphBuilder; pNULLRenderer, pGrabberBase: IBaseFilter);
var
  pVidRenderer, pColorConverter: IBaseFilter;
  Pin, oPin: IPin;
begin
  pGraph.FindFilterByName('Video Renderer', pVidRenderer);
  if (pVidRenderer <> NIL) then
  begin
    Pin := GetPin(pVidRenderer, PINDIR_INPUT);
    oPin := NIL;
    Pin.ConnectedTo(oPin);
    Pin.Disconnect;
    oPin.Disconnect;
    Pin := NIL;

    pGraph.RemoveFilter(pVidRenderer);
    pVidRenderer := NIL;

    pGraph.FindFilterByName('Color Space Converter', pColorConverter);
    if (pColorConverter <> NIL) then
    begin
      oPin := NIL;
      Pin := GetPin(pColorConverter, PINDIR_INPUT);
      Pin.ConnectedTo(oPin);
      Pin.Disconnect;
      oPin.Disconnect;
      Pin := NIL;

      pGraph.RemoveFilter(pColorConverter);
      pColorConverter := NIL;
    end;

    Pin := GetPin(pGrabberBase, PINDIR_INPUT);
    pGraph.Connect(oPin, Pin);
    Pin := NIL;
    oPin := NIL;

    oPin := GetPin(pGrabberBase, PINDIR_OUTPUT);
    Pin := GetPin(pNULLRenderer, PINDIR_INPUT);

    pGraph.Connect(oPin, Pin);
    Pin := NIL;
    oPin := NIL;
  end;
end;

пример набросок

...
TfrmExample = class(TForm, ISampleGrabberCB)
private
    function SampleCB(SampleTime: Double; pSample: IMediaSample): HResult; stdcall;
    function BufferCB(SampleTime: Double; pBuffer: PByte; BufferLen: longint): HResult; stdcall;
...
    GraphBuilder: IGraphBuilder;
    FilterSampleGrabber: IBaseFilter;
    SampleGrabber: ISampleGrabber;
    MediaControl: IMediaControl;
    MediaPosition: IMediaPosition;
    NullRenderer: IBaseFilter;
end;

...

function TfrmExample.BufferCB(SampleTime: Double; pBuffer: PByte;
  BufferLen: Integer): HResult;
begin
  Result := S_OK;
end;

function TfrmExample.SampleCB(SampleTime: Double; pSample: IMediaSample): HResult;
var
  BmpHead: PBitmapInfoHeader;
  MediaType: TAMMediaType;
  DIBSize: Integer;
  pBuffer: PByte;
begin
  Result := S_OK;

  if (pSample.GetSize = 0) then
    Exit;

  Result := SampleGrabber.GetConnectedMediaType(MediaType);
  if Failed(Result) then
    Exit;

  if IsEqualGUID(MediaType.majortype, MEDIATYPE_Video) then
  begin
    BmpHead := NIL;
    if IsEqualGUID(MediaType.formattype, FORMAT_VideoInfo) then
    begin
      if (MediaType.cbFormat = SizeOf(TVideoInfoHeader)) then
        BmpHead := @(PVideoInfoHeader(MediaType.pbFormat)^.bmiHeader);
    end;
    if (BmpHead = NIL) then
      Exit;
    
    DIBSize := BmpHead^.biSizeImage;
    if (DIBSize = 0) then
    begin
      with BmpHead^ do
        DIBSize := 3 * biWidth * biHeight * biPlanes;
      BmpHead^.biSizeImage := DIBSize;
    end;

    pSample.GetPointer(pBuffer);
    
    // вот необходимые данные для работы с растром текущего кадра
    // BmpHead^.biWidth, BmpHead^.biHeight, BmpHead^.biWidth * 3, PixelFormat24bppRGB, pBuffer
  end;
end;

[BOBAH13]

как запускать Play/Pause/Stop

procedure TfrmExample.Play;
var
  MediaType: TAMMediaType;
  Result: HRESULT;
begin
  GraphBuilder := NIL;
  FilterSampleGrabber := NIL;
  SampleGrabber := NIL;
  MediaControl := NIL;
  MediaPosition := NIL;
  NullRenderer := NIL;
  
  CoCreateInstance(CLSID_FilterGraph, NIL, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, GraphBuilder);

  Result := GraphBuilder.RenderFile(PWCHAR(WideString('My Video File')), NIL);
  if Failed(Result) then
    Exit;

  CoCreateInstance(CLSID_SampleGrabber, NIL, CLSCTX_INPROC_SERVER, IID_IBaseFilter, FilterSampleGrabber);
  FilterSampleGrabber.QueryInterface(IID_ISampleGrabber, SampleGrabber);

  FillChar(MediaType, SizeOf(MediaType), 0);
  MediaType.majortype := MEDIATYPE_Video;
  MediaType.subtype := MEDIASUBTYPE_RGB24;
  SampleGrabber.SetMediaType(MediaType);
  SampleGrabber.SetBufferSamples(True);
  SampleGrabber.SetOneShot(False);
  SampleGrabber.SetCallback(Self, 0);
  GraphBuilder.AddFilter(FilterSampleGrabber, 'Sample Grabber');

  CoCreateInstance(CLSID_NullRenderer, NIL, CLSCTX_INPROC_SERVER, IID_IBaseFilter, NullRenderer);
  GraphBuilder.AddFilter(NullRenderer, 'Null Renderer');

  RemoveDefault(GraphBuilder, NullRenderer, FilterSampleGrabber);
  
  GraphBuilder.QueryInterface(IID_IMediaControl, MediaControl);
  GraphBuilder.QueryInterface(IID_IMediaPosition, MediaPosition);

  MediaPosition.get_Duration(VideoLen);
  MediaControl.Run;
end;

procedure TfrmExample.Pause;
begin
  MediaControl.Pause;
end;

procedure TfrmExample.Stop;
begin
    MediaControl.StopWhenReady;
    FilterSampleGrabber := NIL;
    SampleGrabber := NIL;
    MediaControl := NIL;
    MediaPosition := NIL;
    NullRenderer := NIL;
    GraphBuilder := NIL;
end;

p.s. с вас $40

Edit:
Ах да, http://sourceforge.net/projects/delp...7.exe/download ну или http://sourceforge.net/projects/delphi-dx9sdk/files/

[Konung21]

Большое Спасибо всем) Все сделал.

ps:
в примере из
http://www.delphikingdom.com/asp/vie...?catalogid=270

вместо
Set_Owner(Self.Panel1.Handle); и
Set_WindowStyle(WS_CHILD OR WS_CLIPSIBLINGS)

нужно использовать
put_Owner(Self.Panel1.Handle); и
put_WindowStyle(WS_CHILD OR WS_CLIPSIBLINGS)

[x128]

DSPack облегчает многие моменты.

[sekenr]

BOBAH13, немог бы ты поподробнее объяснить про вывод каждого кадра в отдельный буфер с помощью SampleGrabber'а, а то если честно слабо понятно как закидывается в буфер и как потом из него извлекать и использовать.