Menyimpan Gambar di MySQL dengan Delphi

Sebelumnya sudah saya posting tentang Upload Gambar dengan Delphi . Nah, posting yang sekarang ini lanjutannya yaitu menyimpan gambar di database MySQL.

1. Buat Project baru atau dapat melanjutkan project yang sebelumnya dan siapkan database.

2. Pada Button Upload gambar tambahkan kode berikut :

if OpenPictureDialog1.Execute then

begin

eFoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);

eFileFoto.Text:=OpenPictureDialog1.FileName;

end;

eFoto merupakan komponen TImage yang berfungsi menampilkan gambar yang telah diupload.

eFileFoto merupakan komponen TEdit yang berfungsi menampilkan nama file foto.

3. Pada Button Simpan tambahkan kode berikut :

with dm.qCalon_Pegawai do

begin

    Active:=False;

    Close;

    SQL.Clear;

    SQL.Text:='insert into data_pribadi_calon (no_ktp, nama,tempat_lahir, tgl_lahir, agama, alamat, no_telp, warganegara, status_nikah, stat, foto) values (:a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k)';

    ParamByName('a').AsString:=eKTP.Text;

    ParamByName('b').AsString:=eNama.Text;

    ParamByName('c').AsString:=eTempat.Text;

    ParamByName('d').AsString:=FormatDateTime('yyyy/mm/dd',eTgl.Date);

    ParamByName('e').AsString:=cbAgama.Text;

    ParamByName('f').AsString:=eAlamat.Text;

    ParamByName('g').AsString:=eTelp.Text;

    ParamByName('h').AsString:=eWn.Text;

    ParamByName('i').AsString:=cbNikah.Text;

    ParamByName('j').AsString:='Calon';

    ParamByName('k').AsString:=eFileFoto.Text;

    Execute;

  end;

Proses simpan sudah selesai.

4. Untuk menampilkan kembali gambar yang sudah tersimpan di database, maka pada dbgrid event oncellclick tambahkan kode berikut :

if (DM.qCalon_Pegawai.fieldbyname('foto').AsString='') or (DM.qCalon_Pegawai.fieldbyname('foto').AsString=Null) then

  begin

    eFoto.Picture:=nil;

  end

  else

  begin

    eFoto.Picture.LoadFromFile(DM.qCalon_Pegawai.fieldbyname('foto').AsString);

    eFileFoto.Text:=DM.qCalon_Pegawai.fieldbyname('foto').AsString;

  end;

Hasilnya terlihat seperti gambar di bawah ini:

You Might Also Like :