Menyimpan jpg ke database

Seluruh kode yang ditulis di sini memerlukan unit DB dan jpeg sehingga harus dituliskan

uses DB, jpeg;

Cara untuk menyimpan file gambar ke dalam field "photo" bertipe text milik tabel dalam basis data SQL Server adalah sebagai berikut :

1. Tambahkan komponen bernama OpenDialog1, ADOQuery1, Button1, dan Image1
2. Pada event onClick komponen tombol Button1, tuliskan kode berikut :

procedure TFormPustaka.Button1Click(Sender: TObject);

var

FileStream: TFileStream;

BlobStream: TStream;

begin

OpenDialog1.Execute;

ADOQuery1.Edit;

try

BlobStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('photo'),bmWrite);

FileStream := TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyNone);

BlobStream.CopyFrom(FileStream,FileStream.Size);

FileStream.Free;

BlobStream.Free;

ADOQuery.Post; // menimpan gambar ke field "photo"

QDataPustakaAfterScroll(QDataPustaka); // memanggil event AfterScroll (di bawah)

except

ADOQuery1.Cancel;

end;

end;

end;

Cara untuk menampilkan data gambar yang merupakan isi field "photo" dengan menggunakan komponen ADOQuery1 dan Image1 adalah sebagai berikut :

1. Pastikan properti string dari komponen ADOQuery1 mengandung SQL yang terhubung ke tabel yang memiliki field bertipe text.
2. Pada event AfterScroll dari komponen ADOQuery1, tuliskan perintah berikut ini :

procedure ADOQuery1AfterScroll(DataSet: TDataSet);

var

JpegImage: TJPEGImage;

BlobStream: TStream;

begin

if (not ADOQuery1.FieldByName('photo').IsNull) then

begin

BlobStream:= ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('photo'),bmRead);

JpegImage := TJPEGImage.Create;

try

JpegImage.LoadFromStream(BlobStream);

Image1.Picture.Assign(JpegImage);

Image1.Visible := True; // ini tidak perlu jika Image1.Visible := False; tdk ditulis di bawah

finally

JpegImage.Free;

BlobStream.Free;

end;

end

else

Image1.Visible := False; // atau bisa juga Image1.Picture.Assign(nil);

end;

Tambahkan DBGrid, kemudian hubungkan dengan ADOQuery menggunakan DataSource. Setiap anda mengklik sel DBGrid, maka apabila field "photo" pada record tersebut mengandung gambar, akan muncul gambarnya di komponen image1.