在线程中使用 OleVariant 和 TWebBrowser 时访问冲突

Question

我尝试在线程中通过 OleVariant 控制 TWebBrowser，但出现访问冲突错误。只有当我在 Delphi XE6 中使用以下代码时才会出现该错误：

var
  Elements: OleVariant;
begin
    Elements := Criar.Web.OleObject.document.all;
end;

作为“Criar”是一个线程。

查看完整代码：

type
  TCriarWeb = class(TThread)
    protected procedure Execute; override;
    public
      Web: TWebBrowser;
  end;

type
  TNavegar = class(TThread)
    protected procedure Execute; override;
    public
  end;

procedure TNavegar.Execute;
var
  Criar: TCriarWeb;
  Elements: OleVariant;
  i: Integer;
begin
  inherited;
  Criar := TCriarWeb.Create;
  Sleep(500);

  for i := 0 to 100 do begin
    Criar.Web.Navigate('http://www.google.com');
    while Criar.Web.ReadyState <> READYSTATE_COMPLETE do
      Sleep(100);

    Elements := Criar.Web.OleObject.document.all;


  end;
end;

{ TCriarWeb }

procedure TCriarWeb.Execute;
begin
  inherited;

  CoInitialize(nil);
  Web := TWebBrowser.Create(nil);
  Web.HandleNeeded;
  Web.Silent := true;

  while true do
    Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Navegar: TNavegar;
begin
  Navegar := TNavegar.Create;

end;

点击链接下载源代码：https://www.dropbox.com/s/di3oou8a7ztg22m/Tentativa%20Webbrowser.rar?dl=0

我需要帮助来解决这个问题。谢谢

Answer 1

我可以看到你有两个主要问题：

1. 您正在使用 COM 而不在 TNavegar.Execute 中对其进行初始化。为了访问 COM 对象，您需要初始化 COM。
2. 您正在一个线程中创建 COM 对象，然后从另一个线程中使用它。我认为这不适用于这个 COM 对象。

将 Web 浏览器 COM 对象的所有访问权限保持在同一个线程。一旦你这样做了，你可能还会发现你不再需要包含对Sleep 的极其可疑的调用。我的猜测是，这是为了让其他线程有机会开始并创建 COM 对象。每当您发现自己正在处理线程竞赛时，Sleep 都不是答案。

我的猜测是，您实际上并不需要两个线程，一个就足够了。我还想知道您是否真的需要网络浏览器控件。您不能使用简单的 HTTP 传输来执行此操作吗？这很可能让您停止调用 ProcessMessages，这是另一个大体上不应该被调用的函数。