|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
ошибка при RenderFileToMMStream
Ассаляимугалейкум всем живым!
Хочу проигрывать видеё файл через 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; Как тьма ищет без солнца свет, Так свет ищет без мрака тьму... Как жаль, что весь этот бред Понятен лишь мне одному... Последний раз редактировалось SedmoiDemon, 18.05.2008 в 12:12. |