Convertir un control WebBrowser y su contenido en BMP

[gnzsoloyo]

Tengo una aplicación de escritorio creada en VB.Net, con Visual Studio 2007 y .Net 1.1. Por restricciones definidas en el proyecto no puedo cambiar de versión ni en el Visual Studio ni en el Lenguaje.

El problema es que tres formularios de la aplicación usan un control WebBrowser para visualizar mapas de Google Maps y se necesita generar archivos de imagen (BMP, JPG, PNG, etc.) con el mapa representado en un momento dado, y no puede ser esto realizado por medio de JavaScript en la página cargada, ya que los usuarios no pueden habilitar el uso de Activex en la aplicación.

Evidentemente mi solución sería ya sea rasterizar el control o usar cualquier recurso que me permita transformar la página cargada y todo lo que contiene en un BMP.

Los códigos y ejemplos que tengo requieren .Net 2.0, lo cual hace que no los pueda usar, o bien Visual Studio 2005, que tampoco puedo usar.

Tampoco he podido usar la captura de pantalla completa (que he usado en otros puntos), porque la pantalla completa no debe salir en la imagen, ya que el mapa representa menos de 1/4 de ella. De modo que esa forma no es una opción válida.
Existe alguna forma de lograr lo que necesito, sea como .DLL, .OCX, o sólo código ?

[seba123neo]

Hola, la verdad que feo no poder cambiar de versión y actualizarte a la ultima.pero ningun ejemplo te funciona? por ejemplo vi que el webbrowser tiene un metodo llamado DrawToBitmap pero dicen que esta funcion no esta soportada y que no funciona en algunas paginas dependiendo del javascript.viendo un poco mas me encontre con un ejemplo que funciona muy bien, lo hace con la api BitBtl, lo arme porque no venia con la api.

Código vbnet:

Public Class Form1
 
    Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Integer) As Integer
 
    Public Enum TernaryRasterOperations
        SRCCOPY = &HCC0020
        SRCPAINT = &HEE0086
        SRCAND = &H8800C6
        SRCINVERT = &H660046
        SRCERASE = &H440328
        NOTSRCCOPY = &H330008
        NOTSRCERASE = &H1100A6
        MERGECOPY = &HC000CA
        MERGEPAINT = &HBB0226
        PATCOPY = &HF00021
        PATPAINT = &HFB0A09
        PATINVERT = &H5A0049
        DSTINVERT = &H550009
        BLACKNESS = &H42
        WHITENESS = &HFF0062
    End Enum
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.google.com.ar")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim srcGraphics As Graphics = WebBrowser1.CreateGraphics
        Try
            Dim destGraphics As Graphics = PictureBox1.CreateGraphics
            Try
                Dim hdcDest As IntPtr = destGraphics.GetHdc
                Dim hdcSrc As IntPtr = srcGraphics.GetHdc
                BitBlt(hdcDest, 0, 0, WebBrowser1.ClientRectangle.Width, WebBrowser1.ClientRectangle.Height, hdcSrc, 0, 0, CType(TernaryRasterOperations.SRCCOPY, Integer))
                srcGraphics.ReleaseHdc(hdcSrc)
                destGraphics.ReleaseHdc(hdcDest)
            Finally
                CType(destGraphics, IDisposable).Dispose()
            End Try
        Finally
            CType(srcGraphics, IDisposable).Dispose()
        End Try
    End Sub
End Class
 

ojala te funcione con el framework 1.1

saludos.

[gnzsoloyo]

bien. fINALMENTE y luego de leer detalladamente la documentación de Google Maps, me encontré con que mi solución (al menos la mayor parte de ella) ya estaba implementada por GM en uno de los servicios que provee: Statics Maps.
Me explico:
Mi problema es que ciertos formularios que usamos en la aplicación muestran el paso de uno o más vehículos por zonas predefinidas del usuario, las cuales luego deben ser puestas en documentos de Excel, Word, .PDF, etc. Para ello una de las formas más simples es capturar la pantalla y pegarla como bitmap en esos documentos.
Pero el inconveniente se presenta cuando los formularios en cuestión sólo representan el mapa en un segmento pequeño del formulario, y no se requiere que el resto del Form esté en documento (sería imagen - basura). En ese caso lo que deseábamos era capturar sólo el control y su contenido. Nada más.
Hubiera podido implementar ese tipo de funcionalidades si pudiese usar versiones uperiores del Visual Studio... pero por requerimientos de la empresa sólo puedo usar Visual Studio 2003 y por ende, .Net 1.1 y nada más.
Entonces, la semana pasada loguré encontrar esta documentación: Guía para programadores del API de Google Static Maps
Era exactamente lo que necesitaba. Leugo de algunas pruebas y ajustes, el método quedó así:

