3

编辑 将其缩小到这一行，

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？

4

3 回答 3

4

请记住，在导航页面时 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

于 2011-06-22T21:16:18.427 回答
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;
于 2011-05-09T01:27:40.070 回答
0

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

如果 ReadState/Busy 没有返回 TWebBrowser 忙碌状态的准确表示，您可以这样做：

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

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

希望你觉得这有帮助！

于 2011-05-12T01:24:53.007 回答