| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 上传参数测试 | 逻辑型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| Param | 上传参数Bin | |||||
| success | 逻辑型 | |||||
| http | WinHttpW | |||||
| boundary | 文本型 | 二进制数据分界线 | ||||
| response | 文本型 | |||||
| url | 文本型 | |||||
| file | 文本型 | |||||
file ＝ “D:\xxx.png”
Param.Add (“media”, 读入文件 (file), “image/*”, “test.png”)
http.Rest ()
http.Auto (真)
boundary ＝ 取重复文本 (10, “-”) ＋ 文本_取随机字符数字串 (16)
success ＝ http.Open ( #POST, url)
' http.setxxx 就是在设置http请求头
' 鱼刺的上传参数一直不会用
' 精易的正好有一个post数据类，几乎没什么依赖，接口名称已改一至，整合一下直接用
success ＝ 选择 (success, http.SetContentType (“multipart/form-data; boundary=” ＋ boundary), 假)
success ＝ 选择 (success, http.SendBin (Param.ToQuery (boundary, 10)), 假)
如果真 (success)
response ＝ http.GetResponseTextU2A ()返回 (真)返回 (假)
