Arsip: Mencari titik koordinat pixel image.

 
user image
more 15 years ago

tamara

para master delphi, saya ingin bertanya bagaimana caranya menentukan titik koordinat sebuah huruf(dalam format bmp) agar saya bisa mendapatkan titik pixelnya. Saya sudah mencobanya dan buntu sampai perintah : var i,j :integer; begin i :=0; ketemu :=false; posisiawal :=0; begin j :=0; if image.Pixels[j,i] = clblack then begin ketemu := true; posisiawal := j; end; j := j+1; end; i := i+1; end; saya sangat mengaharapakan bantuannya, terimah kasih :P
user image
more 15 years ago

onlucid

mohon diperjelas & contoh output
user image
more 15 years ago

tamara

maksudnya, saya ingin membuat gambar yang ditampilkan pada TImage bisa diketahui titik koordinatnya, titik pixelnya karena dengan diketahui titik pixel dan koordinat gambar maka saya bisa menggabungkannya dengan gambar png/gif lainnya. Semoga kakak mengerti penjelasan saya, mohon bantuannya. Terima kasih
user image
more 15 years ago

heriy4nt0

Kamu mau mengambil gambar (tanpa latar belakang) dari suatu image dan menggambarnya ulang pada image yang lain, begitu ya maksudnya ?
user image
more 15 years ago

tamara

Bukan begitu, tapi saya hanya ingin mencari titik-titik pixel (jumlah pixel hitam) sebuah gambar. Dalam masalah saya, gambarnya(berupa huruf a,b,c) itu terdapat pada TImage jadi saya ingin langsung dapat mengetahui jumlah pixel hitam gambar tersebut. Jadi luas daerah perhitungannya sebatas besar TImagenya (Size TImagenya 89 x 105). Semoga kakak mengerti dengan penjelasan saya, mohon bantuannya. Terima kasih
user image
more 15 years ago

heriy4nt0

@tamara: Saya sudah mencobanya dan buntu sampai perintah : var i,j :integer; begin i :=0; ketemu :=false; posisiawal :=0; begin j :=0; if image.Pixels[j,i] = clblack then begin ketemu := true; posisiawal := j; end; j := j+1; end; i := i+1; end;
lho, kalau size image nya 89x105, mana looping <for..to..> di source code kamu diatas ?

var i,j:integer;
for i:=1 to image1.width do
   for j:=1 to image1.height do
   begin
        .....
       if ....//cek apakah koordinat [i,j] = warna hitam
       <your code continue here > 
   end;
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

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