Como cargar una imagen o archivo binario desde una URL
He estado revisando los foros públicos y me he encontrado con esta habitual pregunta, para centralizar un poco esta respuesta, es que he agregado estas funciones en este espacio.
La siguiente es una Función que Lee una URL y devuelve un Stream con la Imagen o el código fuente de la URL, obviamente si es una imágen devuelve el binario de esa imagen.
Private Function getUrl(ByVal URL As String, _
ByRef elError As String) As IO.Stream
Dim strResp As String = ""
Try
Dim request As HttpWebRequest = CType(WebRequest.Create(URL), HttpWebRequest)
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
getUrl = response.GetResponseStream()
Catch ex As Exception
elError = ex.ToString
End Try
End Function
Para hacer funcionar la función anterior, deberán crear un PictureBox llamado "picImagen" y Listo.
Dim StreamImagen As IO.Stream, _
elError As String = ""
StreamImagen = getUrl(txtURL.Text, elError)
If elError = "" Then
picImagen.Image = System.Drawing.Image.FromStream(StreamImagen)
Else
MsgBox(elError)
End If
Saludos,
Jhonny Vargas P.