首页 > 代码库 > Delphi中代替WebBrowser控件的第三方控件

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

原文地址:http://blog.csdn.net/nanfeiyannan/article/details/7341492

这几天,接触到在delphi中内嵌网页,用delphi7自带的TWebBrowser控件,显示的内容与本机IE8显示的不一样,但是跟装IE8之前的IE6显示一个效果。现在赶脚是下面两个原因中的一个:

1.Navigate这个方法用的有点问题,里面的参数不同及Navigate2等不同方法,调用的IE内核版本不同

2.这个自带的控件用着不爽,直接换一个第三方控件

对于第一点,找了半天冒发现什么,赶紧转换思路,于是找到了EmbeddedWB这个第三方控件。。。

下载址:http://www.delphifans.com/SoftView/SoftView_2705.html或http://d.download.csdn.net/detail/randb/631380
delphi7中安装方法:
http://salomi.blog.51cto.com/389282/125954
另附几个我为了解决这个问题赶脚有用的网址:
Delphi第三方控件EmbeddedWB的使用方法:
http://hi.baidu.com/cyrist/blog/item/e8782ea4c64919ec9052eedc.html
一个具有参考价值的帖子:
http://topic.csdn.net/u/20120310/12/32b22ac0-8e5f-4f9f-9083-b8c7aaa52380.html?seed=587680286&r=77849641#r_77849641
如何用Delphi调用IE打开网页:http://blog.csdn.net/mrwu9902/article/details/4954555
关于调用其他浏览器内核的控件(我安装了使用火狐内核的Mozilla ActiveX控件,但是代码调用的时候,报错了,没怎么管了,有兴趣的同仁可以研究下):

http://topic.csdn.net/u/20090527/09/58387179-3fe8-49d7-9d95-9d9c00767e65.html

http://topic.csdn.net/u/20120215/17/8501dc38-742e-47cb-bad1-35ef2a7bd0cc.html
http://delphi.about.com/b/2005/01/15/using-firefox-instead-of-twebbrowser-in-delphi-applications.htm
http://www.paranoia.clara.net/articles/taming_the_lizard_with_delphi.html
http://www.adamlock.com/mozilla/
做了这些功课,希望该问题下周一能够顺利解决。。。。。。
//////////////////////////////////////2012.03.25更新一下//////////////////////////////////////////////////////////
最近一段时间没时间关注这个问题了,不晓得那个网页是里面用了脚本的原因还是其他什么原因,唉,反正是结果目前还没得到我想要的
1.EmbeddedWB与TWebBrowser实现效果一样,跟IE8效果不一样,有一种说法是“这两个控件调用的不是本机的IE内核,在delphi7中而是调用的IE6内核”。。。自己目前还不清楚。。。
2.谷歌控件Delphi Chromium Embedded:http://code.google.com/p/delphichromiumembedded/
这个装好了以后,要把exe的输出路径设置到DEF/win32/bin,如果修改源代码,貌似是可以不用总是把生成的exe放那个目录的,没实现我想要的效果,就没研究这个问题了。。。
这个用了之后,打开那个网页的时候,半天没反应,窗口好像死在那了。。。有哪位高手看到这,知道原因的,还请留言指点几句。。。
3.还有GeckoBrowser for Delphi这个控件,还没研究出来怎么用这玩意。。。
4.这一种自己可以改变下IE浏览器窗口的显示
  1. procedure OpenInIE(aURL: string);  
  2.     var IE: Variant;  
  3. begin  
  4.     IE := CreateOleObject(‘InternetExplorer.Application‘);  
  5.   
  6.     IE.Visible := true//可见  
  7.     IE.left := 0;  
  8.     IE.top := 0;  
  9.     IE.height := 1050//高度  
  10.     IE.width := 1680//宽度  
  11.     IE.menubar := 0//取消菜单栏  
  12.     IE.addressbar := 0//取消地址栏  
  13.     IE.toolbar := 0//取消工具栏  
  14.     IE.statusbar := 0//取消状态栏  
  15.     IE.resizable := 0//不允许用户改变窗口大小  
  16.     IE.Navigate(aURL);  
  17. end;  
5.
 
  1. procedure TForm1.Button2Click(Sender: TObject);  
  2. begin  
  3.   ShellExecute(Handle, ‘open‘‘IExplore.EXE‘‘http://www.baidu.com‘nil, SW_SHOWNORMAL);  
  4. end;  

6.
  1. procedure TIEShowFrm.FormCreate(Sender: TObject);  
  2. var  
  3.   Flags: OLEVariant;  
  4. begin  
  5.   //WebBrowser1.Navigate(WideString(‘http://www.baidu.com‘), Flags, Flags, Flags, Flags);  
  6.   WebBrowser1.Navigate(‘http://www.baidu.com‘);  
  7. end;  

PS:如果再有什么突破了,就再来补充吧。。。