Soon as I needed to save image from different URLs again, I recalled how many times i have previously done this, So this time pasting it on the blog so it will help not only me but some viewers too
'MyImage is System.Drawing.Image type variable
MyImage = GetImage(ImageURL)
If Not IsNothing(MyImage) Then
ImagePath = RetreivedImagesPath + ValidFileName(PartNo) + ".jpg"
MyImage.Save(ImagePath)
Else
ImagePath = "File Not Found"
End If
Definition of GetImage() Function in VB
'Function to return an image taking URL as input
Function GetImage(ByVal URL As String) As System.Drawing.Image
Dim Request As HttpWebRequest
Dim Response As HttpWebResponse
Try
Request = WebRequest.Create(URL)
Response = CType(Request.GetResponse, System.Net.WebResponse)
If Request.HaveResponse Then
If Response.StatusCode = Net.HttpStatusCode.OK Then
GetImage = System.Drawing.Image.FromStream(Response.GetResponseStream)
End If
End If
Thread.Sleep(5000)
Catch ex As Exception
GetImage = Nothing
End Try
End Function
'MyImage is System.Drawing.Image type variable
MyImage = GetImage(ImageURL)
If Not IsNothing(MyImage) Then
ImagePath = RetreivedImagesPath + ValidFileName(PartNo) + ".jpg"
MyImage.Save(ImagePath)
Else
ImagePath = "File Not Found"
End If
Definition of GetImage() Function in VB
'Function to return an image taking URL as input
Function GetImage(ByVal URL As String) As System.Drawing.Image
Dim Request As HttpWebRequest
Dim Response As HttpWebResponse
Try
Request = WebRequest.Create(URL)
Response = CType(Request.GetResponse, System.Net.WebResponse)
If Request.HaveResponse Then
If Response.StatusCode = Net.HttpStatusCode.OK Then
GetImage = System.Drawing.Image.FromStream(Response.GetResponseStream)
End If
End If
Thread.Sleep(5000)
Catch ex As Exception
GetImage = Nothing
End Try
End Function
No comments:
Post a Comment