在 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):bmp,jpg,gif,png;BMP(*.bmp):bmp;JPG(*.jpg):jpg;GIF(*.gif):gif;PNG(*.png):png","","",0,"请选择图片") &&本地图片，如果不是本地图片可以下载到本地后再运行此段代码。
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