dbf 文件或者 sql_server 储存图片,文档,影像的通用方法:我的体会:此法很简单,可靠,使用畅通无阻。
(vfp 9.0 使用)
1、表的字段:一律使用 备注字段或 text 字段,不要使用 通用型或 image 型。
2、先将图片,文档,影像等变成base64编码数据,比如:
cccc=Strconv(Filetostr("f:\茉莉花.jpg"),13) && 将f盘上,一张叫‘茉莉花’的手机照片转变成64编码。
3、use 表名
replace 表的一个备注字段 with ccc && 文件已经储存.
4 以后使用图片啦,取出文件,:
ffff=Strtofile(Strconv(备注字段名,14),"f:\茉莉花.jpg") && 将字段恢复成原来的图片(不管原来有没有)
5、显示图片:做一张表单,表单上做上一个 image (用鼠标从vfp的控件栏内 ,拉下一个image 图片方格)
如果他的名称是:Image1,于是,用下面句子显示他:此句可以写在表单的 init 事件中.
use 表名
ffff=备注字段
Thisform.Image1.PictureVal=Strconv(ffff,14)
.....可以试试
[ 本帖最后由 qingfameng 于 2011-3-9 22:29 编辑 ]
(vfp 9.0 使用)
1、表的字段:一律使用 备注字段或 text 字段,不要使用 通用型或 image 型。
2、先将图片,文档,影像等变成base64编码数据,比如:
cccc=Strconv(Filetostr("f:\茉莉花.jpg"),13) && 将f盘上,一张叫‘茉莉花’的手机照片转变成64编码。
3、use 表名
replace 表的一个备注字段 with ccc && 文件已经储存.
4 以后使用图片啦,取出文件,:
ffff=Strtofile(Strconv(备注字段名,14),"f:\茉莉花.jpg") && 将字段恢复成原来的图片(不管原来有没有)
5、显示图片:做一张表单,表单上做上一个 image (用鼠标从vfp的控件栏内 ,拉下一个image 图片方格)
如果他的名称是:Image1,于是,用下面句子显示他:此句可以写在表单的 init 事件中.
use 表名
ffff=备注字段
Thisform.Image1.PictureVal=Strconv(ffff,14)
.....可以试试
[ 本帖最后由 qingfameng 于 2011-3-9 22:29 编辑 ]