Cara menyimpan gambar kedalam database dengan delphi

Seringkali pertanyaan kita adalah bagaimana menyimpan gambar ke database. Cara yang digunakan adalah sama dengan prosedur standar ketika Anda ingin menyimpan data baru (insert, edit) on the field.

tipe data dari gambar blob pada table kita menggunakan Assign.

Untuk contoh kamu ingin menyimpan graphic yang ada di TImage (image1) kedalam field BLOB (di sini saya menunjukkan, nama field adalah sebuah pic):
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if Image1.Picture.Graphic <> nil then<br /> begin<br /> with ADOTable1 do<br /> begin<br /> Insert;<br /> FieldByName('pic').Assign(Image1.Picture.Graphic);<br /> Post;<br /> end;<br /> end;<br /> end;

Untuk menyimpan gambar ke dalam field adalah jenis / format gambar yang ingin Anda simpan, apakah  JPEG / JPG, PNG, GIF atau BMP. Jika Anda ingin semua data pada field 'pic' hanyalah grafis tipe JPEG / JPG, maka Anda harus mengkonversi sebuah grafis yang ada di image1 untuk TJPEGImage kemudian disimpan ke lapangan. Hal ini akan memudahkan Anda ketika menampilkan grafis untuk TImage, karena grafis yang akan ditampilkan sudah pasti TJPEGImage, jadi tidak perlu untuk mendeteksi tipe gambar yang akan ditampilkan. Tapi semua tergantung pada orientasi dari program Anda buat.

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck