如何显示数据库中存放着图片路径的图片(30分)

  • 主题发起人 主题发起人 mhwj95
  • 开始时间 开始时间
M

mhwj95

Unregistered / Unconfirmed
GUEST, unregistred user!
哪位高手帮帮我,请问如何读取access数据库中存放图片路径的字段,并通过image把它显示出来。为什么下面的代码编译的时候会出错?
……
edit1.text:=query1.fieldbyname('tupian').asstring;{执行到这一步正确}
image1.picture.loadfromfile('edit1.text');{出错}
 
我是这样使用的
AJpeg.Assign(table1.Fields[0]) ;
ABitmap.Assign(AJpeg); {Its all folks...}
Image1.Picture.Bitmap :=ABitmap;
你试试如下:
image1.picture.Assign(query1.fieldbyname('tupian').value)
 
兄弟:图片文件又不是'Edit1.text',当然错了

这里有从数据库中读出图片
var
ms:TMemoryStream;
Begin
ms:=TMemoryStream.Create();
(TBlobField(ADOTable1.FieldByName('picture'))).SaveToStream(ms);
Image1.Picture.Bitmap.LoadFromStream(ms);
end;
 
当然错了。
应该是:
Image1.picture.loadfromfile(edit1.text);
而且你的edit1.text放的一定要是绝对路径。
你好粗心啊。
 
Image1.picture.loadfromfile(edit1.text);
image1.picture.loadfromfile('edit1.text');
这两条语句我都用过,原先都不行,不过后然我在主程序里改了一段和本功能无关的程序,竟然行了.不过还是谢谢各位.再请教一个问题,数据库里怎么存放文档;如果数据库里只存放路径,那又该怎么办,如果把所有记录涉及文档部分的内容都放再一个文档里,那当查询的时候怎么用memo显示所要查询的那条记录的文档内容?谢谢!!!
 
firstkkk 兄弟为什么不行啊,是不是还要设置什么东西
 
首先得保证你数据库里存的文件名包括全路径才能LoadFromFile。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
791
import
I
I
回复
0
查看
636
import
I
后退
顶部