区域生长算法代码

区域生长算法代码
//函数名称：FillDibEx
//函数功能：区域生长
//入口参数：SrcImg : TGrayImg   - 原图象
//   Seed : TPoint     - 起始种子坐标
//   DestImg : TGrayImg   - 目的图象
//返回参数：Boolean       - 成功返回True,否则返回False
//===================================================================//
function FillDibEx(SrcImg : TGrayImg; Seed : TPoint; var DestImg : TGrayImg) : Boolean;
var
i, j : Integer;
Seeds : array of TPoint;     //种子堆栈
StackPoint : Integer;       //堆栈指针
iCurrentPixelx, iCurrentPixely : Integer; //当前象素位置
pixel : Byte;
begin
//初始化种子
try
  SetLength(Seeds, SrcImg.Width * SrcImg.Height);
except
  Result := False;
  Exit;
end;
Seeds[1].Y := Seed.Y;
Seeds[1].X := Seed.X;
StackPoint := 1;

While (StackPoint <> 0) do
begin
  //取出种子
  iCurrentPixelx := Seeds[StackPoint].X;
  iCurrentPixely := Seeds[StackPoint].Y;
  //退栈
  Dec(StackPoint);
  pixel := SrcImg.Img[iCurrentPixely, iCurrentPixelx];
  //不是二值图象
  if (pixel <> 255) and (pixel <> 0) and (pixel <> 128) then
  begin
    Result := False;
    Exit;
  end;
  //将当前的点涂黑
  SrcImg.Img[iCurrentPixely, iCurrentPixelx] := 128;
  //判断左边的点，如果为白，则压入堆栈
  //注意防止越界
  if iCurrentPixelx > 0 then
  begin
    pixel := SrcImg.Img[iCurrentPixely, iCurrentPixelx - 1];
    if pixel = 255 then
    begin
    Inc(StackPoint);
    Seeds[StackPoint].Y := iCurrentPixely;
    Seeds[StackPoint].X := iCurrentPixelx - 1;
    end;
    if (pixel <> 0) and (pixel <> 128) and (pixel <> 255) then
    begin
    Result := False;
    Exit;
    end;
  end;
  //判断下面的点，如果为白，压入堆栈
  //注意防止越界
  if (iCurrentPixely < SrcImg.Height - 1) then
  begin
    pixel := SrcImg.Img[iCurrentPixely + 1, iCurrentPixelx];
    if pixel = 255 then
    begin
    Inc(StackPoint);
    Seeds[StackPoint].Y := iCurrentPixely + 1;
    Seeds[StackPoint].X := iCurrentPixelx;
    end;
    if (pixel <> 0) and (pixel <> 128) and (pixel <> 255) then
    begin
    Result := False;
    Exit;
    end;
  end;
  //判断右边的点，如果为白，则压入堆栈
  //注意防止越界
  if iCurrentPixelx < SrcImg.Width - 1 then
  begin
    pixel := SrcImg.Img[iCurrentPixely, iCurrentPixelx + 1];
    if pixel = 255 then
    begin
    Inc(StackPoint);
    Seeds[StackPoint].Y := iCurrentPixely;
    Seeds[StackPoint].X := iCurrentPixelx + 1;
    end;
    if (pixel <> 0) and (pixel <> 128) and (pixel <> 255) then
    begin
    Result := False;
    Exit;
    end;
  end;
  //判断上面的点，如果为白，压入堆栈
  //注意防止越界
  if (iCurrentPixely > 0) then
  begin
    pixel := SrcImg.Img[iCurrentPixely - 1, iCurrentPixelx];
    if pixel = 255 then
    begin
    Inc(StackPoint);
    Seeds[StackPoint].Y := iCurrentPixely - 1;
    Seeds[StackPoint].X := iCurrentPixelx;
    end;
    if (pixel <> 0) and (pixel <> 128) and (pixel <> 255) then
    begin
    Result := False;
    Exit;
    end;
  end;
end;
//保存填充区域，恢复原始图象
if not SetImgArray(SrcImg.Width, SrcImg.Height, DestImg) then
begin
  Result := False;
  Exit;
end;
for i := 0 to SrcImg.Height - 1 do
  for j := 0 to SrcImg.Width - 1 do
  begin
    DestImg.Img[i, j] := SrcImg.Img[i, j];
    if SrcImg.Img[i, j] = 128 then
    begin
    //   SrcImg.Img[i,j] := 255;
    DestImg.Img[i,j] := 0;
    end;
  end;
Result := True;
end;