请教高手!在线等待!

Question

用TImage怎样显示存储在Access数据库中的bmp图象啊?不考虑使用DBImage!

Answer 1

存入图片的路径即可,为什么要存入图片
image1.picture.loadformfile(adoquery1.fieldbyname('pic'));

Answer 2

少了value
image1.picture.loadformfile(adoquery1.fieldbyname('pic').value);

Answer 3

对不起，我的access数据库中图象字段是OLE对象啊！这样不能打开啊！

Answer 4

var
  Strm: TMemoryStream;
  Strm := TMemoryStream.Create();
  atblPicturePicture.SaveToStream(Strm);
  if not (strm.Size = 0) then
  begin
    Strm.Position := 0;
    Jpg.LoadFromStream(Strm);
    myImage.Picture.Graphic := jpg;
  end

Answer 5

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    Table1Images.SaveToStream(MS);
    Image1.Picture.Bitmap.LoadFromStream(MS);
  finally
    MS.Free;
  end;
end;Table1Images为双击table控件后add all得到的东西中的一个

Answer 6

我屈服了！
给zxblue加分！虽然没有错误，但是还是不能显示图片！仍然感谢！