[分享] 在 CSDN论坛 不用链接发本地图片方法解决方法

*!*    通过学习 伴水 此帖而得来
*!*    http://topic.csdn.net/u/20100127/14/A961DF9A-34A1-44F1-9F9A-C10A4D168736.html
*!*    运行环境：VFP8.0 OR VFP9.0
*!*    apple_8180(十豆三)    2010-02-01

m.lcPictureFile=Getfile("BMP;JPG;GIF;PNG") &&本地图片，如果不是本地图片可以下载到本地后再运行此段代码。
If Empty(m.lcPictureFile)
    Return
Endif
_Cliptext="[img=data:image/gif;base64,"+Strconv(Filetostr(m.lcPictureFile),13)+"][/img]"
If Len(_Cliptext)<10000    &&转换后不能超过10000字符，因为CSDN每个回复最大为10000字符，所以图片不能太大。
    Messagebox("请在 CSDN论坛 回复框中粘贴后，直接 提交回复 即可。",64,"信息提示")
Else
    _Cliptext=""
    Messagebox("图片太大！",48,"信息提示")
Endif