如何用程序算出一副位图中绿色占RGB三色的百分率？

Question

用 IntToHex(Image1.Canvas.Pixels[x,y],6)可以得到(x,y)点的RGB值
(从000000到FFFFFF),建一个双重循环慢慢地读罢.祝你好运

Answer 1

在Delphi中，若TColor类型变量小于零，则为系统颜色，可以用ColorToRGB转换为真实的颜色值。
在TColor的非系统的值中，低24位（共32位，高8位另有它用）为红绿蓝颜色的成分值，红色占最低8位，绿色占次低字节，蓝色占更高一位字节。所以你可以这样统计：procedure GetColorRatio( Bitmap: TBitmap; var R_Ratio, G_Ratio, B_Ratio: Extended );
var
  x, y: Integer; 
  nR, nG, nB，nTotal: Integer;
  aColor: TColor;
begin
  with Bitmap do 
  for y:=0 to Height-1 do
    for x:=0 to Width-1 do
    begin
      aColor := Canvas.Pixels[x,y];
      Inc( nR, aColor and $FF );
      Inc( nG, (aColor shr 8) and $FF );
      Inc( nB, (aColor shr 16) and $FF );
    end;
  end;
  nTotal := nR+nG+nB;
  R_Ratio := nR*100.0/nTotal;
  G_Ratio := nG*100.0/nTotal;
  B_Ratio := nB*100.0/nTotal;
end;
  
返回时：R_Ratio为红色的百分比，G_Ratio为绿色的百分比，B_Ratio为蓝色的百分比，