在VFP中处理SQLSERVER的IMAGE字段的两种方法

方法二：利用流文件与ADO方式直接进行二进制文件与十六进制文件转换及存取
以下为方法二的实际应用例子：
************************************************************************************
LOCAL lcConnStr, lcSQL, loConnection, lcImageName, loRecordSet, loADOStream, lpictpro
lpictpro=ALLTRIM(thisform.text1.Value)
lcSQL = "SELECT * FROM YourTable where Idno=''"+TRANSFORM(lpictpro)+"''"
lcConnStr=cLinkStr
lcImageName = ALLTRIM(thisform.text2.Value) && 设置本地文件名.
IF EMPTY(lcImageName) then &&此处为更新时需用原文件
=MESSAGEBOX("图片文件路径不对，找不到该文件！",0,"提示！")
RETURN
ENDIF

*!* 创建对象.
loConnection = CREATEOBJECT("ADODB.Connection")
loRecordSet = CREATEOBJECT("ADODB.Recordset")
loADOStream = CREATEOBJECT("ADODB.Stream")

*!* 打开连接.
loConnection.OPEN(lcConnStr)
loRecordSet.OPEN(lcSQL,loConnection,1,3,1)

*!* 设置 Stream 对象属性.
loADOStream.TYPE = 1 && 1=二进制数据, 2=文本数据.
loADOStream.OPEN

*!*自文件读入后写入服务器
loADOStream.LoadFromFile("&lcImageName") && 读取一个文件到 stream 对象.
loRecordSet.Fields("photo").Value = loADOStream.Read
loRecordSet.Update &&更新字段内容

*!*自服务器读取后存为文件
*loADOStream.WRITE(loRecordSet.FIELDS("photo")) && 传递数据到 stream 对象.
*lcImageName = _ROOT+"temp___0.jpg" && 设置本地文件名.
*loADOStream.SaveToFile(lcImageName,2) && 保存 stream 对象到一个文件.
***erase "&lcImageName"

*!* 关闭连接.
loRecordSet.CLOSE
loConnection.CLOSE
loADOStream.CLOSE
*****************************************************************************