delphi之颜色转换和像素访问

模拟需要找色，找图等等功能，我们先要熟悉有关的知识。

我们的目的是为了找色和找图，所以只用考虑只需要处理24B颜色（PF24BIT）。

TColor 值是以十六进制进行存储的，低三位分别表示红、绿、蓝三种基色的饱和度。

var

C:Tcolor

R,G,B:Byte;

TColor转换成RGB的值

R:=GetRValue(C);

G:=GetGValue(C);

B::=GetBValue(C);

或

R:=C and $FF;

G:=(C and $FF00) shr 8;

B:=(C and $FF0000) shr 16;

RGB转换成TColor的值

C:=StrToInt(IntToHex(B,2)+IntToHex(G,2)+IntToHex(R,2));

或

C:=RGB(R,G,B);

对BMP像素的快速访问，一般使用scanline.

type //补充定义，方便使用

pRGBTripArray=^TRGBTripleArray;

TRGBTripleArray=array[0..1024-1] of TRGBTriple;

var

row:pRGBTripArray;

p:TRGBTriple;

访问第y行第x列(x,y)

row := bmp.scanline[y];

p:= row [x];

R:= p.rgbtRed;

G:=p.rgbtGreen;

B:=p.rgbtBlue;

另外的一种访问方式

var

p: PByteArray;

访问第y行第x列(x,y)

p := bmp..scanline[y];

然后用p[x * 3], p[x * 3 + 1], p[x * 3 + 2] 来访问