我创建了一个具有阻塞循环的测试 html 页面。当我调用 TWebBrowser.Navigate()
时,主线程挂起。但据说 TWebBrowser
是异步工作的。看起来并非如此!
这是一个简单的 html 文件
<html>
<title>test</title>
<script type="text/javascript">
var i = 0;
function writeIt() {
i++;
var start = Date.now();
var element = document.getElementById("test");
if (element) {
while (Date.now() < start + 15000) {
element.innerHTML = i;
i++;
}
}
}
function startIt() {
writeIt();
//setTimeout(writeIt, 1000);
}
//window.onload=startIt();
</script>
<body>
<div id="test"></div>
<script>
startIt();
</script>
</body>
</html>
演示项目:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw,
Vcl.ExtCtrls;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
FileOpenDialog1: TFileOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if FileOpenDialog1.Execute then
WebBrowser1.Navigate(FileOpenDialog1.FileName);
end;
end.
在此 html 文件上调用 WebBrowser1.Navigate()
后,主线程挂起 15 秒。
是否有任何解决方案可以防止 TWebBrowser
阻塞主线程?
更新:
Javascript 似乎在触发 BeforeScriptExecute
事件后立即开始锁定线程。如果我在这里使用 Application.ProcessMessages()
,Javascript 永远不会执行。我仍在尝试寻找解决方案来解决此问题。
最佳答案
您无能为力,这不是 Delphi 问题,而是 IE 问题(TWebbrowser
是 IE 的 ActiveX 浏览器控件的瘦包装器)。
对 Navigate 的调用将被阻塞,直到 javascript 被执行。
在 Internet Explorer 中测试您的文件,您将看到 IE 没有响应。
唯一的出路是使用基于 Chromium/DCEF 的解决方案或 move the TWebbrowser in its own process/thread 。
关于delphi - TWebBrowser 在浏览阻塞 html 期间挂起主线程,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48398955/