回 帖 发 新 帖 刷新版面

主题:Append语句引用图片


请教一个问题,就是我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个回复)

沙发


如果你不用通用字段,用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

我来回复

您尚未登录,请登录后再回复。点此登录或注册