WebBrowser capture (image) du contenu

Bonsoir à tous,
Je tourne en rond depuis qlq temps sur ce problème :
- save d'une image (snapshot) issue du contrôle webbrowser
Le code ci-dessous fonction et capture bien une image...
En revanche, je n'ai pas toute la page web, seulement ce qui est "vue" dans la fenêtre du browser... et je ne peux pas étendre la fenêtre du browser.
Donc ce que je cherche est :
- capture entiere de la page affiché dans le browser, même si toute la page n'est pas visuble.
le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Public Class Form1 Dim imgfile As String = "c:\temp\snapshot.jpg" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add("http://fr.wikipedia.org/wiki/Softimage") 'ComboBox1.Items.Add("http://fr.toto.com/softimage/") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate(ComboBox1.SelectedItem) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.Refresh() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim wbWidth As Integer = WebBrowser1.Width Dim wbHeight As Integer = WebBrowser1.Height WebBrowser1.Size = New Size(wbWidth, wbHeight) Dim jpg As New Bitmap(WebBrowser1.Width, WebBrowser1.Height) ' ici le drawtobitmap ne semble pas être une "methode" de webbrowser.. ???? même si ça fonctionne. WebBrowser1.DrawToBitmap(jpg, New Rectangle(0, 0, wbWidth, wbHeight)) jpg.Save(imgfile, System.Drawing.Imaging.ImageFormat.Jpeg) jpg.Dispose() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click System.IO.File.Delete(imgfile) End Sub End Class
Pour faire fonctionner le code ci-dessus :
- créer une form, un panel1 et dans le panel1 ajouter le control webbrowser, et enfin les boutons...

De plus, quand je me déplace dans le webbrowser (scrollbar) et que je fais un save d'image (bouton3), j'obtiens une image blanche ???

Avez vous une idée de réponse pour ces deux questions ?
Merci
Patrick

Bonsoir PatrickVier,

Ce projet devrait te mettre sur la voie :

http://www.codeproject.com/Articles/...bCapture1b.zip

A+

Bonsoir Wallace,
merci du lien, mais je l'ai déjà essayé, enfin seulement le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Try Dim scrollWidth As Integer Dim scrollHeight As Integer scrollHeight = WebBrowser1.Document.Body.ScrollRectangle.Height scrollWidth = WebBrowser1.Document.Body.ScrollRectangle.Width WebBrowser1.Size = New Size(scrollWidth, scrollHeight) Dim bm As New Bitmap(scrollWidth, scrollHeight) WebBrowser1.DrawToBitmap(bm, New Rectangle(0, 0, bm.Width, bm.Height)) 'Dim SaveAsName As String 'SaveAsName = Regex.Replace(textWebURL.Text, "(\\|\/|\:|\*|\?|\""|\<|\>|\|)?", "") bm.Save(imgfile, System.Drawing.Imaging.ImageFormat.Png) bm.Dispose() Catch ex As Exception MessageBox.Show(ex.Message, "Exception", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally ' End Try
Je l'ai mis dans le bouron3...
Effectivement l'image sauvé est grande et semble bien avoir la taille de la page ouverte dans webbrowser. En revanche, j'ai toujours que ce que voit le control webrowser en haut de l'image et le reste noir...
Je vais loader le projet complet, pour voir si j'ai une réponse ou même une piste.
Pour la sauvegarde de l'image "blanche" voir mon post précedent, j'ai toujours la même chose, quand je deplace les scrollbars... (sur le lien, il préconise d'utiliser le code ci-dessus si probleme image blanche, bah!!! je l'ai aussi même avec ce code)
Une idée ??
Merci
Patrick

Bonjour,
j'ai pu régler un de mes 2 problèmes.
je peux maintenant faire une capture de la totalité de la page web même si le contrôle n'en montre qu'une partie.
La raison : j'avais mis le webbrowser dans un panel et dans ce cas, le wb ne pouvais pas s'étendre au delà du panel pour la capture. Donc sortir le wb du panel.
le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim wbW As Integer Dim wbH As Integer wbW = WebBrowser1.Width wbH = WebBrowser1.Height Dim scrollWidth As Integer Dim scrollHeight As Integer scrollHeight = WebBrowser1.Document.Body.ScrollRectangle.Height scrollWidth = WebBrowser1.Document.Body.ScrollRectangle.Width WebBrowser1.Size = New Size(scrollWidth, scrollHeight) Dim jpg As New Bitmap(scrollWidth, scrollHeight) WebBrowser1.DrawToBitmap(jpg, New Rectangle(0, 0, scrollWidth, scrollHeight)) jpg.Save(imgfile, System.Drawing.Imaging.ImageFormat.Jpeg) jpg.Dispose() WebBrowser1.Size = New Size(wbW, wbH) End Sub
En revanche, j'ai toujours le même problème quand, dans mon wb je me déplace avec les scrollbar ou même un simple click dedans, la capture est blanche. Impossible de revenir en arrière, obligé de recharger l'URL (ce n'est pas un refresh) ou relancer l'applie pour retrouver une image en capture.
Une idée ?
Merci
Patrick