尝试访问 TWebbrowsers HTML 时应用程序锁定

Question

编辑 把它缩小到这1行，

HTML := wb.OleObject.Document.documentElement.innerHTML;

这会消耗时间......那怎样才能加快速度呢？

使用以下代码，我的应用程序在尝试访问页面的 HTML (Delphi XE) 时可能会挂起 1-2 秒。

function Button1Click(Sender : TObject);
begin
   wb.navigate('http://10.0.0.154/stats');
   // Use a timer to poll the page - dont wait and process app messages
   timer1.enabled := true;
end;

procedure Timer1Timer(Sender : TObject);
var
  HTML : WideString;
begin
   If GetHTML(HTML) = true then
   begin
      Timer1.enabled := false;
      { do something }
   end;
end;


function GetHTML(var HTML : WideString) : boolean;
var
  Document : IHTMLDocument2;
begin
  HTML := '';
  Result := false;

  Document := wb.DOcument as IHTMLDocument2;
  If Assigned(Document) then
  begin
    try
      HTML := wb.OleObject.Document.documentElement.innerHTML;
      Result := true;
    except
      Result := false;
    end;
  end;
end;

但是我注意到在我的 GetHTML 方法中可能需要 1-2 秒才能返回某些内容，并且它会锁定 UI。使用 Delphi XE 查看 AQTime，它表示方法调用很慢（1-2 秒）。它是零星的，我想知道当页面仍在加载中时它是否会失败。

我正在加载的页面是一个内部页面，充满了 javascript，大小为 500k，我无法使用 OnDocumentComplete，因为它在页面准备好之前就触发了，即使我对 ReadyState 进行检查，它仍然会提前触发。

任何人都可以阐明，如果他们有一种更快的方式我可以访问 TWebbrowser 的 HTML？

Answer 1

请记住，导航页面时，OnDocumentComplete 可以触发多次（帧）。

如何正确实现 OnDocumentComplete：

procedure YourForm.OnDocumentComplete(
  Sender: TObject;
  const pDisp: IDispatch;
  var URL: OleVariant);
var
  currentBrowser: IWebBrowser;
  topBrowser: IWebBrowser;
  document: OleVariant;
  windowName: string;
begin
  currentBrowser := pDisp as IWebBrowser;
  topBrowser := (Sender as TWebBrowser).DefaultInterface;
  if currentBrowser = topBrowser then
    ShowMessage('Complete document was loaded')
  else
  begin
    document := currentBrowser.Document;
    windowName := document.ParentWindow.Name;
    ShowMessage(Format('Frame "%s" was loaded', [windowName]));
  end;
end;

来源：

http://www.cryer .co.uk/brian/delphi/twebbrowser/twebbrowser_events.htm#OnDocumentComplete

Answer 2

您的问题似乎是您不允许 TWebBrowser 在尝试获取 HTML 之前完成页面的加载。这只是一个猜测，因为您没有显示调用 wb.Navigate 的代码，并且您必须处理获取 InnerHTML 的异常。

您应该尝试以下操作：

procedure TForm1.GetHTML(URL: string; var HTML: string);
begin
  wb.Navigate(URL);
  Application.ProcessMessages;
  while wb.Busy do
    Application.ProcessMessages;
  HTML := wb.OleObject.Document.documentElement.innerHTML;
end;

Answer 3

与 @crefird 的答案一样，我怀疑您正在尝试在浏览器完成其工作之前访问 InnerHTML...

如果 ReadState/Busy 没有返回 TWebBrowser 繁忙状态的准确表示，您可以执行以下操作：

1）创建一个全局变量，或表单的私有成员...例如“FBrowserBusy：布尔值”（不要忘记在调用之前将其初始化为 TRUE “.导航”）
2）正如@crefird在他的回答中所演示的，使用“while”循环，仅用“wb.Busy”替换“FBrowserBusy”。
3) 添加一个 OnDocumentComplete 事件到你的 TWebBrowser 实例，并设置 FBusy := False;

这将消除任何冲突，并确保 TWebBrowser 对象在外部例程继续询问文档之前已完成加载文档。

希望您觉得这有帮助！