image enhancement in delphi

Please discuss general Delphi programming topics here.

image enhancement in delphi

Postby deeperlay » December 19th, 2009, 1:09 pm

from spatial domain method
power low
logarithim
i want to know how to write on delhpi.
thanks
deeperlay
Member
Member
 
Posts: 4
Joined: December 17th, 2009, 5:22 pm

Re: image enhancement in delphi

Postby Kambiz » December 19th, 2009, 5:14 pm

Take look at the ImageWork package, it may help you.
Kambiz
User avatar
Kambiz
Administrator
Administrator
 
Posts: 2430
Joined: March 7th, 2003, 7:10 pm

Re: image enhancement in delphi

Postby deeperlay » December 19th, 2009, 10:50 pm

thz a lot brother.....
deeperlay
Member
Member
 
Posts: 4
Joined: December 17th, 2009, 5:22 pm

Re: image enhancement in delphi

Postby deeperlay » December 20th, 2009, 12:43 am

hi brother
thz a lot again
ur great... not easy to shar this program, it is too high ....
be success
i want to know how to write on delphi


y:= c(1+r);//
//(c= 255 div log10 ^0 to 255 )
//////////////
proceduer log;
var
i,j:integer;
ab: integer;

begin
GREYinttoGREYbyte;

for i:=0 to h-1 do
for j:=0 to w-1 do

//ab:=255; //div ln(255);
begin

GREYbyte1[i,j]:= ( c value )*(1+GREYbyte[i,j]) ;

end;

Copybyte10;
GREYbytetoGREYint;
end;
/////////////////////////////////////////
it is
var
i,j,aa,bb,a1,a2:integer;
//a2:real;
// s:string;
begin
GREYinttoGREYbyte;

//aa:=100;
//bb:=150;

aa:= strtoint(a.Text);//don't know it ,show me error message
bb:= strtoint(b.Text);//don't know it ,show me error message
//s:= inttostr(aa);
//form1.Canvas.Draw(0,0,BitMap);

for i:=0 to h-1 do
for j:=0 to w-1 do
begin
if GREYbyte[i,j]<aa then GREYbyte1[i,j]:=0;

if GREYbyte[i,j]>bb then GREYbyte1[i,j]:=255;

if (GREYbyte[i,j]>=aa) AND (GREYbyte[i,j]<=bb) then
begin
a1:= bb - aa;
a2:=GREYbyte[i,j]-aa;

GREYbyte1[i,j]:= (a2*255 )div(a1);

end;

end;
Copybyte10;
GREYbytetoGREYint;
end;
//////////////////
thanks
deeperlay
Member
Member
 
Posts: 4
Joined: December 17th, 2009, 5:22 pm

Re: image enhancement in delphi

Postby deeperlay » December 27th, 2009, 10:25 pm

i got it couse i run this code other unit... so program don't know
aa:= strtoint(a.Text);
bb:= strtoint(b.Text);
when i wrote in unit1 , i got it...
thanks
deeperlay
Member
Member
 
Posts: 4
Joined: December 17th, 2009, 5:22 pm


Return to Delphi Programming

Who is online

Users browsing this forum: No registered users and 1 guest

cron