- ' La Procédure est en privé car inclue dans une classe interne de mon projet
-
- ' -----------------------------------------------------
- Private Sub EnregistreImage(ByVal URLImage As String, ByVal CheminDestImage As String)
- Dim myRequest As System.Net.HttpWebRequest
- Dim myResponse As System.Net.HttpWebResponse
- Dim s As System.IO.Stream
- Dim graphicTemp As System.Drawing.Graphics
-
- Dim ImageSource As System.Drawing.Image
-
- myRequest = System.Net.WebRequest.Create(URLImage)
- myResponse = myRequest.GetResponse()
- s = myResponse.GetResponseStream()
-
-
- ImageSource = System.Drawing.Image.FromStream(s)
- graphicTemp = System.Drawing.Graphics.FromImage(ImageSource)
-
- graphicTemp.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceOver
- graphicTemp.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality
- graphicTemp.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
- graphicTemp.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
- graphicTemp.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
-
- graphicTemp.DrawImage(ImageSource, 0, 0, ImageSource.Size.Width, ImageSource.Size.Height)
- graphicTemp.Dispose()
-
- ImageSource.Save(CheminDestImage, System.Drawing.Imaging.ImageFormat.Jpeg)
- ImageSource.Dispose()
-
- s.Close()
- myResponse.Close()
- End Sub
-
- ' -----------------------------------------------------
' La Procédure est en privé car inclue dans une classe interne de mon projet
' -----------------------------------------------------
Private Sub EnregistreImage(ByVal URLImage As String, ByVal CheminDestImage As String)
Dim myRequest As System.Net.HttpWebRequest
Dim myResponse As System.Net.HttpWebResponse
Dim s As System.IO.Stream
Dim graphicTemp As System.Drawing.Graphics
Dim ImageSource As System.Drawing.Image
myRequest = System.Net.WebRequest.Create(URLImage)
myResponse = myRequest.GetResponse()
s = myResponse.GetResponseStream()
ImageSource = System.Drawing.Image.FromStream(s)
graphicTemp = System.Drawing.Graphics.FromImage(ImageSource)
graphicTemp.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceOver
graphicTemp.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality
graphicTemp.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
graphicTemp.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
graphicTemp.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
graphicTemp.DrawImage(ImageSource, 0, 0, ImageSource.Size.Width, ImageSource.Size.Height)
graphicTemp.Dispose()
ImageSource.Save(CheminDestImage, System.Drawing.Imaging.ImageFormat.Jpeg)
ImageSource.Dispose()
s.Close()
myResponse.Close()
End Sub
' -----------------------------------------------------