Convertir pàgina web a imagen > Foros de Discusión

Unanswered Active Topics

Forums Search

Forums > Temas de Interés > General .NET

Subject: Convertir pàgina web a imagen

Prev Next

You are not authorized to post a reply.

Author

Messages

lapthebest
Posts:44

01/10/2008 06:31 PM
Buenas noches: Estoy desarrollando un aplicativo en Windows que accede a una página Web, para ello, empleo el control WebBrowser, ya que, cumple, perfectamente, con todos los requerimientos. Sólo, que ahora se me ha presentado un inconveniente, ya que, se necesita que el aplicativo copie todo el contenido de la página como si fuese una imagen, para, luego guardarlo en un determinado directorio. En caso alguién haya realizado algún aplicativo similar o tenga alguna sugerencia, le agradeceré me apoyase con dicho tema. Gracias por la atención prestada. Saludos Luis

rcrbalcazar
Posts:118

20/10/2008 12:17 PM
Todo lo que muestra en la pantalla de un sistema operativo windows es un grafico. Partiendo de este concepto lo que puedes hacer es capturar la seccion de pantalla grafica que en la que se muestra el control WebBrowser y luego grabarlo como un archivo de formato jpg a algun otro, jejejeje, suena un poco loco, aqui te envio un codigo que hice para este fin. Primero crea una aplicacion windows y coloca un PictureBox y un TextBox, carga una imagen cualquiera en el PictureBox y escribe lo que sea en el textbox. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.GuardarPantalla("C:\Pantalla1.jpg", Me.PictureBox1) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.GuardarPantalla("C:\Pantalla2.jpg", Me.TextBox1) End Sub Private Sub GuardarPantalla(ByVal filename As String, ByVal control As Object) Dim f As IO.Stream = IO.File.Open(filename, IO.FileMode.Create, IO.FileAccess.ReadWrite, IO.FileShare.None) Try Dim g As System.Drawing.Graphics = control.CreateGraphics Dim Width As Integer = control.Width Dim Heigth As Integer = control.Height Dim b As New System.Drawing.Bitmap(Width, Heigth) Dim r As New System.Drawing.Rectangle(0, 0, Width, Heigth) control.DrawToBitmap(b, r) b.Save(f, System.Drawing.Imaging.ImageFormat.Jpeg) f.Flush() Catch ex As Exception MessageBox.Show(ex.Message) Finally f.Close() f = Nothing End Try End Sub End Class Saludos.

Richard Rodriguez

You are not authorized to post a reply.

Forums > Temas de Interés > General .NET > Convertir pàgina web a imagen

ActiveForums 3.7