图像的灰度化、二值化和反色是些较简单的图像像素处理过程，我在《GDI+ 在Delphi程序的应用 -- ColorMatrix与图像灰度化》和《GDI+ 在Delphi程序的应用 -- 图像二值化》-procedure ImageDynamTwoValues(Data: TImageData　SubSize: Integer)　　

var　

　Sub: TImageData　　

　GrayData: TGrayStatData　　

　x, y: Integer　　

begin　

　if SubSize <= 0 then　

　begin　

　　ImageGrayStat(Data, GrayData, True)　　

　　ImageTwoValues(Data, GrayData.Average)　　

　　Exit　　

　end　　

　y := 0　　

　while y < Data.Height do　

　begin　

　　x := 0　　

　　while x < Data.Width do　

　　begin　

　　　Sub := GetSubImageData(Data, x, y, SubSize, SubSize)　　

　　　ImageGrayStat(Sub, GrayData, True)　　

　　　ImageTwoValues(Sub, GrayData.Average)　　

　　　Inc(x, SubSize)　　

　　end　　

　　Inc(y, SubSize)　　

　end　　

end　



本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/maozefa/archive/2007/11/29/1908031.aspx