显示数据库中的图片

user
    Jpeg;

var
  JPG:TJPEGImage;
  MS:TMemoryStream;

     if  MyQuery1.FieldValues[ ' imgdata ' ]  <> ''  then
    begin
    JPG: = TJPEGImage.Create   ;
    MS: = TMemoryStream.Create   ;
    TBlobField(MyQuery1.FieldByName( ' imgdata ' )).SaveToStream(MS);
    Ms.Position   : = 0;
    JPG.LoadFromStream(Ms);
    MS.Free   ;
    IMage1.Picture.Assign(JPG);
    end;