Scan Line در دلفي (مناسب براي پردازش تصوير)
سلام دوستان.
يكي از ايراداتي كه از دلفي گرفته ميشد اين بود كه ، دلفي پردازش ضعيفي داره. مخصوصاً در كار با تصاوير هر چند كه قدرت اون در دستيابي به پيكسلها بسيار بالاست و به سادگي اين كار شدنيه.
از اونجايي كه من نسب به نام دلفي خيلي حساسم تلاش كردم تا خلاف اينو ثابت كنم. بعد از جستجوي فراوان بالاخره راه درست پردازش تصوير در دلفي را پيدا كردم كه سرعت پردازش تصوير را به صورت بسيار بسيار زيادي بالا مي بره. شايد باور نكنيد، پردازشي كه در حالت عادي در دلفي نزديك 8 ثانيه براي هر تصوير طول مي كشيد، با اين روش به 24 ميلي ثانيه كاهش پيدا كرد. تصورش رو بكنيد!!! سرعت اين روش به قدريه كه حتي ++C و #C هم اين قدرت رو به اين سادگي ندارن و بايد كلي كد براشون بنويسن.
خوب شروع مي كنم:
روش عادي دستيابي به پيكسلها در دلفي اينجوري بود:
کد:
Image1.Canvas.Pixels[i,j]
حالا روش جديد: در Bitmap خاصيتي وجود داره بنام ScanLine. اسمش روي خودشه. يعني يه رديف از پيكسلهاي تصوير رو فقط طي چند ميكرو ثانيه اسكن مي كنه. حالا اگه هر رديف رو توي يه آرايه بريزين مي تونيد با ايندكس به هر كدوم از پيكسلها رو دستيابي كنيد.
يه كد مي زارم و بعد تحليلش مي كنم:
يه فرم خالي بسازين. دو كليد و يه Image بهش اضافه كنيد.
توي قسمت Type فرمتون اين ركوردها و متغير ها رو تعريف كنيد.
کد:
type
TRGB32 = packed record
B, G, R, A: Byte;
end;
TRGB32Array = packed array[0..MaxInt div SizeOf(TRGB32)-1] of TRGB32;
PRGB32Array = ^TRGB32Array;
حالا روي كليد اولتون دابل كليك كنيد و كدهاي زير رو توش بنويسيد
کد:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y : Integer;
begin
with Image1.Picture.Bitmap do
begin
PixelFormat := pf32bit;
Width := Image1.Width;
Height := Image1.Height;
for x := 0 to Width - 1 do
for y := 0 to Height - 1 do
Canvas.Pixels[x,y] := x xor y;
end;
Image1.Invalidate;
end;
حالا توي كليد دومتون كليك كنيد و كدهاي زير رو توش بنويسيد:
کد:
procedure TForm1.Button2Click(Sender: TObject);
var
x,y : Integer;
Line : PRGB32Array;
begin
with Image1.Picture.Bitmap do
begin
PixelFormat := pf32bit;
Width := Image1.Width;
Height := Image1.Height;
for y := 0 to Height - 1 do
begin
Line := Scanline[y];
for x := 0 to Width - 1 do
begin
Line[x].B := 0;
Line[x].G := 0;
Line[x].R := x xor y;
Line[x].A := 0;
end;
end;
end;
Image1.Invalidate;
end;
تحليل قسمت Type:
هر چند دوستان خودشون استادن ولي براي اونايي كه نمي دونن توضيح مي دم.
اگه عكس ما با فرمت 32 بيتي باشه هر پيكسل به صورت زير به نمايش در مي آيد:
کد:
Blue Green Red Alpha Blue Green Red Alpha Blue Green Red Alpha ...
first pixel / second pixel / third pixel /
بديهي هستش كه اگه عكس ما 24 بيتي باشه ديگه پارامتر Alpha رو نداريم. (8 div فرمت عكس)
خوب ما هم به همين ترتيب يه ركورد تعريف مي كنيم كه بشه باهاش به رنگها دست پيدا كرد.
حالا يه آرايه از نوع اون درست مي كنيم كه با Scanline بشه اونو پر كرد.
به تعيين طول آرايه توجه كنيد: ما به اندازه [maxint div sizeof(TRGB) -1...0] اندازه براي آرايمون گرفتيم. Maxint كه حداكثر تعداد int هست. ما با اين تعريف مي گيم كه طول آرايمون رو به اندازه (متغير صحيحي كه به اندازه ركوردمون قطعه قطعه شده باشه) باشه. دقيقا همانند malloc در C.
نكته اي كه بايد خيلي خيلي به اون توجه كنيد اينه كه حتما متغير ها در ركورد بايد به ترتيب B,G, R,A تعريف شوند.
حالا با يه اشاره گر به اين آرايه تعاريف رو خاتمه مي ديم.
به نحوه دستيابي به پيكسلها در كدي كه در دكمه اول نوشته شده توجه كنيد. به نحوه عادي دستيابي شده.
ولي در كد كليد دوم. ما ابتدا رديف به رديف اونا رو با Scanline بازيابي مي كنيم. و بعد با ايندكس آرايه اونا رو بازيابي مي كنيم.
برنامه رو اجرا كنيد. بايد شكل زير حاصل بشه:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
البته چون اندازه عكس كوچيكه خيلي تفاوت اين دو روش رو متوجه نمي شين. ولي اگه تصوير رو بزرگ كنيد اونوقت خودتون خوب متوجه مي شين.
اينجوري كه سازندگان دلفي در سايت CodeGear گفتن براي ساخت برنامه هاي گرافيك كه نياز به طراحي دارند (مثلا مثل Photoshop) از روشهايي مانند اين استفاده ميشه. در مورد تفاوت اين دو روش بايد بگم كه در روش عادي دسيابي به پيكسلها در دلفي پردازشها رو حافظه رم CPU انجام ميشه در حالي كه در روش ScanLine در واقع شما يه تصوير DIB يا (device-independent bitmaps) ساختين كه تمامي پردازشش روي كارت گرافيك و حافظه اون انجام ميشه و سرعت خيلي بالا ميره.
منبع: سايت CodeGear
موفق باشين دوستان عزيزم.
