I am attempting to use an API to upload a file to imgBB, but I encountered the following error message:
{"status_code":400,"error":{"message":"Empty upload source.","code":130},"status_txt":"Bad Request"}
Sub EncodeFile()
Dim strPicPath As String
Dim TestFile As String
strPicPath = "X:\xxxxxxx\xxxxx.png"
Const adTypeBinary = 1 ' Binary file is encoded
' Variables for encoding
Dim objXML
Dim objDocElem
' Variable for reading binary picture
Dim objStream
' Open data stream from picture
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile (strPicPath)
' Create XML Document object and root node
' that will contain the data
Set objXML = CreateObject("MSXml2.DOMDocument")
Set objDocElem = objXML.createElement("Base64Data")
objDocElem.DataType = "bin.base64"
' Set binary value
objDocElem.nodeTypedValue = objStream.Read()
' Get base64 value
TestFile = objDocElem.Text
With CreateObject("MSXML2.ServerXMLHTTP")
.Open "POST", "https://api.imgbb.com/1/upload?key=xxxxxxxxxxxxxxxxxxxxxxxx"
.setRequestHeader "Content-type", "application/json"
.send TestFile
MsgBox (.ResponseText)
End With
End Sub