在DELPHI中设置摄像头参数

本例子借助了DSPACK包，只是为了方便，不要它也可以，直接调用COM。使用DirectShow9的功能。程序须引用DirectShow9, DSPack,DSUtil,ComCtrls,ActiveX单元。具体如下：

1、创建视频输入设备：var CapEnum: TSysDevEnum;begin CapEnum := TSysDevEnum.Create(CLSID_VideoInputDeviceCategory); CammCount := CapEnum.CountFilters; //存在多少个视频输入源end; 2、设置亮度、饱和度等 var hr:longint; pProcAmp: IAMVideoProcAmp; prop:TVideoProcAmpProperty; val:longint; flags: TVideoProcAmpFlagsbegin hr := CapEnum.GetBaseFilter(0).QueryInterface(IID_IAMVideoProcAmp, pProcAmp); if (Succeeded(hr)) then begin pProcAmp.Set_(prop,val,flags); end;end;其中IAMVideoProcAmp，TVideoProcAmpProperty，TVideoProcAmpFlags均为DirectShow9定义的类型。tagVideoProcAmpProperty = ( VideoProcAmp_Brightness, VideoProcAmp_Contrast, VideoProcAmp_Hue, VideoProcAmp_Saturation, VideoProcAmp_Sharpness, VideoProcAmp_Gamma, VideoProcAmp_ColorEnable, VideoProcAmp_WhiteBalance, VideoProcAmp_BacklightCompensation, VideoProcAmp_Gain );可用这里面的值指定要设置的参数。tagVideoProcAmpFlags = ( {$IFNDEF COMPILER6_UP} VideoProcAmp_Flags_INVALID_0, VideoProcAmp_Flags_Manual, VideoProcAmp_Flags_Auto {$ELSE} VideoProcAmp_Flags_Manual = 1, VideoProcAmp_Flags_Auto {$ENDIF} );指定是手动设置还是自动设置，奇怪的是用VideoProcAmp_Flags_Manual值的话设置的是自动，要手动设置要用VideoProcAmp_Flags_Auto。 3、曝光度设置与其他不同，使用不同的接口var hr:longint; pProcAmc: IAMCameraControl; val:longint; flags:TCameraControlFlags;begin hr := CapEnum.GetBaseFilter(0).QueryInterface(IAMCameraControl, pProcAmc); if (Succeeded(hr)) then begin pProcAmc.Set_(CameraControl_Exposure,val,flags); end;end;参数可观察DirectShow9单元。