Nothing amazingly difficult about this task, but it was an interesting GotDotNet question posted today so I thought I would answer it here;

Glenn Holden asks how to turn this file based function into one for images stored at http addresses…

Protected Shared Function GetImageFromFile(ByVal FileName As String) As Byte()

Dim myFile As String = FileName
Dim fs As FileStream = New FileStream(myFile, FileMode.Open, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fs)
Dim bytesize As Long = fs.Length
ReDim GetImageFromFile(bytesize)
GetImageFromFile = br.ReadBytes(bytesize)

End Function

So, I produced this;

Function GetImageFromURL(ByVal url As String) As Byte()

Dim wr As HttpWebRequest = _
   DirectCast(WebRequest.Create(url), HttpWebRequest)
Dim wresponse As HttpWebResponse = _
   DirectCast(wr.GetResponse, HttpWebResponse)
Dim responseStream As Stream = wresponse.GetResponseStream
Dim br As BinaryReader = New BinaryReader(responseStream)
Dim bytesize As Long = wresponse.ContentLength
Return br.ReadBytes(bytesize)

End Function

with a bit of test code thrown into a button…..

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click
Dim img As New Bitmap( _
   New IO.MemoryStream( _
    GetImageFromURL( _
    <font color="Red" family="Microsoft Sans Serif">"http://msdn.microsoft.com/longhorn/art/codenameLonghorn.JPG") _
    ))
Me.BackgroundImage = img

End Sub

A generalized solution that will accept file paths or URIs and automatically determine how to retrieve the stream would likely be useful, but I think this will do for Glenn…

Markup provided by Darren Neimke’s cool markup sample from MSDN

(Listening To: Pets [Porno For Pyros / Big Shiny 90’s])