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
- Convert File dan ekstensi
by dadanarifin in OOT more 14 years ago - [ask] Tentang penggunaan keybord atau key gan
by kepiss in Tutorial & Community Project more 13 years ago - Nah mau tanya soal ini...
by juan81 in Network, Files, I/O & System more 18 years ago - batch processing
by doniking in Hal umum tentang Pascal Indonesia more 18 years ago - data base darurat nih cara progam denda
by jerry in Tip n Trik Pemrograman more 17 years ago - Bilangan desimal dan Fast-Report
by delphi1st in Tip n Trik Pemrograman more 19 years ago - Heuristic Source Code
by fcomputer in Tip n Trik Pemrograman more 15 years ago - kill process
by ichall in Tip n Trik Pemrograman more 18 years ago - Download E-Mail
by xerion in Tip n Trik Pemrograman more 18 years ago - Hasil Delphi dirubah under web
by ichan29 in Delphi.NET more 18 years ago