Arsip: Tolong donk.....Masalah image neh..

 
user image
more 16 years ago

willbrig

saya punya masalah dengan pemrosesan image neh.... program 1 seperti ini:

procedure TForm1.Button1Click(Sender: TObject);
var
tampung: TColor;
r,g,b:Byte;
baris,kolom:integer;
begin
for kolom:=1 to image1.Height do
  for baris:=1 to image1.Width do
  begin
  tampung:=image1.Canvas.Pixels[baris,kolom];
  r:=GetRValue(tampung);
  g:=GetGValue(tampung);
  b:=GetBValue(tampung);
  end;
program 2 :

procedure computeshortestpath();
var
p,q,r,s,t,u,v,w:Tcolor;
red,red1,red2,green,green1,green2,blue,blue1:byte;
begin
x:=open[1].x;
y:=open[1].y;
p:=form1.Image1.Canvas.Pixels[x-1,y-1];
q:=form1.image1.canvas.Pixels[x,y-1];
r:=form1.Image1.Canvas.Pixels[x+1,y-1];
s:=form1.Image1.Canvas.Pixels[x+1,y];
t:=form1.Image1.Canvas.Pixels[x+1,y+1];
u:=form1.Image1.Canvas.Pixels[x,y+1];
v:=form1.Image1.Canvas.Pixels[x-1,y+1];
w:=form1.Image1.Canvas.Pixels[x-1,y];
red:=GetgValue(p);
green:=GetgValue(q);
blue:=GetgValue(r);
red1:=GetgValue(s);
green1:=GetgValue(t);
blue1:=GetgValue(u);
red2:=GetgValue(v);
green2:=GetgValue(w);
apakah ada pengaruh antara:

tampung:=image1.canvas.pixels[baris,kolom];
dengan
 
p:=form1.image1.canvas.pixels[x-1,y-1];
soalnya setelah saya lakukan trace, hasilnya berbeda untuk gambar yang sama. saya hanya memberikan gambar putih dan disimpan dalam 256 color bitmap.
user image
more 16 years ago

willbrig

waduh kepencet...belon selesai neh ngepostnya... iya perbedaanya itu terletak pada nilai tampung dan p. untuk nilai tampung, saat saya trace itu bernilai : 16777215 sedangkan untuk nilai p itu bernilai : 255 knp bisa berbeda ya?? bukankah itu sebernarnya perintah yang sama?? thx..
user image
more 16 years ago

mat_koder

putih sama dengan R=255 G=255 B=255 dan harusnya TColor value sewaktu di trace = 16777215 jika TColor = 255 artinya R=255 G=0 B=0 alias warna merah. Jika tampung anda baca pada proses penulisan file dan p anda baca pada waktu pembacaan image yg telah tersimpan ke file maka ada logika yg salah dalam penulisan/pembacaan file. Kalau mau lebih simple dalam proses debugging , coba save filenya dalam pf24bit dan bandingkan tampung dan p 256 color bitmap (pf8 bit) nyimpennya pake palette lookup - tapi harusnya ini ngga ngaruh pada pembacaan warna pixel dari image IIRC
user image
more 16 years ago

willbrig

hahaa...terima kasih ya mat koder... sekarang udah dapet pencerahan neh... thx.. :D :D :D :D :D :D
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com