从 Delphi 的 Internet Explorer 的现有实例中获取 HTML

Question

在一个特定的网站上，如果我打开一个新的 IE 实例，我已经通过了身份验证，只要同时有另一个我之前登录过的 IE 实例。 如果我从 Delphi 打开一个 tWebbrowser，我没有通过身份验证。 由于我不想登录我创建的每一个 tWebbrowser，我想找到一种方法来保持这种身份验证正常工作，当我手动打开 IE 的新实例时。 目的是从我登录的不同页面获取 HTML。

我想要一个

1) 从使用 ShellExecute 打开的 Internet Explorer 实例中获取 HTML

或

2) 让 tWebbrowser 记住所有其他打开的 IE 实例的身份验证

或

3) 将 tWebbrowser 连接到 Internet Explorer 的现有实例

或

4) 从 Delphi 获取 HTML 的其他方法

身份验证我不知道如何自动化，因为它是 java/sso。

Answer 1

您可以通过执行以下操作在 Windows shell 中查询 IE 窗口：

uses ShDocVw_Tlb; // or ShDocVw

if Doc = Nil then
  exit;
if Doc.body = Nil then
  exit;

var
  i: Integer;
  Browser: IWebBrowser2;
  ShellWindows: IShellWindows;
  Doc : IHtmlDocument2;

ShellWindows := CoShellWindows.Create;
for i := 0 to ShellWindows.Count - 1 do
  if Supports(ShellWindows.Item(i), IWebBrowser2, Browser) then 
  begin
    // do something with Browser instance, e.g compare the Url you're
    // expecting with Browser.LocationUrl
    // if it is, then you can get at the Html by something like

    Browser.Document.QueryInterface(IHtmlDocument2, Doc);
    if (Doc <> Nil) and (Doc.Body <> Nil) then  
    // access any of the Doc's properties, e.g. InnerHtml

  end;

显然，当 Support 返回 true 时，您可以检查返回的浏览器以查找您要查找的内容。例如。您可以使用浏览器 Document 的 IHtmlDocument2 接口（首先检查它是否不是 Nil）来访问它的 DOM、HTML 等。我想找到一个 TWebBrowser 窗口相对简单，如果那是你想要的去做。