如何判断黑白图片的某点是黑色还是白色

解决方案 »

  1.   

    if Image.Canvas.Pixels[I,II]= clWhite then这是把图片导入到TImage中
      

  2.   

    GetRValue(Image1.Canvas.Pixels[x,y])= 0)and(GetGValue(Image1.Canvas.Pixels[x,y])= 0) and (GetBValue(Image1.Canvas.Pixels[x,y])= 0 么?
      

  3.   

          Tc:= Image1.Canvas.Pixels[i,j];
          CRed:= GetRvalue(Tc);
          CGreen:= GetGvalue(Tc);
          CBlue:= GetBvalue(Tc);
          if (CRed=0)and(CGreen=0)and(CBlue=0) then
          begin
            // 黑色
          end;