文件post到服务器,http请求,POST一个文件到服务器,
http 请求服务器,其它的都正常,现在需要POST一个文件到服务器,本地文件,这个文件怎么处理,才可以装入POST,麻烦指教啊!网上找了很多代码,都不对啊,请大神赐教,谢谢。
错误代码如下:
Sub fileup()
SchemaCode = "D000867chen0527"
FilePropertyName = "photo"
BizObjectId = "b1b9ed47-151c-4447-92e9-c602cddc427b"
URL = "https://www.h3yun.com/OpenApi/UploadAttachment?SchemaCode=" & SchemaCode & "FilePropertyName=" & FilePropertyName & "BizObjectId=" & BizObjectId
cFile = "E:\image\322574.jpg"
Dim http As MSXML2.ServerXMLHTTP
Set http = New MSXML2.ServerXMLHTTP
http.Open "POST", URL, False
Dim b() As Byte, strFile As String
boundary = "----------" & RandomString()
postData = "--" & boundary & vbCrLf
postData = postData & "Content-Disposition: form-data; name=\""albumid\""" & vbCrLf
postData = postData & vbCrLf & "天aaaaa123" & vbCrLf
postData = postData & "--" & boundary & vbCrLf
postData = postData & "Content-Disposition: form-data; name=""photo[]""; filename=""" & cFile & """" & vbCrLf
postData = postData & "Content-Type: image/gif" & vbCrLf
ReDim b(FileLen(cFile))
ff = FreeFile
Open cFile For Binary As #ff
Get #ff, , b
Close #ff
strFile = b
postData = StrConv(postData & vbCrLf, vbFromUnicode) & LeftB(s, UBound(b)) & ChrB(13) & ChrB(10)
postData = postData & StrConv("--" & boundary & "--" & vbCrLf, vbFromUnicode)
http.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & boundary
ReDim b(LenB(postData))
b = postData
HexStr = "" '这一段是我显示提交的数据
For i = 0 To UBound(b)
Debug.Print IIf(b(i) < 16, "0", "") & Hex(b(i)); " ";
HexStr = HexStr & IIf(b(i) < 32 Or b(i) > 127, ".", Chr(b(i)))
If i Mod 16 = 15 Then Debug.Print " " & HexStr: HexStr = ""
Next
http.setRequestHeader "Content-Length", UBound(b)
http.send b
http.waitForResponse
Debug.Print http.getAllResponseHeaders
Debug.Print StrConv(http.responseBody, vbUnicode)
End Sub
文件post到服务器,http请求,POST一个文件到服务器,相关推荐
- 未能从服务器上请求到shsh文件,请重试![12044],苹果4刷机失败开不了机也连接不上电脑怎么办...
满意答案 zingaro 2014.12.17 采纳率:52% 等级:34 已帮助:29万人 进入DFU模式的方法: 1.保持设备处于开机模式或恢复模式,插入数据线. 2.先按下设备的HOME键 ...
- python读写文件详解,将数据写入一个文件或读一个文件写入另一个文件中。
目录 实践一:读取文件并打印,read() 实践二:读取文件的一行并打印,readline() 实践三:读取文件的所有行存入到一个列表中并打印,readlines() 实践四:向文件中写入字符串,wr ...
- 将文件夹内多个子文件里的Excel数据合并到一个文件,保存为CSV格式
将文件夹内多个子文件里的Excel数据合并到一个文件,保存为CSV格式 使用条件: Excel文件必须是xlsx格式,且数据结构一致,方可用以下代码. # 第一步 导入模块 import pandas ...
- linux shell 文件空,linux shell编程 如何判断一个文件是否为空
shell 判断文件/目录是否为空 jfkidear144932015-01-15 shell中如何判断一个变量是否为空 l_nan365492014-07-14 在shell中如何判断一个变量是否为 ...
- get方法请求返回一个文件_一键转换多种文件格式,完全免费,总有一个方法适合你...
相信各位小伙伴平时办公的时候,肯定经常需要对多种文件格式进行转换,但是下面这些非常好用的转换方法,你用过吗?接下来就带各位一探究竟,希望可以帮到你哦! 一.迅捷PDF转换器在线版 1.文档转换 首先我 ...
- java 模拟post上传文件_JAVA模拟HTTP post请求上传文件
在开发中,我们使用的比较多的HTTP请求方式基本上就是GET.POST.其中GET用于从服务器获取数据,POST主要用于向服务器提交一些表单数据,例如文件上传等.而我们在使用HTTP请求时中遇到的比较 ...
- java http post上传文件_Java通过HTTP POST请求上传文件
我想创建一个Java应用程序来执行以下在Windows上的CURL中工作.Java通过HTTP POST请求上传文件 curl -x XXX.XXX.XXX.XXX:8080 -X POST --da ...
- python下载图片到文件夹_python 移动图片到另外一个文件夹的实例
python 移动图片到另外一个文件夹的实例 如下所示: # -*- coding:utf8 -*- import os import shutil import numpy as np import ...
- 在GitHub上将已有文件移动到同一个仓库的另一个文件夹
1.将该仓库克隆到本地文件夹: cmd命令:git clone +仓库地址 例如:git clone GitHub - nongfulv2/My-Notes 2.在本地文件夹下进行你想要的操作(比如移 ...
- python怎么判断一个文件是否存在-利用Python如何判断一个文件是否存在
通常在读写文件之前,需要判断文件或目录是否存在,不然某些处理方法可能会使程序出错.所以最好在做任何操作之前,先判断文件是否存在. 这里将介绍三种判断文件或文件夹是否存在的方法,分别使用os模块.Try ...
最新文章
- php登陆后显示昵称,php登录后怎么显示名字
- 电梯tt服务器显示第二行啥意思,【大杂烩】〖其他〗奥的斯电梯服务调试器按键说明(TT)...
- r语言rank降序_R语言rank函数详细解析
- YAFFS2移植到AliOS Things指南
- python删除数组元素_python:从数组列表中删除一系列数字
- lamda获取参数集合去空_集合源码解析之LinkedList
- HashMap 的 7 种遍历方式+性能分析!
- 网络数据校验随笔(1)
- Glide4 高效加载图片的配置【转】
- vim批量删除与插入
- c语言:简单排序:冒泡排序法、选择排序法、插入排序法(待写)
- C语言项目源代码大全2021最新!
- QT实现多语言动态切换
- Redis常用命令总结,java开发流程面试
- 如何从网页下载并播放ts格式的视频
- Matlab读取excel文件绘制折线图
- 猿创征文 第二季| #「笔耕不辍」--生命不息,写作不止#
- 学习python量化分析
- 国内jQuery CDN
- android netd和kernelframeworks的通信逻辑