Arsip: Mencari titik koordinat pixel 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

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

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 ?

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

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
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- Menghilangkan Flicker
by tendafahmi in Tip n Trik Pemrograman more 16 years ago - Handle Error Store Procedure
by supermuam in MsSQL more 16 years ago - scan port tcp error trus
by indah_tcp in Hal umum tentang Pascal Indonesia more 20 years ago - MyIsam VS InnoDB
by reza_onclick in MySQL more 17 years ago - Cetak structure tabel ?
by debby in Hal umum tentang Pascal Indonesia more 18 years ago - Error Stack Overflow pd TQRDBChart
by klephoon in Reporting more 18 years ago - pemanggilan frame
by andtho89 in Form Enhancement & Graphical Controls more 13 years ago - Multiline DBGRid
by l1th1um in Tip n Trik Pemrograman more 18 years ago - Menentukan harga Pembelian
by selviani_id in Tutorial & Community Project more 16 years ago - Suara lewat Jaringan
by snip3r in Enginering more 18 years ago