鱼刺上传文件修复-基于鱼刺HTTPv6.0.6修改

fybang

一直在使用鱼刺http这个类库，代码层次比较好，可以一步一步的调试，其他类库也有类似代码，大部分都一行代码解决，有问题很难看出在哪里。
但是这个类库上传文件一直很难使用，需要了解很多http细节。
看到论坛上有很多反应这个问题，我自己正好用到上传所以改了一下，希望大家喜欢。

金币紧张欢迎打赏

全部代码下载附件

  

子程序名	返回值类型	公开	备 注
上传参数测试	逻辑型

变量名	类 型	静态	数组	备 注
Param	上传参数Bin
success	逻辑型
http	WinHttpW
boundary	文本型			二进制数据分界线
response	文本型
url	文本型
file	文本型

url ＝ “https://www.xxx.com”
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 ()
返回 (真)
返回 (假)

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

yezirun888

66666666666666666666666

futiem

Http鱼刺上传文件修复-基于鱼刺HTTPv6.0.6修改

rensheng

11111111111111111111111111111111111111

熊不熊

感谢分享，很给力！~

xiaoqi3155

66666666666666

xuanyuanhuangdi

厉害了，我的歌

皮皮君

手动阀实打实大师

情人节猫猫

我的水平还没到那个阶段呢

逆水寒天

感谢分享，下载学习下！