Delphi7中WebBrowser控件的bug及解决方案 .

Delphi语言，无论是从开发速度、还是运行速度、还是编译速度、还是编译之后的执行文件体积，都是数一数二的。因此被作为共享软件、开发产品、制作“绿色软件”的首选。但是，由于诸多原因，Delphi中，有一些控件，存在一些bug。不论广大技术人员如何反应，Delphi官方就是“视而不见”。有问题，人家虽然不给解决，但是，总不能不用这种语言吧，毕竟优点还是大于缺点的。还是“自己动手，丰衣足食”吧。

　　最近笔者在开发泛东协同管理系统客户端的时候，使用了Delphi中的WebBrowser控件，相信这个控件，是使用最广泛的控件之一，几乎所有与Internet相关的产品，都离不开这个控件。但是这Delphi中的WebBrowser控件，在使用过程中，发现三个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;

 

修改之后，重新编译。

 

以上是Delphi中WebBrowser控件Bug的解决办法，希望对大家有帮助！