Question

我使用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;

所以似乎解决了这个问题应该重构的代码。但这不是这个问题的范围。

Answer 1

当执行if语句并调用WaitWhileProcessing来评估条件时，它会以10秒的休眠时间循环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条件中，结果只是Processing或Loading的结果（因为该表达式给出了实际结果）。函数外部的额外isWaitWhileProcessingBusy使消息循环不再重新进入。希望这会阻止锁定用户界面。这也不是最佳做法，但现在它可能有助于解决并找出问题。

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

......我想到了另一个想法......你检查过任务经理吗？谷歌地图使用flash，一个activex组件也使用主UI线程。这也可能是造成饥饿的资源匮乏。

祝你好运！

在一个单独的线程中更新TWebBrowser？

1 个答案: