图形的对比度的控制(100分)

愁啊?!
请问各位高人,如何控制一幅图象BMP,JPG的亮度,对比度,色度!
分不多,下次补上!

用"对比度"搜索下，以前有过讨论

以下是BCB对TBitmap对象操作的代码

//---------调整图象对比度------------//
//Amount:-255-----255
void __stdcall AdjContrast(Graphics::TBitmap *Bmp,int Amount)
{
int x,y;
Byte Table[255];
TRGBColor24 *SrcP;

for(x=0;x<=126;x++)
{
y=int(abs(128-x)*Amount/256);
y=x-y;
Table[x]=IntToByte;
}

for(x=127;x<=255;x++)
{
y=int(abs(128-x)*Amount/256);
y=x+y;
Table[x]=IntToByte;
}

for(y=0;y<=Bmp->Height-1;y++)
{
SrcP=static_cast<TRGBColor24 *>(Bmp->ScanLine[y]);
for(x=0;x<=Bmp->Width-1;x++)
{
// if (SrcP[x].R+SrcP[x].G+SrcP[x].B!=765)
{
SrcP[x].R=Table[SrcP[x].R];
SrcP[x].G=Table[SrcP[x].G];
SrcP[x].B=Table[SrcP[x].B];
}
}
}
}


//--------调整图象饱和度---------------//
//Amount: 0---500 (Default--255)
void __stdcall AdjSaturation(Graphics::TBitmap *Bmp,int Amount)
{
Byte Table[255];
Word STable[255];
byte *dest;
int x,y,pos,i;
if (Amount!=255)
{
x=0;y=0;
for(i=0;i<=85;i++)
{
Table[x]=(Byte)y;
Table[x+1]=(Byte)y;
Table[x+2]=(Byte)y;
y++;
x=x+3;
}
for(i=0;i<=255;i++)
STable=(Word)((i*Amount)>>8);

for (y=0;y<Bmp->Height ;y++)
{
dest=(byte *)Bmp->ScanLine[y];
for (x=0;x<Bmp->Width ;x++)
{
pos=3*x;
i=(Byte)(Table[dest[pos]]+Table[dest[pos+1]]+Table[dest[pos+2]]);
i-=STable;
dest[pos]=IntToByte(STable[dest[pos]]+i);
dest[pos+1]=IntToByte(STable[dest[pos+1]]+i);
dest[pos+2]=IntToByte(STable[dest[pos+2]]+i);
}
}
}
}


//------调整图象亮度--------------//
//Amount: -255----255
void __stdcall AdjLightness(Graphics::TBitmap *Bmp,int Amount)
{
int x,y;
Byte Table[255];
TRGBColor24 *SrcP;

if( Amount>0)
for(x=0;x<=255;x++)
Table[x]=IntToByte(x+((Amount*(x^255))>>8));
else
for(x=0;x<=255;x++)
Table[x]=IntToByte(x-((abs(Amount)*x)>>8));

for(y=0;y<=Bmp->Height-1;y++)
{
SrcP=static_cast<TRGBColor24 *>(Bmp->ScanLine[y]);
for(x=0;x<=Bmp->Width-1;x++)
{
// if (SrcP[x].R+SrcP[x].G+SrcP[x].B!=765)
{
SrcP[x].R=Table[SrcP[x].R];
SrcP[x].G=Table[SrcP[x].G];
SrcP[x].B=Table[SrcP[x].B];
}
}
}
}

>>

To ALL:
这种方法的效果太差，不知有没有Demo演示一下效果。
另外，EnvisionImage控件哪里还能找到？？？？？？？

// 说明：用于处理的BITMAP必须是24bit的，如果不是则需要先转为24BIT
// 这是从我正在开发的眼科影像处理系统中直接取出来的，尚未进行优化，
// 但是肯定能正常工作，且效率高（你可以将这段代码放在一个滚动条
// 的 OnChange 事件中，你可以看到随着滚动条的移动图象的变化）

procedure bmpbright(mybitmap: tbitmap; // 用来处理的BITMAP，要求24BIT
brightness: integer; // 亮度，范围：0-255
contrast: integer; // 对比度，范围：0-255
displayingray: boolean; // 是否显示为灰度，TRUE为灰度
reversedisplay: boolean; // 是否显示负片效果，TRUE为负片
colorfilter: byte; // 颜色过滤：1=滤赤色，2=荧光色
x1,y1,x2,y2: integer); // 处理区域
var
thew,theh: integer;
i,j: integer;
p: pbytearray;
colorlevel: int64;
sty,stx,eny,enx: integer;
bripos,conpos: integer;
sum1,sum2,sum3: int64;
ave1,ave2,ave3: integer;
times: integer;
rlevel,glevel,blevel: integer;
maxnum,minnum: integer;
begin
conpos:=contrast+100;
times:=conpos;
if conpos>100 then times:=conpos*conpos div 100;
with mybitmap do
begin
thew:=width;
theh:=height;
if (x1=x2) or (y1=y2) then
begin
x1:=1;
y1:=1;
x2:=thew-1;
y2:=theh-1;
end
else
begin
minnum:=min(y1,y2);
maxnum:=max(y1,y2);
y1:=minnum;
y2:=maxnum;
minnum:=min(x1,x2);
maxnum:=max(x1,x2);
x1:=minnum;
x2:=maxnum;
end;
if x1<1 then x1:=1;
if y1<1 then y1:=1;
if x2>thew-1 then x2:=thew-1;
if y2>theh-1 then y2:=theh-1;
sum1:=0;
sum2:=0;
sum3:=0;
for i:=y1 to y2 do
begin
p:=scanline;
for j:=x1 to x2 do
begin
sum1:=sum1+p[j*3+2];
sum2:=sum2+p[j*3+1];
sum3:=sum3+p[j*3];
end;
end;
ave1:=sum1 div ((y2-y1+1)*(x2-x1+1));
ave2:=sum2 div ((y2-y1+1)*(x2-x1+1));
ave3:=sum3 div ((y2-y1+1)*(x2-x1+1));
for i:=y1 to y2 do
begin
p:=scanline;
for j:=x1 to x2 do
begin
colorlevel:=((p[j*3+2]-ave1)*times div 100)+ave1+brightness;
if colorlevel>255 then colorlevel:=255;
if colorlevel<0 then colorlevel:=0;
p[j*3+2]:=colorlevel;
colorlevel:=((p[j*3+1]-ave2)*times div 100)+ave2+brightness;
if colorlevel>255 then colorlevel:=255;
if colorlevel<0 then colorlevel:=0;
p[j*3+1]:=colorlevel;
colorlevel:=((p[j*3]-ave3)*times div 100)+ave3+brightness;
if colorlevel>255 then colorlevel:=255;
if colorlevel<0 then colorlevel:=0;
p[j*3]:=colorlevel;
if colorfilter=1 then
p[j*3+2]:=0;
if colorfilter=2 then
begin
p[j*3+2]:=0;
p[j*3]:=0;
end;
if displayingray then
begin
rlevel:=p[j*3+2];
glevel:=p[j*3+1];
blevel:=p[j*3];
colorlevel:=rlevel*rlevel+glevel*glevel+blevel*blevel;
colorlevel:=colorlevel div (rlevel+glevel+blevel+1);
p[j*3]:=colorlevel;
p[j*3+1]:=colorlevel;
p[j*3+2]:=colorlevel;
end;
if reversedisplay then
begin
p[j*3]:=$ff-p[j*3];
p[j*3+1]:=$ff-p[j*3+1];
p[j*3+2]:=$ff-p[j*3+2];
end;
end;
end;
end;
end;

时间太久了