如何从 TWebBrowser 获取图像到 TImage

Question

我在表单顶部有一个面板，其中设置了一个小的 TMemo 作为 URL 的放置目标。 在此之下，我有一个带有 2 个选项卡的页面控件。 我在一个选项卡中设置了 TWebBrowser，在第二个选项卡中设置了一些其他内容。 在 TWebBrowser 中，我需要登录到我们拥有的 bug 票务网站，然后浏览票证。 某些门票包含指向客户希望我们使用的小图像的链接（想想徽标之类的东西）。 我可以左键单击它们，然后将链接从 TWebBrowser 拖放到表单顶部的 TMemo。 这会按预期拾取图像的 URL 和标题。

关联的 OnDrop 事件也切换到第二个选项卡，我在其中单击“处理”按钮。 这会导致浏览器导航到图像（通过 Navigate2），然后将其加载到浏览器 window 中。 此时，该图像就是浏览器 window 中的全部内容。

所以现在我需要代码来抓取图像并将其加载到第二个标签页上的 TImage 中。 FWIW，原始图像是PNG。

我能够从目标图像中获取图像的高度和宽度，但大多数时候我并没有让图像本身显示在 TImage 中。 有时，但大多不是。 我可以很好地将 PNG 加载到这些图像对象中，所以我知道它可以正确显示 PNG。

（也许有一种方法可以直接下载图像，但我无法让它工作。TWebBrowser 用于登录到提供图像的内部错误票务系统，我可以访问该站点仅当它在同一个表单上并且我已经登录时。否则，DL 会加载 HTML 登录页面而不是图像。如果在当前框架中有办法做到这一点，我愿意接受建议。）

我使用IHTMLElement2.getelementsByTagName('img')在 web 页面上找到图像文件并获取第一个（因为我知道 web 页面上的所有内容）。

  img := getFirstImage;
  Image1_frame.Height := img.height+2;
  Image1_frame.Width := img.width+2;
  rnd := img as IHTMLElementRender ;
  rnd.DrawToDC(Image1.Canvas.Handle);

Image1 在名为 Image1_frame 的面板上与客户端对齐。 所以我设置了框架的 H & W——它们设置好了。

但图像通常不可见。 它只是白色的。

我看到 DrawToDC 已被弃用，但我还没有找到替换它的内容。

Answer 1

您可以使用此方法自动登录（如果需要）： 自动登录 (webBrowser)

然后你可以使用它来获取 Image: Image from TWebBrowser to TPicture