Simpan Gambar ke BLOB - Dephi7

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Ok,dari pada ngelamun mending ngasih ilmu buat,sesuai judul nya saya akan ngasih tau cara menyimpan gambar ke format BLOB  di database MYSQL,disini saya memakai  bantuan dengan fasilitas MySqlFront.he,....(apalah nama nya itu terserah).

Langsung saja tanpa banyak ini itu,persiapkan komponen atatau Objek yang akan digunakan jika sudah buka program Delphi nya.Oh iya disini saya mengunakan Delphi 7.

Yang simpel aza dulu ya mu di tambahin juga silahkan,,..

1. Tambahkan Objek

-3 buah komponen button

-1 komponen image

-1 komponen Edit

-MysqlDatabase1,Mysqlquery1, Mysqlquery

-OpenPictureDialog1

Liat aza neh rancangan nya:

 

2. Tambahkan library jpeg kedalam bagian uses.

3. Pada property Mysqlquery1 buat Parameter dan SQLnya,jangan lupa dikoneksikan Ke Database dulu :

Query SQL : INSERT INTO TblFoto (kode,Foto) VALUES (:kode , :Foto)

Parameter    : terisi otomatis sech saya jug agak tau tuh,..

Pada parameter kode tentukan datatype nya menjadi ftWideString.

Pada parameter foto tentukan datatype nya menjadi ftBlob.

4. Pada property Mysqlquery2 buat Parameter dan SQLnya juga :

Query SQL : SELECT       * FROM Tblfoto WHERE kode= :kode.

Double klik Mysqlquery2 hingga muncul tampilan berikut :

 

 

Klik kanan pilih add all fields,terus pilih new field tambahkan field foto dengan cara direlasikan (kurang lebih seperti itu lah tau kan cara nya).

5. Nah, saatnya kita lanjutkan penulisan kode lagi. Silahkan anda tentukan kode program didalam event OnClick pada tombol Simpan.

procedure TForm1.Button2Click(Sender: TObject);

var

// deklarasi stream

  Foto          : TMemorystream;

begin

// buat stream

Foto := TMemorystream.Create;

// menampilkan gambar ke image1

Image1.Picture.Graphic.SaveToStream(Foto);

// menyimpan data ke tabel

mySQLQuery1.Params.Items[0].Value := Edit1.Text;

mySQLQuery1.Params.Items[1].LoadFromStream(Foto,ftBlob);

mySQLQuery1.ExecSQL;

end;

6. Setelah itu, lanjutkan dengan menuliskan kode program didalam event OnClick pada tombol Tampilkan.

procedure TForm1.Button3Click(Sender: TObject);

var

// deklarasikan stream

  Stream      : TmySQLBlobStream;

// deklarasikan temporary gambar

  GambarJpeg  : TJpegImage;

  GambarBmp   : TBitmap;

// deklarasikan buffer

  Buffer      : Word;

begin

// buat object temporary gambar

GambarJpeg  := TJpegImage.Create;

GambarBmp   := TBitmap.Create;

// ambil data dari tabel

mySQLQuery2.Params.Items[0].Value := Edit1.Text;

mySQLQuery2.Close;

mySQLQuery2.Open;

// pemasukan data ke stream

Stream  := TmySQLBlobStream.Create(mySQLQuery2foto,bmRead);

// identifikasi buffer yang merepresentasikan sebagai class gambar

Stream.Read(Buffer,SizeOf(Buffer));

Stream.Position := 0;

// jika gambar merupakan class JPEG

if Buffer = $D8FF then

  begin

  GambarJpeg.LoadFromStream(Stream);

  Image1.Picture.Graphic := GambarJpeg;

  end

// jika gambar merupakan class bmp

else if Buffer = $4D42 then

  begin

  GambarBmp.LoadFromStream(Stream);

  Image1.Picture.Bitmap := GambarBmp;

  end;

end;

7. Tuliskan kode program didalam event OnClick pada tombol Load.

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

  begin

  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

  end;

end;

ini lah contoh screenshoot nya :

Program udah di uji dan berjalan tanpa debug.he…..

Sorry aza kalo kurang jelas gax bisa basa basi nerangin nya atuh da.Ni kode udah di utak atik sehingga menghasilkan seperti itu moga aza bermaanfaat.