<总结>delphi WebBrowser控件的使用中出现的bug

Delphi WebBrowser控件的使用中出现的bug:

1、WebBrowser.Visible=false;Visible属性不能使WebBrowser控件不可见,暂时用 WebBrowser.Hide的方法代替,WebBrowser.Hide隐藏浏览器, WebBrowser.Show显示浏览器;
    补充:WebBrowser的OnVisible事件 控制窗口的可见或隐藏,用法同上(经测试Visual属性改变时不会激发)
    上述补充参考原网址:   http://www.tuicool.com/articles/2ai6fi

2、使用WebBrowser1.Quit;方法退出浏览器,系统报错“未指定目标”,解决办法暂无;

3、Delphi中webbrowser 不能复制粘贴 
         delphi中WebBrowser控件打开的网页,不能复制、粘贴,包括右键菜单及快捷键。
解决办法如下:

引用:uses Activex;

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

initialization
         oleinitialize(nil);
         finalization
         oleuninitialize;
转载于:http://blog.sina.com.cn/s/blog_62dcdf1a0100qu7d.html 
     4、webbrowser控件显示网页遇到页面内有关闭窗口脚本问题    
     问题讨论网址: http://bbs.csdn.net/topics/390229795

解决办法网址:http://www.cnblogs.com/dlwang2002/archive/2007/04/14/713499.html
代码:

//webbrowser控件显示网页遇到页面内有关闭窗口脚本问题。运行完后执行Window Close的提示

var

vDefInetExplorerServerProc: Pointer;

function InetExplorerServerWndProc(

hwnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

begin

Result := CallWindowProc(vDefInetExplorerServerProc,

hwnd, Msg, wParam, lParam);

case Msg of

WM_DESTROY:

begin

SetWindowLong(hwnd, GWL_WNDPROC, Integer(vDefInetExplorerServerProc));

ShowMessage(‘Window Close‘);  //执行语句

end;

end;

end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

var

vShellDocObjViewHandle: THandle;

vInetExplorerServerHandle: THandle;

begin

vShellDocObjViewHandle := GetWindow(TWebBrowser(Sender).Handle, GW_CHILD);

vInetExplorerServerHandle := GetWindow(vShellDocObjViewHandle, GW_CHILD);

if Integer(@InetExplorerServerWndProc) <>

GetWindowLong(vInetExplorerServerHandle, GWL_WNDPROC) then

begin

Integer(vDefInetExplorerServerProc) :=

GetWindowLong(vInetExplorerServerHandle, GWL_WNDPROC);

SetWindowLong(vInetExplorerServerHandle, GWL_WNDPROC,

Integer(@InetExplorerServerWndProc));

end;

end;

//分割线

下面为从网页转载的web控件bug和解决办法参考

url:http://bbs.51cto.com/thread-656975-1.html

Delphi中WebBrowser控件的bug及解决方案
简介:  Delphi语言,无论是从开发速度、还是运行速度、还是编译速度、还是编译之后的执行文件体积,都是数一数二的。因此被作为共享软件、开发产品、制作“绿色软件”的首选。但是,由于诸多原因,Delphi中,有一些控件,存在一些bu ...
关键字:delphi WebBrowser 控件 Bug 复制 内存 泄漏 javascript close 
  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的解决办法,希望对大家有帮助!

时间: 2024-10-04 07:00:27

<总结>delphi WebBrowser控件的使用中出现的bug的相关文章

Delphi WebBrowser控件的使用(大全 good)

Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application      如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch).如果在宿主对象中自动化对象无效,程序将返回WebBrowser控件的自动化对象2.Parent       返回WebBrowser控件的父自动化对象,通常是一个容器,例如是宿主或IE窗口3.Containe       返回WebBrowser控件容器的自动化对象.通常该值与Pare

delphi WebBrowser控件上网页验证码图片识别教程(一)

步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下:procedure TForm1.BitBtn1Click(Sender: TObject); var I:Integer; begin for I:=0 to WebBrowser1.OleObject.document.images.length-1 do Memo1.Lines.Add(WebBrowser1.OleObj

Delphi中代替WebBrowser控件的第三方控件

原文地址:http://blog.csdn.net/nanfeiyannan/article/details/7341492 这几天,接触到在delphi中内嵌网页,用delphi7自带的TWebBrowser控件,显示的内容与本机IE8显示的不一样,但是跟装IE8之前的IE6显示一个效果.现在赶脚是下面两个原因中的一个: 1.Navigate这个方法用的有点问题,里面的参数不同及Navigate2等不同方法,调用的IE内核版本不同 2.这个自带的控件用着不爽,直接换一个第三方控件 对于第一点,

Delphi中WebBrowser控件打开部分网站报&quot;Invalid floating point operation”解决

Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决 EmbeddedWBWebBrowserDelphi 最近用EmbeddedWB控件做浏览器相关应用的时候,发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常(关掉异常对话框以后,浏览器无响应),而程序仅仅是一句 WebBrowser1.Navigate(Edit1.Text);貌似很多含有Silverlight

浏览器自动化的一些体会2 webBrowser控件之ajax

上个帖子简要讨论了浏览器自动化的几种方法.现在讨论webBrowser控件使用中的一些问题.基本的操作就不详细说了,随便网上找个帖子或找本书都有介绍的.这里只写点网上似乎少有人总结过的内容,以及自己的一些实践体会. 1.ajax 首先,DocumentCompleted事件对于ajax无能为力,因为这个事件不能处理网页加载完成后执行javascript发出ajax请求.网上可以找到的方法,主要有两种,一种是利用onpropertychange事件,随便找了个参考链接:https://social

C# WebBrowser控件使用整理

一.简介 WebBrowser 控件为 WebBrowser ActiveX 控件提供了托管包装. 托管包装使您可以在 Windows 窗体客户端应用程序中显示网页. 使用WebBrowser 控件,可以复制应用程序中的 Internet Explorer Web 浏览功能,还可以禁用默认的 Internet Explorer 功能,并将该控件用作简单的 HTML 文档查看器. 此外,可以使用该控件将基于 DHTML 的用户界面元素添加到窗体中,还可以隐瞒这些元素在 WebBrowser 控件中

C#中的WebBrowser控件的使用

0.常用方法 Navigate(string urlString):浏览urlString表示的网址 Navigate(System.Uri url):浏览url表示的网址 Navigate(string urlString, string targetFrameName, byte[] postData, string additionalHeaders): 浏览urlString表示的网址,并发送postData中的消息 //(通常我们登录一个网站的时候就会把用户名和密码作为postData

C#WebBrowser控件使用教程与技巧收集

常用属性和方法 Navigate(string urlString):浏览urlString表示的网址 Navigate(System.Uri url):浏览url表示的网址 Navigate(string urlString, string targetFrameName, byte[] postData, string additionalHeaders): 浏览urlString表示的网址,并发送postData中的消息//(通常我们登录一个网站的时候就会把用户名和密码作为postData

C#中WebBrowser控件的使用

今天在YouTube上看了一个关于WebBrowser控件用法的小视频,做一下总结. 首先创建一个WinForm程序,拖入一个textbox控件和一个button按钮,然后拖入一个panel控件,如图所示: 拖入panel控件后,找到WebBrowser控件并双击,WebBrowser控件就会自动填充到panel控件上,像下面这样: 之后给button改个名,双击button按钮设置一个简单的跳转行为: private void goButton_Click(object sender, Eve