易语言图片上传 POST取圆形头像图片

.版本 2
.支持库 internet
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 url, 文本型
.局部变量 data, 字节集
.局部变量 code, 文本型

url ＝ “http://www.picdiy.com/s/ashx/y.ashx”
data ＝ 子字节集替换 (到字节集 (#常量1), 到字节集 (“[pic]”), #图片1, , )
code ＝ 到文本 (网页_访问 (url, 1, , , , “Content-Type:multipart/form-data; boundary=----WebKitFormBoundaryGVOwbkxyrzsjUBC3” ＋ #换行符, , , data))
code ＝ “http://www.picdiy.com/temp/” ＋ 文本_取出中间文本 (code, “msg:'”, “'”)
图片框1.图片 ＝ HTTP读文件 (code)
调试输出 (code)

@大飛