1,183
社区成员
发帖
与我相关
我的任务
分享
tagVideoProcAmpProperty = (
VideoProcAmp_Brightness,
VideoProcAmp_Contrast,
VideoProcAmp_Hue,
VideoProcAmp_Saturation,
VideoProcAmp_Sharpness,
VideoProcAmp_Gamma,
VideoProcAmp_ColorEnable,
VideoProcAmp_WhiteBalance,
VideoProcAmp_BacklightCompensation,
VideoProcAmp_Gain
);
{$EXTERNALSYM tagVideoProcAmpProperty}
VideoProcAmpProperty = tagVideoProcAmpProperty;
{$EXTERNALSYM VideoProcAmpProperty}
TVideoProcAmpProperty = VideoProcAmpProperty;
tagVideoProcAmpFlags = (
{$IFNDEF COMPILER6_UP}
VideoProcAmp_Flags_INVALID_0,
VideoProcAmp_Flags_Manual,
VideoProcAmp_Flags_Auto
{$ELSE}
VideoProcAmp_Flags_Manual = 1,
VideoProcAmp_Flags_Auto
{$ENDIF}
);
{$EXTERNALSYM tagVideoProcAmpFlags}
VideoProcAmpFlags = tagVideoProcAmpFlags;
{$EXTERNALSYM VideoProcAmpFlags}
TVideoProcAmpFlags = VideoProcAmpFlags;
directshow
var pProcAmp : IAMVideoProcAmp;
m_pVideo : IGraphBuilder;
Flags : TVideoProcAmpFlags;
begin
CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC, IID_IGraphBuilder, m_pVideo);
m_pVideo.QueryInterface(IID_IAMVideoProcAmp,pProcAmp);
m_pVideo.RenderFile(_wfile,nil);
pProcAmp.GetRange(VideoProcAmp_Brightness,Min,Max,step,default,Flags);
pProcAmp.Get(VideoProcAmp_Brightness,Val,Flags);
pProcAmp.Set_(VideoProcAmp_Brightness, lValue,Flags);
end;