[Resolvido] Api de upload de imagens com VB 2008

[phrodrigues95 0]

Olá!

 

Eu gostaria de saber se há algum API de upload de imagens para usar com o VB 2008. Se sim, alguém pode fazer um mini-tutorial explicando como usá-lo?

 

Necessidades:

- Fazer o upload da imagem e retornar o link direto.

 

Agradeço desde já!

[KhaosDoctor 242]

Não precisa de API, basta você usar os protocolos FTP e ter um servidor para você colocar a imagem.

[phrodrigues95 0]

Eu gostaria de fazer o upload das imagens no site http://www.imgur.com

 

Você pode fazer um mini-tutorial explicando como faz?

 

Eu já vi ele em um programa feito em C#.

[KhaosDoctor 242]

Bom, o api deles é esse:

 

http://api.imgur.com/#freeusage

 

E você pode ver uma lista de tutoriais:

 

https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&ie=UTF-8#hl=pt-BR&safe=off&tbo=d&output=search&sclient=psy-ab&q=using%20imgur%20api%20c%23&oq=&gs_l=&pbx=1&fp=a827b0a8116a8ec4&ion=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.&bvm=bv.1357316858,d.eWU&biw=1440&bih=775

 

Veja os do Stack Overflow.

[phrodrigues95 0]

Vamos lá! Eu achei um código "pronto" porém quando eu vou rodá-lo ele diz que o acesso a tal pasta foi negado.

 

O código é este:

#Region "Imgur Upload"
   Private Sub PostToImgur()
       Dim apiKey As String = "b9b03e223918469b258194599f5ef68b"
       Dim imageData() As Byte
       Dim fileStream As FileStream = File.OpenRead("C:\Users\ADM\Desktop")
       imageData = New Byte((fileStream.Length) - 1) {}
       fileStream.Read(imageData, 0, imageData.Length)
       fileStream.Close()
       Dim uploadRequestString As String = HttpUtility.UrlEncode("image", Encoding.UTF8) + "=" + HttpUtility.UrlEncode(System.Convert.ToBase64String(imageData)) + "&" + HttpUtility.UrlEncode("key", Encoding.UTF8) + "=" + HttpUtility.UrlEncode(apiKey, Encoding.UTF8)
       Dim webRequest As HttpWebRequest = CType(Net.WebRequest.Create("http://api.imgur.com/2/upload"), HttpWebRequest)
       webRequest.Method = "POST"
       webRequest.ContentType = "application/x-www-form-urlencoded"
       webRequest.ServicePoint.Expect100Continue = False
       Dim streamWriter As IO.StreamWriter = New IO.StreamWriter(webRequest.GetRequestStream)
       streamWriter.Write(uploadRequestString)
       streamWriter.Close()
       Dim response As WebResponse = webRequest.GetResponse
       Dim responseStream As Stream = response.GetResponseStream
       Dim responseReader As StreamReader = New StreamReader(responseStream)
       Dim responseString As String = responseReader.ReadToEnd
       Dim ImageURL As String = Split(responseString, "<original>")(1).Split("<")(0)
       TextBox1.Text = ImageURL
   End Sub
#End Region

 

O erro é este:

 

Pode me ajudar?

 

Resolvido!!

[KhaosDoctor 242]

O problema foi resolvido então?