Arsip: Ambil beberapa data image dari direktori...... ?

more 16 years ago
rebeltwisted
maaf sebelumnya klo pertanyaan saya ini masih mendasar... maklum saya baru berkecimpung dg delphi....
Saya punya tugas akhir tentang neural network.... sekarang saya bingung pada proses pelatihannya... saya harus mengambil data beberapa image dari beberapa folder untuk dilatih...
pertanyaanya...
gmana cranya saya menampilkan isi dari folder, dan mengambil beberapa data, dan berpindah ke folder lain untuk mengambil data yang lain....
setelah semua data gambar dari beberapa folder didapat.... misalnya nanti disimpan dalam setingan txt..../ array.... bru proses bisa dilakukan...
mohon pencerahannya.... thx....

more 16 years ago
madi
procedure TForm1.Button1Click(Sender: TObject);
var
s,path : string;
begin
path := tree.Path;
s := tree.Selected.Text;
list.Items.Add(path+s);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
list.Items.SaveToFile('daftar.txt');
end;

more 16 years ago
madi
REVISI : :D
procedure TForm1.Button1Click(Sender: TObject);
var
s,path : string;
begin
path := tree.Path;
list.Items.Add(path);
end;

more 16 years ago
rebeltwisted
bozz thanks atas sarannya... aq punya pertanyaan lagi nih... (maaf ngrepotin)....
aq mau ngambil data image tipe blob dari database..... (ukuran gambarnya sekitar 80x70 pixels),... trus aq mau nampilin gambar tersebut d list box... seperti pada pertnyaan pertama... user bisa milih data gambar dari database tersebut........ gmana ya cranya...
mohon bantuannya.....

more 16 years ago
madi
klo blob ya gunakan on efennya dbgrid
procedure TFMain.DBGRIDCellClick(Column: TbsColumn);
begin
listbox1.Items.Add('nama blob')
end;
:Dmore ...
- 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 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 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 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- shutdown windows?
by sulth4n in Tip n Trik Pemrograman more 19 years ago - Salam kenal semua .....
by gandungtjakep in OOT more 16 years ago - Linux + Kylix / Windows + Delphi
by 3rei in Hal umum tentang Pascal Indonesia more 18 years ago - ada yang punya decopiler buat delphi??
by alvonz in OOT more 15 years ago - theme engine
by marvel in OOT more 19 years ago - Ngetest validitas email address.
by bosenjadiprogrammer in Network, Files, I/O & System more 18 years ago - Ada yang tau komponentnya?
by p2bf in Tip n Trik Pemrograman more 17 years ago - Tanya memasukan data ke Table dari String Grid?
by cyber2000 in Tip n Trik Pemrograman more 15 years ago - OOT: Bikin box/frame utk LCD
by DelphiExpert in OOT more 18 years ago - Please Help Donk ....Masalah bikin Function Ascii...
by palapetir in Tip n Trik Pemrograman more 17 years ago