VFP将图片或其他文件保存到SQL Server的Text类型字段或者Access

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

*-- vfp8.0、9.0

*--保存
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("路径图片名A"),13)&& base64编码数据，可以将此数据(lcTextString)保存

* 还原
=Strtofile(Strconv(lcTextString或表字段,14),"路径图片名B")&& 将字符还原base64编码前数据，还原成文件
Thisform.Image1.Picture="路径图片名B"&& 将还原后的图片覆给Image控件的的Picture属性
* 或
Thisform.Image1.PictureVal=Strconv(lcTextString,14)&& 将字符还原base64编码前数据后直接覆给Image控件的PictureVal属性(VFP9.0)

*--注：
以上方法除了可以对图片文件操作外，对其他文件如Word，文本，Exe，音频，视频等文件均可，但文件不要过大，否则速度慢。
*------------------
此方法也适用于DBF表的Memo字段(推荐用二进制备注字段，普通备注字段，在代码页有变化的时候会自动转变的，会破坏字段内容，二进制备注字段就不会。
如果直接用dbf二进制备注字段保存任何文件内容，那么可以直接用 Filetostr/Strtofile函数，不需要转成base64（SQL或Access需要转成base64），因为vfp没unicode功能，所有二进制文件功能都可用字符串函数来处理。)。
如果是DBF表的Memo字段，就直接用下面备注字段专用的命令，而且还可以保存和还原大文件（注：不管是什么数据库，不建议将大量大文件保存至表中），用Filetostr/Strtofile函数对文件大小是有限制的。
* 保存：
Append Memo Memo字段名From 文件名Overwrite

* 还原：
Copy Memo Memo字段名To 生成文件名
*------------------
如果是VFP9.0建议改为使用 Blob 类型字段(对应SQL Server的Image或Text类型)，它可以存储任何类型的数据。这样不需要使用 ActiveX，直接使用 vfp 自带的Image控件的PictureVal 属性即可显示 bmp/gif/png/jpg/tif 等格式的图片。
Blob 类型字段要比上面方法好，因为前一种方法有一个缺点就是转成Base64后，数据变大了，不利于网络负载。
至于Blob类型字段的文件存储和还原
*存储
Replace Blob字段With Filetostr("D:文件全名")

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

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