Question

delphi中从access数据库中取出图片的代码

我在数据库中存放的是图片的路径，想根据图片编号查到图片，然后弹出一个窗体将图片显示在上面的代码！

Answer 1

TBlob流
var
MemStrm:TMemoryStream;

//读取
MemStrm:=TMemoryStream.Create;
TBlob(ADOQuery.FieldByName('[图片]')).SaveToStream(MemStrm);
Image.LoadFromStream(MemStrm);

//存储
Image.SaveToStream(MemStrm);
ADOQuery.Edit;
ADOQuery.FieldByName('[图片]').SetFieldType(ftBlob);
TBlob(ADOQuery.FieldByName('[图片]')).LoadFromStream(MemStrm);
ADOQuery.Post;

看这里
http://hi.baidu.com/piaoliuxia/blog/item/fac5e70052626315728b6585.html