Thursday, May 26, 2005

VB.net Web code for getting picture

Dim Request As HttpWebRequest = HttpWebRequest.Create("WWW.company.com/image.jpg")
Dim Response As HttpWebResponse
Dim ResponseStream As Stream
Dim FS As FileStream
Dim RetVal As Integer
Dim BytesRead As Integer

'Request.Method = "GET" 'is the default, so not needed
Response = Request.GetResponse()
ResponseStream = Response.GetResponseStream()

FS = New FileStream("YourOutputFileName", FileMode.Create)

RetVal = ResponseStream.ReadByte()
Do While RetVal <> -1
BytesRead += 1
FS.WriteByte(CByte(RetVal))
RetVal = ResponseStream.ReadByte()
Loop
FS.Close()

No comments:

Post a Comment