在DELPHI中设置摄像头参数

DSP

在DELPHI中设置摄像头参数

2019-07-13 17:31发布生成海报

站内文章 / DSP

13611 0

本例子借助了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:  TVideoProcAmpFlags
begin
  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单元。

在DELPHI中设置摄像头参数

Ta的文章更多 >>

热门文章

在DELPHI中设置摄像头参数

Ta的文章 更多 >>

热门文章

举报内容

检举类型

检举原因

检举说明(必填)

打开微信“扫一扫”，打开网页后点击屏幕右上角分享按钮

Ta的文章更多 >>