文件名称:200911081312
介绍说明－－下载内容均来自于网络，请自行研究使用
图像的灰度化、二值化和反色是些较简单的图像像素处理过程，我在《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
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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
二值化\aProject1.cfg
......\aProject1.dpr
......\Project1.res
......\Unit1.ddp
......\aUnit1.dfm
......\aUnit1.pas
......\Unit1.dcu
......\aProject1.exe
......\aCLEAN.BAT
二值化
......\aProject1.dpr
......\Project1.res
......\Unit1.ddp
......\aUnit1.dfm
......\aUnit1.pas
......\Unit1.dcu
......\aProject1.exe
......\aCLEAN.BAT
二值化