Arsip: giamana cara nyimpan gambar ke db pake DBimage

more 13 years ago
putukaca
hi
di form saya isikan beberapa Tdbedit,Tdbimage dan Tbotton. Setelah semua diisikan, kok gambar nggak mau tersimpan ke DB ya? contoh tabelnya kita sebut tabel kawan yang berisi filed nama(varchar),alamat(Varchar) dan foto(blob). kode untuk menyimpannya (onclick pada Tbutton):
if dbedit1.field.asstring='' then
tbKawan.cancle
else
begin
tbKawan.Post;
tbkawan.refresh;
end;
ada bisa bantu nggak memperbaiki/nambahin kode diatas supaya gambarnya bisa kesimpan ke db. saya pake DB mysql.
thank's

more 13 years ago
putukaca
saya dah pake berbagai cara gambar tetap aja nggak mau kesimpan. saya pinginnya menyisipkan kode untuk simpan gambar pada kode yang saya kasikan berikut :
if dbedit1.field.asstring='' then
tbKawan.cancle
else
begin
tbKawan.Post;
tbkawan.refresh;
end;
nah harus diselipkan dibagian mananya? soalnya saya dah ubek2 tidak juga mau tersimpan ke DB. kalo pake TDBedit dengan kode diatas semua yang diisikan di TDBEdit tersimpan. help dong

more 13 years ago
mbahdien
pakai aja fungsi loadfile dari mysql. Jadi perintahnya menjadi 'Insert into gambar values(loadfile(path gambar))'. Dan gambar tadi di assign saja ke image(kalo aku biasanya pakai Timage nggak perlu TDBImage). And kalo gambarnya ekstensinya jpg atau jpeg pakai aja komponen ESDBIMage.

more 13 years ago
NiceDream
kl DBImage kan cm bisa file bmp aja, ada ga cara bwt nyimpen gambar yg ekstensi'a jpeg? maksud'a biar kecil kan kl bmp ukuran'a gede banget. Saya pernah dengar kt'a Tjpegimage tapi kok dicari lewat paman google ga ketemu2 yach? n sekali dapet cm cth sintax'a aja, ada yang tahu ga dimana cara download tjpegimage?

more 13 years ago
MrLee
harus di pisahkan pakai komponen TTable sendiri;
Table1.Edit; // Table1.append;
Table1FieldGbr.LoadFromFile('d:\gbrku.jpg');
Table1.post;
semoga terbantu;

more 13 years ago
donlego
// untuk load picture ke dbimage
table1.insert;
if OpenDialog1.Execute then
DBImage.Picture.LoadFromFile(OpenDialog1.filename);
// untuk save
if dbedit1.text='' then
table1.cancel else
table1.post;

more 13 years ago
alvonz
menurut saya sih gamabr jangan disimpan ke db apalagi gamabrnyayang gede ber mega2,udah aja di taruh ke folder cmn di dbnya simpan nama path dan nama file gambarnya. contoh
TTable1.fieldbyname('pathImage').asstring:=TEdit1.text;//Tedit1 disini isi dari path dan nama file
jadi db tidak terlalu besar
hanya saran saja sihh

more 13 years ago
NiceDream
@donie_a_hidayat: // untuk load picture ke dbimage table1.insert; if OpenDialog1.Execute then DBImage.Picture.LoadFromFile(OpenDialog1.filename); // untuk save if dbedit1.text='' then table1.cancel else table1.post;bukannya cara kaya gitu cuma ampuh sama file gambar BMP aja?n cara2 diatas emang bisa seh buat save gambar ke database tapi ga bisa diload

more 13 years ago
MrLee
maaf jika jawabannya kurang;
untuk load dari database harus di simpan ke file
dan jika JPG harus di tampilkan dgn TImage;
Table1FieldGbr.SaveToFile('d:\gbrku.jpg');
semoga berguna
more ...
- Pages:
- 1
- 2
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
- linus lebih suka pascal
by simba in onLinux more 14 years ago - database (suspect) ???
by flamade in MsSQL more 13 years ago - Simpan dan Baca rumus Matematika
by kacungdelphi24 in Bedah Kasus more 13 years ago - avatarku terkorupsi
by DelphiExpert in OOT more 13 years ago - Find Next
by juki in Hal umum tentang Pascal Indonesia more 12 years ago - [ASK] error saat coba send email dengan Indy SMTP
by shindo in Hal umum tentang Pascal Indonesia more 12 years ago - Drag & Drop DBGRID
by Brams in Lain-lain more 13 years ago - help mo masukin itemindex diradiogroup ke DB
by tegecool in Bedah Kasus more 12 years ago - Upload File di Webservice ?
by purnama in Network, Files, I/O & System more 14 years ago - ask - edit posting tidak berhasil
by cyber_hecker in Moderator Only more 13 years ago