|
发表于 2025-7-23 18:16:12
|
显示全部楼层
河北省秦皇岛市
使用WinHttpRequest对象实现
|
POST上传文件带参数 | 文本型 | | |
URL地址 | 文本型 | | | | 文件路径 | 文本型 | | | | 文件夹名 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | http | 对象 | | | 边界 | 文本型 | | | post数据 | 字节集 | | | 文件数据 | 字节集 | | | 文件名 | 文本型 | | |
边界 = "---------------------------" + 取文本右边 ("000000" + 到文本 (取随机数 (0, 999999 )), 6 ) 文件数据 = 读入文件 (文件路径 )文件名 = 取文本右边 (文件路径, 取文本长度 (文件路径 ) - 倒找文本 (文件路径, "\", , 假)) post数据 = 到字节集 ("--" + 边界 + #换行符 )post数据 = post数据 + 到字节集 ("Content-Disposition: form-data; name=""folder""" + #换行符 + #换行符 )post数据 = post数据 + 到字节集 (文件夹名 + #换行符 )post数据 = post数据 + 到字节集 ("--" + 边界 + #换行符 )post数据 = post数据 + 到字节集 ("Content-Disposition: form-data; name=""file""; filename=""" + 文件名 + """" + #换行符 )post数据 = post数据 + 到字节集 ("Content-Type: application/octet-stream" + #换行符 + #换行符 )post数据 = post数据 + 文件数据 post数据 = post数据 + 到字节集 ( #换行符 + "--" + 边界 + "--" + #换行符 ) 如果 (http. 创建 ("WinHttp.WinHttpRequest.5.1", ))  http. 方法 ("Open", "POST", URL地址, 假) http. 方法 ("SetRequestHeader", "Content-Type", "multipart/form-data; boundary=" + 边界 ) http. 方法 ("Send", post数据 ) 返回 (http. 读文本属性 ("ResponseText", )) 返回 ("HTTP对象创建失败" )
实现可以同时上传文件和附加参数,完全符合HTTP协议的multipart/form-data规范。
|
|