Vb6 在http post请求中发送pdf/jpg文件-服务器错误

我想在post请求中发送图像或pdf文档，URL工作正常，但在visual basic中，我使用以下代码使用URL发送文档，但它给我失败响应服务器错误。 我已经检查了URL，它没有问题，但是当我尝试在vb中实现时，我得到了500服务器错误的响应

Dim strFile As String  
Dim uploadDocUrl As String
Dim baBuffer() As Byte
Dim sPostData As String
Dim strFile As String
Dim strFileName As String   

strFile = "C://Users/Avinashi/Desktop/1.pdf"
uploadDocUrl = "http://api.tally.messaging.bizbrain.in/api/v1/uploadFile"
strFileName = "1.pdf"
nFile = FreeFile

Open strFile For Binary Access Read As nFile
If LOF(nFile) > 0 Then
ReDim baBuffer(0 To LOF(nFile) - 1) As Byte
Get nFile, , baBuffer
sPostData = StrConv(baBuffer, vbUnicode)
End If
Close nFile

sPostData = "--" & STR_BOUNDARY & vbCrLf & _
"Content-Disposition: form-data;name=""1.pdf""; filename=""" & Mid$(strFile, InStrRev(strFile, "\") + 1) & """" & vbCrLf & _
"Content-Type:multipart/form-data" & vbCrLf & vbCrLf & _
sPostData & vbCrLf & _
"--" & STR_BOUNDARY & "--"

 With CreateObject("Microsoft.XMLHTTP")
.Open "POST", uploadDocUrl, bAsync
.SetRequestHeader "Content-Type", "multipart/form-data"
.SetRequestHeader "token", "78bea912b4a5c497b85926bb471fab04"
.Send pvToByteArray(sPostData)
MsgBox (.responseText)
End With

Private Function pvToByteArray(sText As String) As Byte()
    pvToByteArray = StrConv(sText, vbUnicode)
End Function

---

在文件路径中使用前斜杠/而不是反斜杠\是否正确？@UuDdLrLrSs，我尝试了两个斜杠，但并没有产生任何问题..所以它很好。我能够无错误地运行此代码。我知道这对您的情况没有帮助，但至少语法看起来是正确的。@Brain M Stafford感谢您的检查，但请告诉我，在VB.Net中，如果我想在post请求中发送文件，则有restRequest.AddFile（“file”，FilePath）方法可用，为了在VB6中实现它，对于相同的过程，应该用什么替换此代码？也许这会让我开心。“URL运行良好”——这是你的问题。向我们显示接收文件的代码。您不能只是“上传”到URL，必须有一个服务器端代码，它将接受您发送给它的多部分/表单数据。在中，有一个用于接受服务器端部分的示例PHP代码。让我们看看你在这里用的是什么。是PHP吗？是VB.Net吗？