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

more 11 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 11 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 11 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 11 years ago
daryl_sukma_gumilar
@ all : Sory bgt ... Sory2 ... Bener2 urgent neh ,, Makasii ..

more 11 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 11 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 11 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 11 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
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- spasi kosong di fast report
by one in Reporting more 12 years ago - menampilkan laporan sambil editing database
by emhacho in Hal umum tentang Pascal Indonesia more 12 years ago - gmn y cara memanggil prosedur timer
by vj_edogawa in Tip n Trik Pemrograman more 12 years ago - Cara print dbgrid dengan printer dot matrix
by agus787 in Reporting more 9 years ago - MENURUT ANDA????
by iccang in Lain-lain more 9 years ago - [ask]Flag/Flags definisi dan fungsinya
by nekok in Hal umum tentang Pascal Indonesia more 10 years ago - minta saran
by Kijokotopo in Hal umum tentang Pascal Indonesia more 14 years ago - Client Server Problem
by dannyong1999 in MySQL more 15 years ago - scrolling navigator pada DBGrid dan pada Combobox
by Tiwul in Form Enhancement & Graphical Controls more 10 years ago - mysql sudah terinstall atau belum lewat delphi ??ask
by purnomo2007 in Hal umum tentang Pascal Indonesia more 11 years ago