在单独的线程中更新 TWebBrowser？答案

【问题标题】：Update TWebBrowser in a separate thread?在单独的线程中更新 TWebBrowser？
【发布时间】：2012-03-01 22:06:07
【问题描述】：

我使用 TWebBrowser 来显示 Google 地图。问题是它在加载地图时阻塞了主 ui 线程。是否可以在单独的线程中更新地图？

编辑： RRUZ 你是对的 TWebBrowser 对 URL 进行了异步加载。但我发现了它为什么会阻塞的问题来电：

if WaitWhileProcessing and (MapQueryResult.Count > 0) then 
  Result := MapQueryResult[0] as TMapQuery;

以及方法：

function TMapItemCollection.WaitWhileProcessing: Boolean;
var
  vMaxSleepCnt: Integer;
begin
  Result := True;
  vMaxSleepCnt := 0;
  while Processing or Loading do
  begin
    inc(vMaxSleepCnt);
    Application.ProcessMessages;
    Sleep(100);
    if vMaxSleepCnt = 100 then
    begin
      Result := False;
      Break;
    end;
  end;
end;

所以看来要解决这个问题，应该重构代码。但这不是这个问题的范围。

【问题讨论】：

您确定加载地图时哪个 GUI 冻结了吗？因为 TWebBrowser 是异步操作的。你能显示你用来加载地图的代码吗？
您是否尝试过使用来自 www.bsalsa.com 的 TEmbeddedWB？它可能已经有了解决方案，并且很容易切换到它并让异步负载正常工作。
感谢 RRUZ 和 WarrenP 的建议。 RRUZ 是正确的，它已经在 TWebBrowser 中进行了异步加载。所以在我的情况下，原因是别的。我必须调查，因为代码相当复杂......

标签： multithreading delphi delphi-2007 twebbrowser

【解决方案1】：

当执行 if 语句并调用 WaitWhileProcessing 来评估条件时，它会循环 100 次，并以十分之一秒的时间休眠。但是调用 ProcessMessages 时有哪些消息在等待呢？是否可以再次递归调用该方法？它永远不会进入睡眠状态，但会不断调用此方法。顺便说一句，请注意 ProcessMessages 确实是不好的做法，但现在......试试这个：

var
  isWaitWhileProcessingBusy :boolean = false;

function TMapItemCollection.WaitWhileProcessing: Boolean;
var
 vSleepCnt: Integer;
begin      
  if not isWaitWhileProcessingBusy then
  begin
    isWaitWhileProcessingBusy = true;
    vSleepCnt := 0;
    while Processing or Loading or vSleepCnt < 100 do
    begin
      inc(vSleepCnt);
      Application.ProcessMessages;
      Sleep(100);
    end;
    isWaitWhileProcessingBusy := false;
  end;
  Result = Processing or Loading;
end;

如您所见，我还更改了其他一些小东西。中断不在 while 条件中，结果只是处理或加载的结果（因为该表达式给出了实际结果）。函数外部的额外 isWaitWhileProcessingBusy 可防止消息循环重新进入。希望这将防止锁定用户界面。这也不是最佳实践，但目前它可能有助于解决并查明问题。

您是否有理由轮询加载/处理？使用 TWebBrowser 的 OnDocumentComplete 事件会不会容易很多？

...我的脑海里闪过另一个想法...您检查过任务管理器吗？谷歌地图正在使用 Flash，一个也使用主 UI 线程的 activex 组件。这也可能是导致饥饿的资源消耗。

祝你好运！

【讨论】：