这里的image究竟是什么呢??

Question

从数据库中读出图片
var  
pjpg:tjpegimage;  
pic:TMemoryStream;  
begin  
pjpg:=tjpegimage.Create;  
pic:=TMemoryStream.Create;  
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);  
pic.positon:=0;  
pjpeg.LoadFromStream(pic);  
image.graphi.bmp.assign(pjpeg);  
end;  
我想有TImage控件把它显示,但是TImage没有graphi这个属性,这里的image究竟是什么呢??
用TImage把这图片显示应该怎么做呢

Answer 1

用stream处理一下
      streamSaveToStream:=Tmemorystream.Create;
      ImageJPEG := TJPEGImage.Create();
      Tblobfield(Fr_RYJBXX.qryJBXX.FieldByName('ZP')).savetostream(streamSaveToStream);
      streamSaveToStream.Position:=0;
      ImageJPEG.LoadFromStream(streamSaveToStream);
      ImageYL.Picture.Assign(ImageJPEG);
      streamSaveToStream.Free;
      ImageJPEG.Free;

Answer 2

var
ImageJPEG :tjpegimage;
streamSaveToStream:TMemoryStream;
begin
  streamSaveToStream:=TMemoryStream.Create;
  ImageJPEG :=Tjpegimage.Create;
  TBlobfield(ADOTable1.FieldByName('Graphic')).SaveToStream(streamSaveToStream);
  streamSaveToStream.Position :=0;
  ImageJPEG .LoadFromStream(streamSaveToStream);
  image1.Picture.Assign(ImageJPEG );
  streamSaveToStream.Free ;
  ImageJPEG .Free;
end;
运行有错  JPEG error #53