颜色检测和分析

Question

我想分析一个.Jpeg图像600x600，但这样做我想告诉我，红色值在230以上，绿色值在200以上。 现在我有这个项目正在进行，但迭代整个图像需要很长时间，并且会获得奇怪的像素颜色值（Color= + inttostr(RGB)）。 任何人都可以借我一只手吗？

type 
    PRGBTripleArray = ^TRGBTripleArray; 
    TRGBTripleArray = array[0..4095] of TRGBTriple; 

procedure TForm2.Button1Click(Sender: TObject); 
var 
    RGB: Byte; 
    X, Y: Integer; 
    R, G, B: Byte; 
    Bitmap1: TBitmap; 
    ColorRGB: LongInt; 
    Pixels: PRGBTripleArray; 
begin 
    Memo1.Lines.Clear; 
    Bitmap1 := TBitmap.Create; 
    try 
    Bitmap1.Assign(Image1.Picture.Graphic); 

    for Y := 0 to Bitmap1.Height - 1 do 
    begin 
     Pixels:= Bitmap1.ScanLine[Y]; 

     Memo1.Lines.Add('======================'); 
     Memo1.Lines.Add('Line # ' + IntToStr(Y)); 
     Memo1.Lines.Add('======================'); 

     for X := 0 to Bitmap1.Width - 1 do 
     begin 
     ColorRGB := ColorToRGB(Bitmap1.Canvas.Pixels[x, y]); 
     R := GetRValue(ColorRGB); 
     G := GetGValue(ColorRGB); 
     B := GetBValue(ColorRGB); 
     RGB:= R*G*B; 

     Memo1.Lines.Add(
       'line=' + IntToStr(Y) 
       + ' row=' + IntToStr(X) 
       + ' Colour=' + IntToStr(RGB) 
       + ' Red=' + IntToStr (R) // red 
       + ' Green=' + IntToStr (G) // blue 
       + ' Blue=' + IntToStr (B) // green 
     ) 
     end; 
    end; 
    finally 
    Bitmap1.free; 
    end; 
end; 

end. 

Answer 1

如果你想记录你的位图，它有红色通道值大于230，绿色值大于200的每个像素，可以使用以下。不要忘记使用BeginUpdate,EndUpdate对TMemo.Lines锁定潜在的频繁更新。

无论如何，你仍然在混合两种位图像素访问技术。不要将Canvas.Pixels用于大像素阵列操作;这是非常低效的。因为只使用ScanLine：

type 
    PRGBTripleArray = ^TRGBTripleArray; 
    TRGBTripleArray = array[0..4095] of TRGBTriple; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    C: TColor; 
    X: Integer; 
    Y: Integer; 
    Bitmap: TBitmap; 
    Pixels: PRGBTripleArray; 
begin 
    Bitmap := TBitmap.Create; 
    try 
    Bitmap.Assign(Image1.Picture.Graphic); 

    Memo1.Lines.BeginUpdate; 
    try 
     for Y := 0 to Bitmap.Height - 1 do 
     begin 
     Pixels := Bitmap.ScanLine[Y]; 
     for X := 0 to Bitmap.Width - 1 do 
     begin 
      if (Pixels[X].rgbtRed > 230) and (Pixels[X].rgbtGreen > 200) then 
      begin 
      C := RGB(
       Pixels[X].rgbtRed, 
       Pixels[X].rgbtGreen, 
       Pixels[X].rgbtBlue 
      ); 
      Memo1.Lines.Add(
       '===============' + sLineBreak + 
       'Pixel[' + IntToStr(X) + '; ' + IntToStr(Y) + ']' + sLineBreak + 
       'Color: ' + ColorToString(C) + sLineBreak + 
       'Red channel: ' + IntToStr(Pixels[X].rgbtRed) + sLineBreak + 
       'Green channel: ' + IntToStr(Pixels[X].rgbtGreen) + sLineBreak + 
       'Blue channel: ' + IntToStr(Pixels[X].rgbtBlue) 
      ); 
      end; 
     end; 
     end; 
    finally 
     Memo1.Lines.EndUpdate; 
    end; 
    finally 
    Bitmap.Free; 
    end; 
end;