请问各位大侠，我用filetostr将本地JPG文件转换成二进制保存到SQL2000的text字段，但用strtofile提取时少了10多K，且JPG文件不能正常显示！请问是何原因？

而我在用本地表（备注型（二进制））测试时是完全正常的，能够完整提取并正确显示JPG 文件。

**上传
cStr=STRCONV(FILETOSTR(up_filename),13)  &&将单字节字符转换为编码base64二进制数据

**下载
cStrChr=""
cStrHex=""
FOR nmI=1 TO 10000000  &&分段下载
  sqlstring = " select substring(图片字段," + STR(nmI-1) + " *8000 + 1,8000) ImgField from 表名 "
  cStrHex = STRCONV(ImgField,14) &&返回原始编码
  cStrChr = cStrChr + cStrHex
endfor

nFcreat = Fcreat(filename)
Fwrite(nFcreat,cStrChr)
Fflush(nFcreat)
Fclose(nFcreat)

cStr=STRCONV(FILETOSTR(up_filename),13)

第一句显示“函数参数值类型”无效

cStr=STRCONV(FILETOSTR("c:\a1.jpg"),13)

第一句显示“函数参数值类型”无效

不好意思，本人用的是vfp6，好像没有strconv函数

难道vfp6就无法实现上传sql与传回本地二进制字符了吗？各位大侠帮帮忙呀！多谢了

如果在vfp6下完美解决，有酬谢，有意加微15504045919
本人手上有个项目，也可合作开发，有意的高手可详谈

为啥不升级到VFP9？

试试看能否换点金子
#DEFINE CRYPT_STRING_BASE64    0x00000001
#DEFINE CRYPT_STRING_NOCRLF    0x40000000
DECLARE LONG CryptBinaryToStringA IN crypt32 STRING@, LONG, LONG, STRING@, LONG@
DECLARE LONG CryptStringToBinaryA IN crypt32 STRING@, LONG, LONG, STRING@, LONG@, LONG@, LONG@

cStr = "中国"
? _Base64Encode(cStr)
? _Base64Decode(_Base64Encode(cStr))
RETURN

FUNCTION _Base64Encode(cStr)
    LOCAL nBase64DataLen, cBase64Data
    nBase64DataLen = 0
    IF CryptBinaryToStringA(cStr, LEN(cStr), CRYPT_STRING_BASE64+CRYPT_STRING_NOCRLF, NULL, @nBase64DataLen)==0
        MESSAGEBOX("获取编码后的数据长度失败")
        RETURN ""
    ENDIF
    cBase64Data = SPACE(nBase64DataLen+1)
    IF CryptBinaryToStringA(cStr, LEN(cStr), CRYPT_STRING_BASE64+CRYPT_STRING_NOCRLF, @cBase64Data, @nBase64DataLen)==0
        MESSAGEBOX("Base64编码失败")
        RETURN ""
    ENDIF
    RETURN LEFT(cBase64Data,AT(CHR(0),cBase64Data)-1)
ENDFUNC

FUNCTION _Base64Decode(cBase64Str)
    LOCAL nOutLen,cStr
    nOutLen = 0
    IF CryptStringToBinaryA(cBase64Str,LEN(cBase64Str),CRYPT_STRING_BASE64,0,@nOutLen,0,0)==0
        MESSAGEBOX("获取解码数据长度失败")
        RETURN ""
    ENDIF
    cStr = SPACE(nOutLen)
    IF CryptStringToBinaryA(cBase64Str,LEN(cBase64Str),CRYPT_STRING_BASE64,@cStr,@nOutLen,0,0)==0
        MESSAGEBOX("Base64解码失败")
        RETURN ""
    ENDIF
    RETURN cStr
ENDFUNC