DelPhi 用image读取数据库中图片

ADODataSet1的WarePic是事先存到数据库的图片。
这里将其取出到image里

var a : tmemoryStream;
  a := TMemoryStream.Create;
  ADODataSet1WarePic.savetostream(a);
  a.Position := 0;
  Image1.Picture.Bitmap.LoadFromStream(a);
  a.free

如果控件所占用面积较小，把属性stretch 改成true。