DELPHI AREA Forum

from spatial domain method
power low
logarithim
i want to know how to write on delhpi.
thanks

Take look at the ImageWork package, it may help you.

thz a lot brother.....

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

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