主题:Append语句引用图片
wuhao19870918
[专家分:0] 发布于 2012-04-23 15:23:00
请教一个问题,就是我vf编写的一个准考证,但是在相片的导入这个环节出了问题,
代码是:Use E:\直升生准考证制作\直升生总表.DBF
Scan
lcImageName="E:\直升生准考证制作\寿安IMAGE\"+Alltrim(bmh)+".bmp"
If File(lcImageName)
Append General Zp From (lcImageName)
Endif
Endscan
弹出错误提示:关于foxpro出现“OLE错误码 0X800401F5:Application not found”
然后我换了一台电脑弄,图片显示出来了,但是显示的是小图片,不是大图片,
不知道是什么问题,请各位解决一下?
回复列表 (共1个回复)
沙发
hw2007name [专家分:4790] 发布于 2012-04-23 17:13:00
如果你不用通用字段,用BLOB类型字段直接保存照片文件内容就不会出问题了.
比如你在表中建立一个BLOB类型字段,字段名为:“照片内容”
保存方式:
cPstr=filetostr("d:\小明照片.jpg")
repl 照片内容 with cPstr for 姓名="小明"
显示:
1、 直接显示在Image控件
thisform.image1.PictureVal=照片内容
2、取出照片内容,生成文件再显示
if len(照片内容)=strtofile(照片内容,"d:\照片1.jpg")
thisform.image1.picture="d:\照片1.jpg"
endif
我来回复