How to upload an image to the Stack Exchange Imgur account?

Question

This is not a duplicate of How to call Imgur API.

I tried to upload to imgur using its API, but (as my friends test) the API of imgur cannot be called in Chinese mainland. Then I found that halirutan has a technology to upload an image to imgur even without any account information via http://stackoverflow.com/upload/image. Now I can upload image to imgur by his function SEUploader`sendImage. Little pity is that he implemented it with Java code.

We can find his code here. I get nothing after researching his Java code. Can we do the same thing in pure Mathematica using new functions introduced in version 11.0 such as HTTPRequest, URLRead and so on?

vapor · Accepted Answer · 2020-06-29T10:38:33.317

7

Update on June 29th, 2020

Since API has changed, the new code is here:

getFKey[] := 
 First@StringCases[
   URLRead[HTTPRequest["https://stackexchange.com"]]["Body"], 
   "fkey: '" ~~ Shortest[fkey___] ~~ "'" :> fkey]
uploadImageSE[imagePath_] := 
 Module[{req}, 
  req = HTTPRequest[
    "https://mathematica.stackexchange.com/upload/image?method=json&\
https=true", <|Method -> "POST", 
     "Body" -> {"file" -> File[imagePath], "fkey" -> getFKey[]}|>];
  ImportString[URLRead[req]["Body"], "RawJSON"]["UploadedImage"]]

This is expected to work with jpg and png files. You need to input the path to image, just like an upload.

uploadImageSE[imagePath_] := 
 Module[{req}, 
  req = HTTPRequest[
    "http://stackoverflow.com/upload/image", <|
 &quot;Body&quot; -&gt; {&quot;image&quot; -&gt; &lt;|&quot;Content&quot; -&gt; File[imagePath], 
     &quot;MIMEType&quot; -&gt; &quot;image/png&quot;|&gt;}
 |&gt;];

StringCases[URLRead[req, "Body"], "http" ~~ __ ~~ ".jpg" | ".png"] //
    First]
uploadImageSE["/Users/xxx/Downloads/test.png"]
("https://i.stack.imgur.com/WD80b.png")

Remember to remove the double quotes before accessing.

edited Jun 29 '20 at 10:38

answered Apr 05 '17 at 03:36

vapor

7,911
2
22
55

That java code mislead me.Orz... – yode Apr 05 '17 at 03:38
If you've already set "MIMEType" -> "image/png", then you don't need to search for ".jpg". You can do something like First[StringCases[URLRead[req, "Body"], RegularExpression["closeDialog\$\"(.+)\"\$"] -> "$1"]]. – J. M.'s missing motivation Apr 05 '17 at 04:35
@J.M. even if I set it to be png, I found the uploaded file to be .jpg sometimes when the original file is .jpg – vapor Apr 05 '17 at 05:35
Ah. In that case, the StringCases[] code I gave should work no matter what the file extension is. – J. M.'s missing motivation Apr 05 '17 at 06:25

How to upload an image to the Stack Exchange Imgur account?

1 Answers1

Update on June 29th, 2020

Linked