Grayscale Image Processing and Source Code In Delphi

Hi Friend. Do You need Source Code of Image Processing..? But I’m only have in Delphi Programming. It is easy to Follow and Understand.

Pixel in Grayscale Image Basically obtain from dividing by three the Red + Green + Blue Pixels. Or the sum of Component Red + Green + Blue Must be One (1).
Example : 0.33 * R + 0.33 G + 0.33 B


Below is Source Code for Grayscale Image Processing in Delphi.


procedure TForm1.ToolButtonGrayscaleClick(Sender: TObject);
var
i, j : integer;
Grey : Integer;
PH : PByteArray;
begin
for i:=0 to FormHasil.ImgHasil.Height-1 do
begin
PH:=FormHasil.ImgHasil.Picture.Bitmap.ScanLine[i];
for j:=0 to FormHasil.ImgHasil.Width-1 do
begin
Grey := Round ((PH[3*J] + PH[3*J+1] + PH[3*J+2] ) / 3);
PH[3*j]:= Grey;
PH[3*j+1]:= Grey;
PH[3*j+2]:= Grey;
end;
end;
FormHasil.ImgHasil.Repaint;
FormHistogram.Histogram;
end;



Please Comment If I’m Wrong. Comment are widely open…!!

Komentar FB


Probably Related Article



1 comments:

JodeQa said...
October 24, 2011 at 5:11 AM

sangat bagus artikelnya ;)
untuk grayscale, diluar sudut pandang ilmu, bisa juga menggunakan fungsi turunan dari TJPEG

jpg.Grayscale := True;

Related Posts by Categories



Widget by