关于用delphi读取access中的ole对象

Question

我保存一张图片到数据库中，代码如下：
  with adoquery1 do
  begin
    close;
    sql.Text := 'select * from person';
    open;
    Edit;
    TblobField(Fieldbyname('photo')).LoadFromFile('d:\1.bmp');
    post;
  end;
但我想把该字段的值读入到image中，请问该怎么做，谢谢

Answer 1

TBlobField(Fieldbyname('photo')).SaveToFile('TmpPic.bmp');
//把字段的内容写入一个临时文件中。
Image1.Picture.LoadFromFile('TmpPic.bmp');
DeleteFile('TmpPic.bmp');//删除临时文件

Answer 2

image1.picture.bitmap.assign(dataset.fieldbyname('bmp'));
我存图像是用的流,取图像的时候用的上面的语句.成功了,你在试!