如何使用 IAMStreamConfig 设置 Stream 参数。

我的设置总是有错，不知道为什么？

var
m_Graph : IGraphBuilder; //Filter Gtaph Builder
m_CaptureBuilder : ICaptureGraphBuilder2;
m_MediaEvent : IMediaEvent;
m_Control : IMediaControl;
m_SourceFilter : IBaseFilter;
m_MuxFilter : IBaseFilter;
m_DestFile : IFileSinkFilter;
m_VideoOptions : IAMStreamConfig;
m_AudioOptions : IAMStreamConfig;
m_VideoType : TAMMediaType;
m_pVih : ^VIDEOINFOHEADER;

begin

m_CaptureBuilder.FindInterface(@PIN_CATEGORY_CAPTURE, nil, m_SourceFilter, IID_IAMStreamConfig, m_VideoOptions);
m_VideoType.majortype := MEDIATYPE_Video;
m_VideoType.subtype := FORMAT_VideoInfo;
m_VideoType.cbFormat := sizeof(VIDEOINFOHEADER)-1;
m_VideoType.pbFormat := nil;
m_pVih := m_VideoType.pbFormat;
m_pVih.bmiHeader.biWidth := 160;
m_pVih.bmiHeader.biHeight := 120;
m_VideoOptions.SetFormat(m_VideoType);

end;