UPLOAD FOTOS SITE IMGUR API
Pessoal consigo fazer o upload de uma foto usando api do site http://imgur.com/ normalmente agora estou tentando criar um sequencia de upload alguem poderia me da uma forca....exemplo quero listar umas fotos em um flowlaout panel usando o sistema drang drop e logo em seguida aperta em um botao e fazer o upload das fotos...so consigo fazer de uma foto alguem teria uma ideia de como posso fazer isso?
o codigo que estou usando para fazer o primeiro upload e este..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
ofd.ShowDialog()
TextBox1.Text = ofd.FileName
End Sub
#Region [Ô]Imgur Upload[Ô]
Private Sub PostToImgur()
Dim apiKey As String = [Ô]b9b03e223918469b258194599f5ef68b[Ô]
Dim imageData() As Byte
Dim fileStream As FileStream = File.OpenRead(TextBox1.Text)
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
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PostToImgur()
End Sub
o codigo que estou usando para fazer o primeiro upload e este..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog
ofd.ShowDialog()
TextBox1.Text = ofd.FileName
End Sub
#Region [Ô]Imgur Upload[Ô]
Private Sub PostToImgur()
Dim apiKey As String = [Ô]b9b03e223918469b258194599f5ef68b[Ô]
Dim imageData() As Byte
Dim fileStream As FileStream = File.OpenRead(TextBox1.Text)
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
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PostToImgur()
End Sub
bom ñ entendo muito disso mia vou te dar uma logica!
carregue as fotos em um datagridview depois faz um laço de repetiçao para saber quantas fotos irao ser carregadas e armazena numa variavel que essa variavel receba o metodo que vc criou
carregue as fotos em um datagridview depois faz um laço de repetiçao para saber quantas fotos irao ser carregadas e armazena numa variavel que essa variavel receba o metodo que vc criou
entao e esse laco q nao estou conseguindo fazer...
Existem várias maneiras de fazer isso como o nosso amigo FELIPE falou é uma delas.
A outra depois de selecionar as fotos que irão fazer o [Ô]upload[Ô] é você ir no diretório que estão as fotos dai você lista o diretório com todos os arquivos e compara a lista de uploads com a lista de diretório dai você renomeia as fotos do diretório com o nome da lista de upload depois você faz a mesma função enviando os arquivos do diretório.
A outra depois de selecionar as fotos que irão fazer o [Ô]upload[Ô] é você ir no diretório que estão as fotos dai você lista o diretório com todos os arquivos e compara a lista de uploads com a lista de diretório dai você renomeia as fotos do diretório com o nome da lista de upload depois você faz a mesma função enviando os arquivos do diretório.
alevale se eu mandar o projeto voce pode criar esse loop pra mim...quando vc tiver um tempinho...
O seu código de envio do arquivo está correto (esse aqui do tópico) se sim uso ele e faço um exemplo pra você.
sim esta correto...
Faz o seguinte mais fácil, anexa o projeto aqui no fórum para deixarmos registrado, não esqueçe de alterar seu usuário e senha hein !
entao pra esse sistema nao estou usando usuario e senha ele usa o sistema de upload em uma pasta public... e o projeto ta ai em cima... sao 2 botoes e 1 textbox...
sobe.....
Então KURTGU tava aqui pensando, e você quer [Ô]flowlaout[Ô] não tem a opção de [Ô]sorted[Ô] quer dizer ele até deve ter como reorganizar os dados só que via código ao contrário do [Ô]listbox[Ô].
Porque você não trabalha então com o listbox ? Assim sua lista será organizada por ordem alfabetica.
Qual a sua real necessidade e dúvida.
Porque você não trabalha então com o listbox ? Assim sua lista será organizada por ordem alfabetica.
Qual a sua real necessidade e dúvida.
Tópico encerrado , respostas não são mais permitidas