Dans certain cas, on peut vouloir sauvegarder une image à partir de l'URL permettant de l'avoir sur un site WEB (
http://www.monsite.com/monimage.jpg).
Cette petite fonction vous donnera cela simplement en enregistrant au format JPEG.
Source / Exemple :
' 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
' -----------------------------------------------------
Conclusion :
Bon Coding.
Romelard Fabrice (Alias F___)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.