数据库中的图片显示问题(20分)

我的数据库中的图片存储的是jpg图片
我用下面的方法显示出来了，请问有更好的办法吗（不用文件的形式）
procedure TForm1.BitBtn2Click(Sender: TObject);
var jpg:tmemorystream;
begin
try
jpg:=tmemorystream.Create;
(self.ADOTable1.FieldByName('doctor_photo') as tblobfield).SaveToStream(jpg);
jpg.SaveToFile('e:/1.jpg');
self.Image1.Picture.LoadFromFile('e:/1.jpg');
finally
jpg.Free;
end;

试试Image1.Picture.Graphic.LoadFromStream()

我试过了下面的方法都不行
self.Image1.Picture.Graphic.LoadFromStream(jpg);
( self.Image1.Picture.Graphic as Tjpegimage ).LoadFromStream(jpg);

NetBird (2001-3-31 1:19:00)
------------------------------------------------------------------
我也遇到了这个问题，刚解决了。
装载文件：
dataset.fieldbyname('photo').loadfromfiile(filename);
image1.picture.graphic.loadfromfile(filename);

从数据库装载

var
bm:tblobstream;
jp:tjpegimage;
begin
bm:=tblobstream.create(dateset.fieldbyname('photo'),bmread);
if bm.size>0 then
begin
jp:=tjpegimage.create;
jp.loadfromstream(bm);
image1.picture.graphic:=jp;
jp.free;
end else
image1.picture.graphic:=nil;
bm.free;
end;

多人接受答案了。