[SedmoiDemon]

Ассаляимугалейкум всем живым!
Хочу проигрывать видеё файл через DirectShow и DirectX, при выполнении на процедуре
RenderFileToMMStream выходит ошибка... Код начинаю с этой процедуры... Подскажите чайнику...

Код:

procedure TForm1.RenderFileToMMStream(FileName : WideString; var MMStream :   IMultiMediaStream ; DDraw : IDirectDraw);
var
AMStream : IAMMultiMediaStream;
NewMediaStremVideo, NewMediaStremAudio : IMediaStream;

begin
   CoCreateInstance(CLSID_AMMultiMediaStream, nil, CLSCTX_INPROC_SERVER,
        IID_IAMMultiMediaStream, AMStream);

    AMStream.Initialize(STREAMTYPE_READ, AMMSF_NOGRAPHTHREAD, nil);//тут ошибку выдает
    AMStream.AddMediaStream(DDraw, MSPID_PrimaryVideo, 0, NewMediaStremVideo);
    AMStream.AddMediaStream(nil, MSPID_PrimaryAudio, AMMSF_ADDDEFAULTRENDERER, NewMediaStremAudio);
    AMStream.OpenFile(PWideChar(FileName), 0);
    MMStream := AMStream; 
end;

П.С. Имхо CoCreateInstance не проходит хотя хз хз... чего я только не делал... с бубном бегал.. танец дождя танцевал... шамана звал... нечерта не помогло