|
>> Bräuchte da evtl etwas konkretere Hilfe.
Ausschnitt aus dem zuvor geposteten Link:
sHeader = "Content-Type: multipart/form-data, boundary=AaB03x" & vbCrLf
bRet = HttpAddRequestHeaders(hHttpOpenRequest, sHeader, Len(sHeader), _
HTTP_ADDREQ_FLAG_REPLACE Or HTTP_ADDREQ_FLAG_ADD)
'...
'Datei zum posten in einen string lesen
nFile = FreeFile
Open file For Binary As #nFile
sPostData = String(LOF(nFile), " ")
Get #nFile, , sPostData
Close #nFile
'Die datei posten
sPostData = _
"--AaB03x" & vbCrLf & _
"Content-Disposition: form-data; name=""datei""; filename=""" & file & """" & vbCrLf & _
"Content-Transfer-Encoding: binary" & vbCrLf & _
"Content-Type: application/octet-stream" & vbCrLf & vbCrLf & _
sPostData & vbCrLf
Dein Code:
HTTPReq.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & sBoundary
HTTPReq.setRequestHeader "Content-Disposition", "form-data; name=""file"""
HTTPReq.send adoStream.Read()
Noch genauer gehts nicht. ;o)
Du gibst bei dir zwar ein Boundary an, aber du nutzt es nicht um den Dateinteil einzuleiten.
|