1

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

这些是JavaScript错误，第一个说“Function expected”，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 也不好，尤其是这段代码注入东西。

任何帮助都非常感谢，谢谢！高手。

4

1 回答 1

0

您可以使用注册表禁用脚本调试器，另外使用“Silent”属性，在 c# 中看起来像（代码取自CSWebBrowserSuppressError）。这只能在应用程序启动时完成一次。以及看看@locster的答案

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);
     }
}
于 2013-07-11T14:57:52.137 回答