http请求，POST一个文件到服务器，

weberchen

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

weberchen

自己坐个沙发，静等高手指点。。。。

duquancai

文件上传。。。。。。

zpy2

curl 命令行吧

lsc900707

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。

为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

lilyhcn1

我是网上下载一个  'XML Upload Class类

Dim UploadData, FileFullPath, tempFileName, loadStatus
FileFullPath = Filesavefolder & "upload.csv"
tempFileName = "upload.csv"
Set UploadData = New XMLUpload

UploadData.Charset = "utf-8"
UploadData.AddForm "conall", conall '文本域的名称和内容
UploadData.AddFile "file", tempFileName, "application/octet-stream", FileFullPath
'Debug.Print updateweb & conall
'WScript.Echo UploadData.Upload(updateweb & conall)
loadStatus = UploadData.Upload(updateweb)


   Dim f As String
     f = Filesavefolder & "33.html"
     Open f For Output As #1
     Print #1, loadStatus
     Close #1




    Dim WriteStream As Object
    Set WriteStream = CreateObject("ADODB.Stream")
    With WriteStream
        .Type = 2               'adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText loadStatus
        .SaveToFile Filesavefolder & "33.html", 2  'adSaveCreateOverWrite
        .Flush
        .Close

    End With
    Set WriteStream = Nothing






Set fso = Nothing
Set UploadData = Nothing

weberchen

lilyhcn1 发表于 2019-7-16 18:41
我是网上下载一个  'XML Upload Class类

Dim UploadData, FileFullPath, tempFileName, loadStatus

下载这个类怎么操作啊 ，麻烦指教一下，谢谢。

lilyhcn1

我发的帖子里面的文件里面都有这个类，你可以看看

weberchen

lilyhcn1 发表于 2019-7-17 16:24
我发的帖子里面的文件里面都有这个类，你可以看看

老大，找不见你说的这个帖子，请赐教啊

vbexcelhome

帮你找了一个代码，在你这个网站用不了，但是代码有参考价值。
https://blog.xiaoxin.pro/?post=154