从 WebBrowser 控件保存图像

Question

运行以下代码，但生成的位图向下移动约半英寸并在底部截止。我检查了图像的宽度和高度，它正在创建正确尺寸的图像，只是图像内容向下移动并被截断。我很困惑...有什么想法吗？

    using mshtml;
    using System.Drawing;
    using System.Runtime.InteropServices;

    [ComImport, InterfaceType((short)1), Guid("3050F669-98B5-11CF-BB82-00AA00BDCE0B")]
    private interface IHTMLElementRenderFixed
    {
        void DrawToDC(IntPtr hdc);
        void SetDocumentPrinter(string bstrPrinterName, IntPtr hdc);
    }

    public Bitmap GetImage(string id)
    {
        HtmlElement e = webBrowser1.Document.GetElementById(id);
        IHTMLImgElement img = (IHTMLImgElement)e.DomElement;
        IHTMLElementRenderFixed render = (IHTMLElementRenderFixed)img;

        Bitmap bmp = new Bitmap(img.width, img.height);
        Graphics g = Graphics.FromImage(bmp);
        IntPtr hdc = g.GetHdc();
        render.DrawToDC(hdc);
        g.ReleaseHdc(hdc);

        return bmp;
    }

Answer 1

您所做的就是渲染图像，就像浏览器以所有样式渲染图像一样。不知道这是否是你真正想要的？如果您只想下载图像，那么使用网络请求来解决它会更容易，如其他答案中所述。

如果您确实想要渲染，第一步就是更改

Bitmap bmp = new Bitmap(img.width, img.height);

为“

Bitmap bmp = new Bitmap(e.OffsetRectangle.Width, e.OffsetRectangle.Height);

现在您将获得完整渲染的网络浏览器图像”。

如果您想要一个完美的解决方案，即使是大图像，您也必须滚动并逐块获取图像。

Answer 2

首先，我相信您获得的 img 元素的大小与实际图像大小不同。

其次，为什么不直接使用 System.Net.WebRequest 并从 URL 下载实际图像。您已经有了 URL 并且已经有了 IMG 元素信息，事实上，如果您不显示网络浏览器，请尝试使用 System.Net.WebRequest，这样您就可以验证您获得的内容类型是实际图像还是占位符。

http://msdn.microsoft.com/en-us/library /system.net.webrequest.aspx

Answer 3

如果您有地址，可以使用以下方式保存：

client.DownloadFile

当客户端是 System.Net.WebClient

Answer 4

Imports System.Net
Imports System.Runtime.InteropServices
Imports mshtml
--Add reference Microsoft Html Object Library

Sub Dowork()
Dim x = WebBrowser1.Document.GetElementsByTagName("img")
For i As Integer = 0 To x.Count - 1
If x(i).GetAttribute("alt") = "Captcha image" Then
GetImage(x(i)).Save("captcha.png", Imaging.ImageFormat.Png)
End If
Next
End Sub

<ComImport>
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown)>
<Guid("3050F669-98B5-11CF-BB82-00AA00BDCE0B")>
Public Interface IHTMLElementRenderFixed
Sub DrawToDC(hdc As IntPtr)
Sub SetDocumentPrinter(bstrPrinterName As String, hdc As IntPtr)
End Interface




Public Function GetImage(e As HtmlElement) As Bitmap
    Dim img As IHTMLImgElement = TryCast(e.DomElement, IHTMLImgElement)
    Dim render As IHTMLElementRenderFixed = TryCast(img, IHTMLElementRenderFixed)
    Dim bmp As Bitmap = New Bitmap(e.OffsetRectangle.Width, e.OffsetRectangle.Height)
    Dim g As Graphics = Graphics.FromImage(bmp)
    Dim hdc As IntPtr = g.GetHdc()
    render.DrawToDC(hdc)
    g.ReleaseHdc(hdc)
    Return bmp
End Function