在优快云论坛不用链接发本地图片方法

最新推荐文章于 2022-05-14 00:07:39 发布

十豆三

最新推荐文章于 2022-05-14 00:07:39 发布

阅读量2k

点赞数 1

分类专栏：其他文章标签： apple 2010

本文链接：https://blog.youkuaiyun.com/apple_8180/article/details/5422130

版权

其他专栏收录该内容

6 篇文章

订阅专栏

*!* 通过学习伴水此帖而得来
*!* http://topic.youkuaiyun.com/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字符，因为优快云每个回复最大为10000字符，所以图片不能太大。
    Messagebox("请在优快云论坛回复框中粘贴后，直接提交回复即可。",64,"信息提示")
Else
    _Cliptext=""
    Messagebox("图片太大！",48,"信息提示")
Endif