Delphi中WebBrowser控件的3个bug及解决方案

1、如果打开的页面中，有通过javascript关闭页面的，只会把控件关闭，包含控件的窗口仍然存在，并且手工关闭窗口时，出现问题；

　　2、打开的页面，通过鼠标选定的内容，不能复制，无论是通过右键菜单复制，还是通过Ctrl+C快捷键复制，都不可以；

　　3、打开有WebBrowser控件的窗口，关闭窗口之后，内存得不到释放（此Bug在其他语言中也存在）。

　　以上三个问题，是必须解决的。通过查找资料及自己的试验，终于找到了解决办法，将解决方案总结如下：

问题1解决方案：

先声明消息处理函数：

procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);

在form create时

Application.OnMessage := ApplicationMessage;

函数内容如下：

procedure tfrmhtmlbrowser.ApplicationMessage(var Msg: TMsg; var
Handled: Boolean);

var

wb: tembeddedwb;

begin

WB := GetVisibleWebBrowser; //取当前webbrowser控件

if (Msg.message = WM_CLOSE) and (Msg.hwnd = Wb.Handle)
then

begin

Self.Close ();//关闭webbrowser后，把相应的窗口关闭

end

else

inherited;

end;

问题2解决方案：

引用：uses Activex;

把以下代码放在有WebBrowser控件的窗口最后一个End前面：

initialization

oleinitialize(nil);

finalization

oleuninitialize;

问题3解决方案：

修改Delphi的控件源码：OleCtrls.pas

修改此文件中的函数：GetIDispatchProp、GetIUnknownProp

修改如下：

function TOleControl.GetIDispatchProp(Index: Integer): IDispatch;

var

Temp: TVarData;

begin

GetProperty(Index, Temp);

//Result := IDispatch(Temp.VDispatch);

Pointer(Result) := Temp.VDispatch;

end;

function TOleControl.GetIUnknownProp(Index: Integer): IUnknown;

var

Temp: TVarData;

begin

GetProperty(Index, Temp);

//Result := IUnknown(Temp.VUnknown);

Pointer(Result) := Temp.VUnknown;

end;

修改之后，重新编译。