DSPack视频调节

procedure TfrmVideo.GetValue;

var

  pAvp:  IAMVideoProcAmp;

  flag:  TVideoProcAmpFlags;

  value: Integer;

begin

  with (fg1 as ICaptureGraphBuilder2) do

  begin

    if Succeeded(FindInterface(nil, nil, vw1 as IBaseFilter, IID_IAMVideoProcAmp, pAvp)) then

    begin

       pAvp.Get(VideoProcAmp_Brightness, value, flag);

       lbl1.Caption := '亮度' + IntToStr(value);

       pAvp.Set_(VideoProcAmp_Brightness, value, flag);

 

       pAvp.Get(VideoProcAmp_Contrast, value, flag);

       lbl2.Caption := '对比度' + IntToStr(value);

       pAvp.Set_(VideoProcAmp_Contrast, value, flag);

 

       pAvp.Get(VideoProcAmp_Hue, value, flag);

       lbl3.Caption := '色调' + IntToStr(value);

       pAvp.Set_(VideoProcAmp_Hue, value, flag);

 

       pAvp.Get(VideoProcAmp_Saturation,value,flag);

       lbl4.Caption := '饱合度' + IntToStr(value) ;

       pAvp.Set_(VideoProcAmp_Saturation, value, flag);

 

       pAvp.Get(VideoProcAmp_Sharpness, value, flag);

       lbl5.Caption := '锐度' + IntToStr(value);

       pAvp.Set_(VideoProcAmp_Sharpness, value, flag);

    end;

  end;

end;