Arsip: Pencocokkan String ( String Matching) Delphi DanMySQL ??
more 14 years ago
daryl_sukma_gumilar
Master2 DeLphi .. kk Delphi ... Saya Mau tanya dan Mohon bantuan ...
Saya memiliki masalah seperti ini .. saya punya sebuah tabel di database mysql tabelnya 'citrawajah' Tipe data LongText(pada mySQL) Isinya String 0123456789 .... Nah Yang saya tanyakan Bagaimana Source code/Algoritmanya Untuk melakukan pencocokkan Dari sebuat TMemo dengan Sebuah TButton .. Jadi ketika button di click maka akan melakukan pengecekan dari tabel 'citrawajah' yang sudah saya simpan di mysqL .. Bagaimana source code pada button tersebut .. :( MOHON BANTUAN .. Terimakasii sebelumnya ...
more 14 years ago
AndyK
http://pascal-id.org/thread/unknown/49590/view-old-thread/#49590
http://pascal-id.org/thread/unknown/49589/view-old-thread/#49589
http://pascal-id.org/thread/unknown/49588/view-old-thread/#49588
http://pascal-id.org/thread/unknown/49587/view-old-thread/#49587
Koq nge-Post-nya sembarangan.., ada dimana-mana juga neh...
more 14 years ago
Manz
WARNING ...
[MODE MOMOD ON] :twisted: :twisted: :twisted:
[MODE PEMBENAHAN THREAD FORUM ON] :twisted:
Sorry for daryl_sukma_gumilar ... terjadi MULTIPLE POST ... Link multiple post saya delete :twisted: [MAAF BOS MOMOD] ...
Link yang multiple post sudah posting lama diangkat kembali dan bukan jawaban dari permasalahan ...
@daryl_sukma_gumilar : tolong posting sesuai dengan permasalahan ... tidak perlu mengangkat thread lama dan tanpa menjawab dari pertanyaan / memberikan solusi... untuk pertanyaan baru ... harap buat thread baru.
Manz
:twisted:
[MOMOD]
more 14 years ago
daryl_sukma_gumilar
@ all : Sory bgt ... Sory2 ... Bener2 urgent neh ,, Makasii ..
more 14 years ago
Manz
@daryl ... semua yang posting disini itu kebanyakan status nya urgent ... tapi teman teman di Delphi-ID semuanya juga orang yang tidak OL selalu dan kalau ada waktu senggang untuk menganalisa dulu permasalahannya sebelum menjawab dengan benar
Apalagi yang anda tanyakan :
@daryl: Bagaimana Source code/Algoritmanyawah ... itu butuh waktu mas... jadi mohon pengertiannya juga ya .... Kalaupun memang urgent Te O Pe sekali ... dikau bisa berkomunikasi lewat YM / PM ... tapi ya ... tergantung dari teman teman yang mau membantu (kalau ada waktu) ... @all delphi-id posters: Mohon Pengertiannya ya... :mrgreen:
more 14 years ago
wh4nx
@daryl -> Mohon bertanya yang jelas, tampilkan kode sementara Anda, struktur tabel, ato screenshoot kek jadi rekan² delphier bs memberikan bantuan dengan tidak sia² karena salah persepsi, mohon pengertiannya :-)
more 14 years ago
daryl_sukma_gumilar
@ Wh4nx : Thx Sudah diingatkan ...
Tabel Citra wajah isinya: 000003200000024004408131044081310440813104408131044081310440813104408131044081310
4276545042765450427 ...........
Itu adalah string hasil konversi dari bitmap dan sudah ada di database ..
Nah yang saya tanyakan Bagaimana Saya mencocokkan String tersebut Dengan String yang baru(Konversi Lagi dari bitmap)
Kalo Script sementara saya hanya baru sampai tahap Merubah String tersebut ke Bentuk Matriks .. itu juga belum berhasil ..Hhe .. Kurang Lebih Source codenya seperti ini
var i,j:integer;
p : PArrRGB;
b:TBitmap;//gambarnya
s1, s2 : TStrings;
sg : TStringgrid;//gridnya
s1 := TStringlist.Create;
s2 := TStringlist.Create;
for j := 0 to b.Height-1 do begin //iterate row
p := b.Scanline[j];
s2.Clear;
for i := 0 to b.Width-1 do begin //iterate column
s2.Add(IntToStr(p[i].r)+','+IntToStr(p[i].g)+','+IntToStr(p[i].b));//simpan di stringlist
end;
s1.Add(s2.CommaText);
end;
//sekarang dikopi ke string grid
sg.RowCount := s1.Count+sg.FixedRows;
for j := 0 to s1.Count-1 do //iterate row
sg.Rows.CommaText := s1[j];
ini saya dekode kembali dari string yang sudah di database jadi bitmap kembali .. dan mau saya potong2 jadi matriks ..
Rencananya pencocokkan akan saya lakukan berdasarkan matriks .. Mungkin kurang efisien .. ada yang punya saran lain ,,, ??
more 14 years ago
daryl_sukma_gumilar
@ Wh4nx : Ini maz saya baru berhasil mengubah Bitmap jadi matriks .. Source codenya gini
procedure TFormProsesCitra.Matriks1Click(Sender: TObject);
var F : TextFile;
darylFile : string;
temp : PByteArray;
i,j : integer;
Image : TBitmap;
begin
darylFile:='Matriks.txt ';
AssignFile(F,darylFile);
Image := TBitmap.Create;
//Image.LoadFromFile(OpenPictureDialog.FileName);
Image := Image2.Picture.Bitmap;
Rewrite(F);
Memo3.Clear;
for j:=0 to Image.Height-1 do
begin
temp := Image.ScanLine[j];
i:=0;
repeat
write(F,inttostr(temp[i])+' ');
i:=i+1;
until i >= 3*Image.Width-1;
end;
CloseFile(F);
Memo3.Lines.LoadFromFile(darylFile);
Image2.Picture.Bitmap := Image;
end;
Nah Sekarang yang saya tanyakan Gmana Melakukan Pencocokkan atas Matriks ini ketika saya menciptakan matriks yang baru ...
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Design Pattern
by danieljun in Enginering more 16 years ago - saving di dua database yang servernya berbeda sekaligus
by jimboy in OpenSource dan Gratis more 16 years ago - cari tutorial Quick Report
by budi_sleman in Tip n Trik Pemrograman more 14 years ago - convert array dari vb ke delphi
by diandewi in Hal umum tentang Pascal Indonesia more 11 years ago - Print dengan Word
by xerion in Tip n Trik Pemrograman more 17 years ago - nilai max query
by yayaretina in MySQL more 17 years ago - ActiveX FingerPrint SDK
by herux in Multimedia & Graphic Enhancement more 16 years ago - konversi *.bmp atau *.jpg
by dinox in Multimedia & Graphic Enhancement more 18 years ago - Mempercepat Aplikasi Database
by delphi_warrior in Lain-lain more 16 years ago - bravo delphi-id
by dngpro in OOT more 14 years ago