L
longjiang
Unregistered / Unconfirmed
GUEST, unregistred user!
[
][]用过dspack开发包的帮忙看看呀！！为什么这一句会出错呀
SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
FilterGraph.ClearGraph;
FilterGraph.Active := false;
Filter.BaseFilter.Moniker := SysDev.GetMoniker(1);
FilterGraph.Active := true;
with FilterGraph as ICaptureGraphBuilder2do
//这一句出错
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
FilterGraph.Play;
编译可以通过，就是执行的时候报错“interface not aupported”这是为什么呀，为什么同样的代码在他的测试程序里就没有问题呀
][]用过dspack开发包的帮忙看看呀！！为什么这一句会出错呀SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
FilterGraph.ClearGraph;
FilterGraph.Active := false;
Filter.BaseFilter.Moniker := SysDev.GetMoniker(1);
FilterGraph.Active := true;
with FilterGraph as ICaptureGraphBuilder2do
//这一句出错
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
FilterGraph.Play;
编译可以通过，就是执行的时候报错“interface not aupported”这是为什么呀，为什么同样的代码在他的测试程序里就没有问题呀