Arsip: Pencocokkan String ( String Matching) Delphi DanMySQL ??

 
user image
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 ...
user image
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...
user image
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]
user image
more 14 years ago

daryl_sukma_gumilar

@ all : Sory bgt ... Sory2 ... Bener2 urgent neh ,, Makasii ..
user image
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/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:
user image
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 :-)
user image
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 ,,, ??
user image
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
Share to

Random Topic

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