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 ...

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...

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]

@ all : Sory bgt ... Sory2 ... Bener2 urgent neh ,, Makasii ..

@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/Algoritmanya

wah ... 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:

@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 :-)

@ 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 ,,, ??

@ 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 ...