Menampilkan Image JPEG Dari Database

Pada script sebelumnya, telah saya sampaikan script untuk menyimpan grafik dengan tipe JPEG kedalam field dengan tipe BLOB, sekarang kita buat script untuk menampilkan image JPEG dari database :.

procedure TForm1.Button2Click(Sender: TObject);
var
tmpjpg:TJPEGImage ;
tmpstream:TMemoryStream ;
begin

if not(ADODataSet1.Eof) then
begin
tmpjpg:=TJPEGImage.Create ;
tmpstream:=TMemoryStream.Create ;

image1.Picture.Graphic:=nil ;
ADODataSet1photo.SaveToStream(tmpstream) ;
tmpstream.Position:=0 ;
tmpjpg.LoadFromStream(tmpstream) ;
image1.Picture.Graphic:=tmpjpg ;

tmpjpg.Free ;
tmpstream.Free ;

end ;

Jadi, sebelum ditampilkan, kita harus menyimpan field dengan tipe BLOB grafik tadi kedalam stream. Kita tidak dapat langsung menampilkan field BLOB yang menyimpan grafik dengan tipe JPEG menggunakan Data Aware karena Data Aware hanya akan menampilkan grafik dengan tipe Bitmap.***