DirectShow ?

[wendstor]

В общем проблема такая.
в uses подключаю directshow9, ActiveX

дальше код

var
  MyGraphBuilder: IGraphBuilder;
  MyMediaControl: IMediaControl;
  VideoWindow: IVideoWindow;

begin

  CoInitialize(nil);
  CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER,
    IID_IGraphBuilder, MyGraphBuilder);

  MyGraphBuilder.RenderFile('c:\1.avi, nil);
  MyGraphBuilder.QueryInterface(IID_IMediaControl, MyMediaControl);
  MyGraphBuilder.QueryInterface(IID_IVideoWindow, VideoWindow);
  VideoWindow.put_Owner(Panel1.Handle);
  VideoWindow.put_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS);
  VideoWindow.SetWindowPosition(0, 0, Panel1.ClientRect.Right,
    Panel1.ClientRect.Bottom);

  {проигрываем видео}
  MyMediaControl.Run;

В результате вместо обычного проигрования видео файла на панели, показывает 1-2 кадра видео и отключает воспроизведение. Первый раз с токой ерундой столкнулся. Windows переустановил, менял кодеки, скачивал с других источников Delphi. В общем не чего не помогает, хотя раньше всё было ОК.
p.s. стоит windows Xp sp3, delphi 7 и delphi xe2.

[raxp]

var BasicVideo   : IBasicVideo;
...

  MyGraphBuilder.QueryInterface(IID_IMediaControl, MyMediaControl);

  MyGraphBuilder.QueryInterface(IID_IBasicVideo, BasicVideo);

  MyGraphBuilder.QueryInterface(IID_IVideoWindow, VideoWindow);

cмысл ясен?