BorlandTalk.com

li · Guest

Hi:

I write some code to thin a bitmap,but it can not work .Anybody can help
me!
Thanks !!

procedure TMyPicture.Button12Click(Sender: TObject);
var
bmp1, bmp2: Tbitmap;
// ÁÙÊ±Î»Í¼
p1, p3, p2, p4: pByteArray;
i, j: integer;
r, g, b: Byte;
begin
self.DoubleBuffered := true;
//²ÉÓÃË«»º³åÄ£Ê½
bmp1 := Tbitmap.Create;
bmp2 := Tbitmap.Create;
//Create bmp1,bmp2
bmp1.Assign(Image1.Picture.Bitmap);
bmp1.PixelFormat := pf24bit;
//ÉèÖÃÎ»Í¼¸ñÊ½
bmp2.Assign(bmp1);
bmp2.PixelFormat := pf24bit;
for j := 1 to bmp1.Height - 2 do
begin
p1 := bmp1.ScanLine[j];
p2 := bmp2.ScanLine[j - 1];
p3 := bmp2.ScanLine[j];
p4 := bmp2.ScanLine[j + 1];
for i := 1 to bmp1.Width - 2 do
begin
r := min(255, max(0, ((-p2[3 * (i - 1) + 2] - 2 * p2[3 * i +
2] -
p2[3 * (i
+
1) + 2] - 0 * p3[3 * (i - 1) + 2] + 0 * p3[3 * i + 2]
- 0 *
p3[3 * (i
+ 1)
+ 2] + p4[3 * (i - 1) + 2] + 2 * p4[3 * i + 2] + p4[3 * (i
+ 1)
+
2]))));
g := min(255, max(0, ((-p2[3 * (i - 1) + 1] - 2 * p2[3 * i +
1] -
p2[3 * (i
+
1) + 1] - 0 * p3[3 * (i - 1) + 1] + 0 * p3[3 * i + 1]
- 0 *
p3[3 * (i
+ 1)
+ 1] + p4[3 * (i - 1) + 1] + 2 * p4[3 * i + 1] + p4[3 * (i
+ 1)
+
1]))));
b := min(255, max(0, ((-p2[3 * (i - 1)] - 2 * p2[3 * i] - p2[3
*
(i + 1)]
- 0
* p3[3 * (i - 1)] + 0 * p3[3 * i] - 0 * p3[3 * (i + 1)] +
p4[3
* (i - 1)]
+ 2 * p4[3 * i + 2] + p4[3 * (i + 1)]))));
// ²ÉÓÃ¼ì²âË®Æ½±ßÔµµÄsobelËã×Ó[-1,-2,1,0,0,0,1,2,1]

p1[3 * i + 2] := min(255, max(0, ((-p2[3 * (i - 1) + 2] + 0 *
p2[3
* i + 2]
+
p2[3 * (i + 1) + 2] - 2 * p3[3 * (i - 1) + 2] + 0 * p3[3
* i +
2] + 2 *
p3[3 * (i
+ 1) + 2] - p4[3 * (i - 1) + 2] - 0 * p4[3 * i + 2] +
p4[3
* (i + 1) +
2]))));
p1[3 * i + 1] := min(255, max(0, ((-p2[3 * (i - 1) + 1] + 0 *
p2[3
* i + 1]
+
p2[3 * (i + 1) + 1] - 2 * p3[3 * (i - 1) + 1] + 0 * p3[3
* i +
1] + 2 *
p3[3 * (i
+ 1) + 1] - p4[3 * (i - 1) + 1] - 0 * p4[3 * i + 1] +
p4[3
* (i + 1) +
1]))));
p1[3 * i] := min(255, max(0, ((-p2[3 * (i - 1)] + 0 * p2[3 *
i] +
p2[3 * (i + 1)] - 2 * p3[3 * (i - 1)] + 0 * p3[3 * i] + 2
*
p3[3 * (i
+ 1)] - p4[3 * (i - 1)] - 0 * p4[3 * i] + p4[3 * (i +
1)]))));
//²ÉÓÃ¼ì²âË®Æ½±ßÔµµÄsobelËã×Ó[-1,0,1,-2,0,2,-1,0,1]
p1[3 * i + 2] := (max(r, p1[3 * i + 2]));
p1[3 * i + 1] := (max(g, p1[3 * i + 1]));
p1[3 * i] := (max(b, p1[3 * i]));
end;
end;
image1.Picture.Bitmap.Assign(bmp1);
// ¶ÁÈ¡ÒÑ¾ÀûÓÃsobel½øÐÐ¼ì²âºóµÄÎ»Í¼
bmp2.Free;
Bmp1.Free;
//ÊÍ·Å×ÊÔ´
end;

li · Guest

"Avatar Zondertau" <avatarzt (AT) gmail (DOT) com> Ð´ÈëÏûÏ¢ÐÂÎÅ
:4243b891$1 (AT) newsgroups (DOT) borland.com...

somebody · Guest

"li" <li0713 (AT) hotmail (DOT) com> wrote