Upload image using curl in VBA

Question

I have registered in a website that supports API and I have tested the CURL command line and it works fine for me

curl --location --request POST "https://api.imgbb.com/1/upload?key=APIKEY" --form "image=iVBORw0KGgoAAAANSUhEUgAAAAUAAAAFCAYAAACNbyblAAAAHElEQVQI12P4//8/w38GIAXDIBKE0DHxgljNBAAO9TXL0Y4OHwAAAABJRU5ErkJggg=="

this is API information page https://api.imgbb.com/

I have no great knowledge of how to use excel VBA to send an equivalent command line? I am totally new to such stuff and I have searched a lot and can't get how things go on

I have found this link that may be helpful but it is in VB.NET Help with Imgur API and VB.NET - Image POST

** Now I got the solution and I have developed it like that

Sub Test()
Dim v As Double, sPath As String, sAPIKey As String, sBase64 As String, cmd As String

sPath = ThisWorkbook.Path & "\Result.txt"
sAPIKey = "APIKEY"
sBase64 = ConvertFileToBase64(ThisWorkbook.Path & "\Logo.png")

cmd = Replace(Replace("curl --location --request POST ""https://api.imgbb.com/1/upload?key=¤"" --form ""image=$"" -o ", "¤", sAPIKey), "$", sBase64) & sPath
v = Shell(cmd)
Debug.Print cmd & " Completed" & vbCr & "Process " & v
End Sub

Public Function ConvertFileToBase64(strFilePath As String) As String
Const UseBinaryStreamType = 1

Dim streamInput: Set streamInput = CreateObject("ADODB.Stream")
Dim xmlDoc: Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Dim xmlElem: Set xmlElem = xmlDoc.CreateElement("tmp")

streamInput.Open
streamInput.Type = UseBinaryStreamType
streamInput.LoadFromFile strFilePath
xmlElem.DataType = "bin.base64"
xmlElem.NodeTypedValue = streamInput.Read
ConvertFileToBase64 = Replace(xmlElem.Text, vbLf, "")

Set streamInput = Nothing
Set xmlDoc = Nothing
Set xmlElem = Nothing
End Function

This works fine for small sizes but not for the large ones ..example I have a Logo.png and the size is 545KB in size and this fails. While other smaller images uploaded well

I have manually tried it and it failed too. it seems cms window has a limit number of characters allowed so I can't get all the base64 string in the command line

You can run the curl command line from the command prompt. Just register in the webite imgbb.com and you can get the free API key from this link https://api.imgbb.com/. then you can run the line I have posted ... — YasserKhalil
– YasserKhalil, Commented Mar 21, 2020 at 11:17
Nah I am not interested in curl. Just dropped in to help you out with the link :) — Siddharth Rout
– Siddharth Rout, Commented Mar 21, 2020 at 11:22

CDP1802 · Accepted Answer · 2020-03-21 14:37:30Z

1

You can use Shell

Sub mycurl()

  Dim var As Double, cmd As String
  cmd = "curl -I ""https://api.imgbb.com/"" -o imgbb.txt" ' head only
  var = Shell(cmd)
  MsgBox cmd & " completed" & vbCr & "Process " & var

End Sub

Looks like the API accepts binary files so no need to base64 encode. Try

cmd = "curl --location --request POST ""https://api.imgbb.com/1/upload?" & _
      "key=" & sAPIKey & """ " & _
      "--form image=@""/path/Logo.png"" -o " & sPath & "/response.json"

edited Mar 21, 2020 at 14:37

answered Mar 21, 2020 at 12:32

CDP1802

17.3k2 gold badges10 silver badges19 bronze badges

Sign up to request clarification or add additional context in comments.

10 Comments

YasserKhalil Over a year ago

That's great. How can I get the JSON response?

CDP1802 Over a year ago

@Yasser That's a Curl question not VBA but -o filename saves the output to a file so if the response to your request is JSON I guess it will be in there.

YasserKhalil Over a year ago

Thanks a lot. Can you give me an example of exporting to file?

YasserKhalil Over a year ago

I have a look but couldn't edit my own so as to fit. Can you give me an example based on the cmd line?. I tried this but failed

curl --location --request POST "https://api.imgbb.com/1/upload?key=APIKEY" --data-binary '@C:/Users/Future/Desktop/Output.txt"

CDP1802 Over a year ago

@yasser I don't know. I guess you could check every second for the response file to been created

|

Collectives™ on Stack Overflow

Upload image using curl in VBA

1 Answer 1

10 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

10 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related