delphi7中如何枚举摄像头支持的分辨率
求大神 搭救 Delphi 摄像头
[解决办法]
用DSPack的话:
procedure TCaptureWindow.GetMediaTypeListByType(const AType: TGuid;
const AList: TStrings);
var
i: Integer;
c: Integer;
size : Integer;
cgb: ICaptureGraphBuilder2;
cfg: IAMStreamConfig;
pmt: PAMMediaType;
scc: TVideoStreamConfigCaps;
ibf : IBaseFilter;
begin
try
cgb := FFilterGraph as ICaptureGraphBuilder2; //

if Failed(FFilter.QueryInterface(IID_IBaseFilter, ibf)) then Exit;
if Failed(cgb.FindInterface(@AType, @MEDIATYPE_Video, ibf, IID_IAMStreamConfig, cfg)) then Exit;
if Failed(cfg.GetNumberOfCapabilities(c, Size)) then Exit;
AList.Clear;
for i := 0 to c - 1 do
begin
if Failed(cfg.GetStreamCaps(i, pmt, scc)) then Break;
AList.Add(GetMediaTypeDescription(pmt));
DeleteMediaType(pmt);
end;
finally
cgb := nil;
cfg := nil;
end;
end;

调用:
GetMediaTypeListByType(PIN_CATEGORY_CAPTURE, FMediaTypeList); //录像
GetMediaTypeListByType(PIN_CATEGORY_STILL, FMediaTypeList); //拍照