Código vb.net:

Public Function GoogleImagePath(ByVal oMarkers As String, ByVal vPath As String, ByVal vCenter As String, ByVal vFile As String, ByVal vZoom As Integer, ByVal vMap As Integer) As Boolean
        ' ------------------------------------------------------------------
        Dim inf As Integer
        Dim vMapType As String = ""
        If vMap = 2 Then
            vMapType = "maptype=hybrid&"
        End If
        inf = nfi.NumberDecimalDigits
        nfi.NumberDecimalDigits = 15
        ' ------------------------------------------------------------------
        ' Cada par LatLng en Path y Markers deben venir separados por pipes (|)
        ' ------------------------------------------------------------------
        Try
            Dim i As Image
            oReq = "http://maps.google.com/maps/api/staticmap?center=" & vCenter & "&zoom=14&format=png32&markers=" & oMarkers & "&path=" & vPath & "&size=640x420&sensor=false&" & vMapType & "key=" & oKey & "&hl=es"
            request = WebRequest.Create(oReq)
            request.Credentials = CredentialCache.DefaultCredentials
            CType(request, HttpWebRequest).UserAgent = ".NET Framework Example Client"
            dataStream = request.GetResponse().GetResponseStream
            i = New System.Drawing.Bitmap(dataStream)
            i.Save(vFile & ".png", System.Drawing.Imaging.ImageFormat.Png)
            dataStream.Close()
            ' ------------------------------------------------------------------
            nfi.NumberDecimalDigits = inf
            ' ------------------------------------------------------------------
        Catch ex As Exception
            oLogWriter.Escribir("Excepción en GoogleImagePath()" & vbNewLine & ex.Message & vbNewLine & ex.StackTrace.ToString)
            If Not dataStream Is Nothing Then
                dataStream.Close()
            End If
            Return False
        End Try
        Return True
    End Function
 

Este método recibe:
oMarkers: los marcadores a representar
vPath: la ruta recorrida como secuencia de pares LatLng,
vCenter: centro del mapa
vFile: Nombre del archivo a grabar
vZoom: nivel de zoom
vMap: parámetro para definir si se usará el mapa de calles o el híbrido
oKey: Es una variable global donde guardamos la Api Key de Google Maps.
nfi: Es una variable de tipo CultureInfo que se usa para manejar el formateo de datos numéricos a "en-US".
Además,lleva una variable Friend denominada oLogWriter que es una clase creada para manejar un log de errores que me permite trazar los problemas en el programa sin que se interrumpa.

[oscar24]

Hola, interesante el codigo pero estaba intentando guardar el bitmap en la propiedad Image del picture box yno lo logro conseguir, soy nuevo en vb.net, aqui les paso el codigo, espero me puedan ayudar.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click, btnCapturar.Click
Dim srcGraphics As Graphics = WebBrowser1.CreateGraphics
Try
Dim destGraphics As Graphics = PictureBox1.CreateGraphics
Dim bmpSource As New Bitmap(PictureBox1.Width, PictureBox1.Height, destGraphics)
bmpSource.Save("Image.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Try
Dim hdcDest As IntPtr = destGraphics.GetHdc
Dim hdcSrc As IntPtr = srcGraphics.GetHdc
BitBlt(hdcDest, 0, 0, WebBrowser1.ClientRectangle.Width, WebBrowser1.ClientRectangle.Height, hdcSrc, 0, 0, CType(TernaryRasterOperations.SRCCOPY, Integer))
srcGraphics.ReleaseHdc(hdcSrc)
destGraphics.ReleaseHdc(hdcDest)
PictureBox1.Image = bmpSource.Clone()
Finally
CType(destGraphics, IDisposable).Dispose()
End Try
Finally
CType(srcGraphics, IDisposable).Dispose()
End Try
End Sub