VFP将图片或其他文件保存到SQL Server的Text类型字段或者Access的备注字段中,并可以还原或显示

*--保存
1、将图片文件用 FileToStr()转成字符A。
2、再用 Strconv("字符A",13)将字符A转成base64编码数据的字符B。
3、将字符B保存到SQL Server的Text类型字段或者Access的备注字段。
 
*--还原或显示
1、用 Strconv("字符B",14)将base64编码数据还原成未编码的数据字符A。

2、用 StrToFile()转成图片文件或把字符A覆给Image控件的 PictureVal 属性来显示
 

*--例
lcTextString=Strconv(Filetostr("图片名"),13) &&base64编码数据,可以将此数据保存
 

Strtofile(Strconv(lcTextString,14),"图片名")
Thisform.Image1.PictureVal=Strconv(lcTextString,14) &&base64编码前数据,即还原显示
 

*--注:
以上方法除了可以对图片文件操作外,对其他文件如Word,文本,Exe,音频等文件均可,但文件不要过大,否则速度慢。
此方法也适用于DBF表的Memo字段。
如果是VFP 9.0建议改为使用 Blob 类型字段,它可以存储任何类型的数据。这样不需要使用 ActiveX,直接使用VFP自带的 Image 控件的 PictureVal 属性即可显示 bmp/gif/png/jpg/tif 等格式的图片。
Blob 类型字段要比上面方法好,因为前一种方法有一个缺点就是转成Base64后,数据变大了,不利于网络负载。
至于Blob类型字段的文件存储和还原

*存储
Replace blob字段 With Filetostr("D:/文件全名")

*还原
=Strtofile(blob字段,"d:/文件全名")

使用通用字段是已过时的技术,而且存在很多的弊病,例如:放入通用字段的图像没有绝对可靠的方法重新再保存为磁盘文件。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值