Question

我在Delphi XE2中有一个应用程序（在Win7 x64上运行，安装了MSIE 10.0.9200.16635），它创建了多个线程。每个线程创建IWebBrowser2接口，然后导航到网页，将其保存到磁盘，删除IWebBrowser2接口并终止线程。 Web浏览器的“无声”属性设置为true。问题是，对于某些URL，我在终止工作线程后会遇到这些错误（例如，Web浏览器不再存在： Screenshot1 Screenshot2

这些是JavaScript错误，第一个是“功能预期”，URL res：//ieframe.dll/preview.js，另一个是“被调用者（服务器[非服务器应用程序]）不可用，消失;所有连接都无效。呼叫没有执行“。 URL是相同的，res：//ieframe.dll/preview.js。我只需要压制这些错误对话框，但我不能。 IWebBrowser2没有“ScriptErrorsSuppressed”属性，所以我不能这样做。有时我得到第一条消息，有时候是另一条消息。我花了三天时间寻找答案，我很无奈。工作线程完成它们的工作，我没有内存泄漏 - 唯一的问题是这些错误对话框。我在MSIE的高级选项中禁用了调试和错误消息，但它没有帮助。我认为可以在这里发生的是，在线程和所有对象被“正式”删除之后，页面中的javascript仍然在内存中的某处执行。然后，它发现浏览器对象消失了，这就是为什么我可能会收到第二条消息“被叫方（服务器......）。”

这是我的代码：

    function AtlAxAttachControl(const pControl: IUnknown;
  hWnd: HWND; ppUnkContainer: IUnknown): DWORD; stdcall; external 'ATL.DLL';

procedure TWPThread.Execute;
const
  CLSID_InternetExplorer: TGUID = '{8856F961-340A-11D0-A96B-00C04FD705A2}';
var
  WndClass: TWndClassEx;
  WebBrowser: IWebBrowser2;
  Handle: HWND;
  Msg:TMsg;
  iall:IHTMLElement;
begin
  FillChar(WndClass, SizeOf(WndClass), 0);
  with WndClass do
  begin
    cbSize := SizeOf(WndClass);
    lpszClassName := 'MESSAGE_ONLY_WINDOW';
    lpfnWndProc := @DefWindowProc;
  end;
  RegisterClassEx(WndClass);
  Handle := CreateWindowEx(0, WndClass.lpszClassName, nil, 0, 0, 0, 0, 0, DWORD(HWND_MESSAGE), 0, 0, nil);
  if (Handle = 0) then raise Exception.Create('CreateWindowEx');
  try
   CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
   if (CoCreateInstance(CLSID_InternetExplorer, nil, CLSCTX_INPROC_SERVER, IID_IWebBrowser2, WebBrowser) <> S_OK) then raise Exception.Create('CoCreateInstance');
   try
    AtlAxAttachControl(WebBrowser, Handle, nil);
    WebBrowser.Silent:=True;
    WebBrowser.Navigate('http://investing.money.msn.com/investments/stock-report?CR=1&AF=1&IH=1&AIE=1&AIR=1&FRH=1&FRK=1&ISA=1&ISQ=1&BSA=1&BSQ=1&CFA=1&CFQ=1&TYS=1&ITT=1&ITP=1&Type=Equity&Symbol=AAN', EmptyParam, EmptyParam, EmptyParam, EmptyParam) ;
    while (WebBrowser.ReadyState <> READYSTATE_COMPLETE) do
    begin
     while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do DispatchMessage(Msg);
     Sleep(1);
    end;
     // MessageBoxW(0, PWideChar((wb.Document as IHTMLDocument2).title), '', 0);
     iall := (WebBrowser.Document AS IHTMLDocument2).body;
     while iall.parentElement <> nil do iall := iall.parentElement;
     Form1.Memo1.Text := iall.outerHTML;
     Form1.Memo1.Lines.SaveToFile('D:\memo.html');
    finally
     WebBrowser:=Nil;
    end;
   finally
    DestroyWindow(Handle);
    CoUninitialize;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 TWPThread.Create;
end;

我做错了什么？有没有一种方法可以防止出现这些错误对话框？我正在考虑在下载的页面中注入我自己的JavaScript - 例如我自己的window.onerror处理程序会产生错误，但我不确定它是否是正确的方法，而且我也不擅长使用JavaScript，尤其是使用此代码注入的东西。

任何帮助非常感谢，谢谢！王牌。

Answer 1

您可以使用注册表另外使用“Silent”属性来禁用脚本调试器，在c＃中看起来像（代码取自CSWebBrowserSuppressError）。这可以仅在应用程序启动时进行一次。还可以看看@locster answer

var newValue = value ? "yes" : "no";

using (RegistryKey ieMainKey = Registry.CurrentUser.OpenSubKey(
     @"Software\Microsoft\Internet Explorer\Main", true))
{
     string keyvalue = ieMainKey.GetValue("Disable Script Debugger") as string;
     if (!keyvalue.Equals(newValue, StringComparison.OrdinalIgnoreCase))
     {
         ieMainKey.SetValue("Disable Script Debugger", newValue);
     }
}

Delphi - 无法在多线程应用程序中使用IWebBrowser2来抑制JavaScript错误对话框

1 个答案: