显示数据库中的图片

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;