post json上传图片呢 - 精易论坛

子程序名	返回值类型	公开	备注
HTTP图片上传	文本型

变量名	类型	静态	数组	备注
上传地址	文本型
upload_referer	文本型
headers_referer	文本型
图片数据	字节集
图片名称	文本型
图片类型	文本型
token	文本型
upload_session	文本型
boundary	文本型
headers0	类_POST数据类
headersS	文本型
post0	类_POST数据类_字节集
postB	字节集
结果	文本型

上传地址＝ “https://dopen.weimob.com/media/1 ... stoken=ACCESS_TOKEN”
图片数据＝ #图片示例  ' 读入文件 (文件路径)
图片类型＝ “image/jpeg”
图片名称＝文本_取随机字符 (取随机数 (1, 12), 位或 (1, 2, 4)) ＋ “.jpg”  ' 准备测试数据：name
' --以上根据喜好修改
boundary ＝取重复文本 (4, “-”) ＋ “WebKitFormBoundary” ＋文本_取随机字符 (16, 位或 (1, 2, 4))  ' 生成分割参数值，boundary数量取4个用于协议头，提交参数里再默认加俩。
headers0.置值 (“content-type”, “multipart/form-data; boundary=” ＋ boundary)  ' 注意：和提交数据中boundary的数量区别
headers0.置值 (“referer”, headers_referer)
headers0.置值 (“Content-Length”, 到文本 (取字节集长度 (图片数据)))
headers0.置值 (“accept”, “application/json”)
headers0.置值 (“user-agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/105.0.0.0 Safari/537.36 Edg/105.0.1343.42”)
headersS ＝ headers0.获取协议头数据 ()
post0.添加 (“file”, 图片数据, 图片类型, 图片名称)  ' 添加图片字节集到post数据
postB ＝ post0.获取Post数据 (boundary, 2)  ' 默认加俩boundary、获取post数据最终格式
结果＝到文本 (网页_访问_对象 (上传地址, 1, , , , headersS, , , 真, postB, , , , , , , , , ))
' 调试输出 (headersS)
' 调试输出 (到文本 (postB))
' 调试输出 (结果)
返回 (结果)

.版本 2<br />
<br />
.子程序 HTTP图片上传, 文本型<br />
.局部变量 上传地址, 文本型<br />
.局部变量 upload_referer, 文本型<br />
.局部变量 headers_referer, 文本型<br />
.局部变量 图片数据, 字节集<br />
.局部变量 图片名称, 文本型<br />
.局部变量 图片类型, 文本型<br />
.局部变量 token, 文本型<br />
.局部变量 upload_session, 文本型<br />
.局部变量 boundary, 文本型<br />
.局部变量 headers0, 类_POST数据类<br />
.局部变量 headersS, 文本型<br />
.局部变量 post0, 类_POST数据类_字节集<br />
.局部变量 postB, 字节集<br />
.局部变量 结果, 文本型<br />
<br />
上传地址 ＝ “<a href="https://dopen.weimob.com/media/1_0/ec/goodsImage/uploadImg?accesstoken=ACCESS_TOKEN" target="_blank">https://dopen.weimob.com/media/1 ... stoken=ACCESS_TOKEN</a>”<br />
图片数据 ＝ #图片示例  ' 读入文件 (文件路径)<br />
图片类型 ＝ “image/jpeg”<br />
图片名称 ＝ 文本_取随机字符 (取随机数 (1, 12), 位或 (1, 2, 4)) ＋ “.jpg”  ' 准备测试数据：name<br />
' --以上根据喜好修改<br />
<br />
boundary ＝ 取重复文本 (4, “-”) ＋ “WebKitFormBoundary” ＋ 文本_取随机字符 (16, 位或 (1, 2, 4))  ' 生成分割参数值，boundary数量取4个用于协议头，提交参数里再默认加俩。<br />
headers0.置值 (“content-type”, “multipart/form-data; boundary=” ＋ boundary)  ' 注意：和提交数据中boundary的数量区别<br />
headers0.置值 (“referer”, headers_referer)<br />
headers0.置值 (“Content-Length”, 到文本 (取字节集长度 (图片数据)))<br />
headers0.置值 (“accept”, “application/json”)<br />
headers0.置值 (“user-agent”, “Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/105.0.0.0 Safari/537.36 Edg/105.0.1343.42”)<br />
headersS ＝ headers0.获取协议头数据 ()<br />
<br />
post0.添加 (“file”, 图片数据, 图片类型, 图片名称)  ' 添加图片字节集到post数据<br />
postB ＝ post0.获取Post数据 (boundary, 2)  ' 默认加俩boundary、 获取post数据最终格式<br />
<br />
结果 ＝ 到文本 (网页_访问_对象 (上传地址, 1, , , , headersS, , , 真, postB, , , , , , , , , ))<br />
' 调试输出 (headersS)<br />
' 调试输出 (到文本 (postB))<br />
' 调试输出 (结果)<br />
返回 (结果)