直接访问WebBrowser控件中的HTML源码 (收藏)

文章 专栏收录该内容
26 篇文章 0 订阅

直接访问WebBrowser控件中的HTML源码
作者:  评价:  上站日期: 2002-05-22 
内容说明: 
来源: 

--------------------------------------------------------------------------------

html
webbrowser.OleObject.document.documentelement.innerhtml;
Text
webbrowser.OleObject.document.documentelement.innerText;
********************
为了实现在自己的程序中显示HTML文档,我们一般采用IE(Internet Explorer本文中简称为IE)发行时附带的一个ActiveX控件TWebBrowser。

这个控件使用和IE相同的内核,功能强大,并从Delphi5开始,正式得到Inprise公司的支持,取代了原来的那个THTML控件,成为Delphi中显

示HTML文档的首选控件。
但是在实际编程过程中,我发现这个控件提供的功能有很多限制,比如对HTML文档的浏览,只能通过指定URL或文件名来实现,不能像以往使

用THTML控件那样直接读写HTML源码。因此如果程序动态生成了一段HTML文本,就必须把文本内容先写到一个临时文件,然后再将此文件的文

件名传递给WebBrowser控件,实现显示。走这一个弯路使程序响应速度受到很大影响,而且容易遗留下一些"垃圾"(临时文件)。
---- 在考察了一些使用了WebBrowser控件的程序后,我发现大部分程序,如著名国产软件FoxMail,都是使用的通过临时文件传递HTML文档的

方法;但一些国外的软件,如MS自己的OutLook Express则不存在这个问题,而因为其无需产生临时文件,因此对HTML文档的显示速度明显超

过Foxmail。
---- 为此,我查阅了一些相关资料,最后在网友的帮助下找到了实现直接访问WebBrowser控件中的HTML源码的方法。在此要特别感谢白云黄

鹤BBS(bbs.whnet.edu.cn)上的网友AngleFalls提供线索。
---- 其实,WebBrowser控件中的Document对象,这个对象提供了一个IPersistStreamInit接口,通过此接口,我们可以方便地实现对HTML源

码的读写。
---- 以下是IPersistStreamInit接口的相关定义及说明:
                      { IPersistStream interface }
                      {$EXTERNALSYM IPersistStream}
                      IPersistStream = interface(IPersist)
                      ['{00000109-0000-0000-C000-000000000046}']
                      function IsDirty: HResult; stdcall;   
                      // 最后一次存盘后是否被修改
                      function Load(const stm: IStream): HResult; stdcall;
                      // 从流中载入
                      function Save(const stm: IStream;
                      fClearDirty: BOOL): HResult; stdcall;
                      // 保存到流
                      function GetSizeMax(out cbSize: Largeint):
                      HResult; stdcall; // 取得保存所需空间大小
                      end;

                      { IPersistStreamInit interface }

                      {$EXTERNALSYM IPersistStreamInit}
                      IPersistStreamInit = interface(IPersistStream)

                      ['{7FD52380-4E07-101B-AE2D-08002B2EC713}']
                      function InitNew: HResult; stdcall; // 初始化
                      end;

                      首先来实现写,因为这是最迫切的要求:
                      procedure SetHtml(const WebBrowser:
                      TWebBrowser; const Html: string);
                      var
                      Stream: IStream;
                      hHTMLText: HGLOBAL;
                      psi: IPersistStreamInit;
                      begin
                      if not Assigned(WebBrowser.Document) then Exit;


                      hHTMLText := GlobalAlloc(GPTR, Length(Html) + 1);
                      if 0 = hHTMLText then RaiseLastWin32Error;

                      CopyMemory(Pointer(hHTMLText),
                      PChar(Html), Length(Html));

                      OleCheck(CreateStreamOnHGlobal
                      (hHTMLText, True, Stream));
                      try
                      OleCheck(WebBrowser.Document.
                      QueryInterface(IPersistStreamInit, psi));
                      try
                      OleCheck(psi.InitNew);
                      OleCheck(psi.Load(Stream));
                      finally
                      psi := nil;
                      end;
                      finally
                      Stream := nil;
                      end;
                      end;
---- 首先,此过程需要的两个参数,WebBrowser是显示目的控件,Html是需要显示的HTML源码;然后,先检查WebBrowser.Document对象是否

有效,无效则退出;接着在系统全局堆里分配一块内存,将需要显示的HTML源码复制进去。这是因为下一步需要建立一个WebBrowser控件可以

读取的流。GlobalAlloc函数的参数GPTR表示需要分配一块固定的以0初始化过的内存区域,如果分配失败则返回0,则通过

RaiseLastWin32Error函数引发一个异常,提示用户;然后用CreateStreamOn
HGlobal函数建立一个基于全局堆内存块的流,第二个参数如果为True则流在释放时自动释放所占全局堆内存。如果 建立成功则此流和刚刚建

立的内存块共用同一块内存区域。接着用WebBrowser.Document.QueryInterface函数建立一个IPersistStreamInit接口。然后              

       就可以直接使用此接口,psi.InitNew初始化状态;psi.Load(Stream)从流中载入HTML源码。
---- 至此,以Html参数指定的HTML源码就在WebBrowser参数指定的控件中显示出来。
---- 值得注意的是,每个关于COM接口的函数调用,也就是那些返回类型为HResult的函数,都必须以OleCheck包装,因为一个不检查返回状

态的COM接口操作实在太危险了;此外接口的释放,虽然Delphi可以在后台自动完成,但作为一个好的编程习惯,还是应该显式地手工释放,

释放只需将接口设为nil即可。
---- 接着来实现HTML源码的读:
function GetHtml(const WebBrowser: TWebBrowser): string;
const
  BufSize = $10000;
var
  Size: Int64;
  Stream: IStream;
  hHTMLText: HGLOBAL;
  psi: IPersistStreamInit;
begin
  if not Assigned(WebBrowser.Document) then Exit;
  OleCheck(WebBrowser.Document.QueryInterface (IPersistStreamInit, psi));
  try
  //OleCheck(psi.GetSizeMax(Size));
  hHTMLText := GlobalAlloc(GPTR, BufSize);
  if 0 = hHTMLText then RaiseLastWin32Error;
  OleCheck(CreateStreamOnHGlobal(hHTMLText, True, Stream));
  try
    OleCheck(psi.Save(Stream, False));
    Size := StrLen(PChar(hHTMLText));
    SetLength(Result, Size);
    CopyMemory(PChar(Result), Pointer(hHTMLText), Size);
  finally
    Stream := nil;
  end;
  finally
  psi := nil;
  end;
  end;
---- 此函数有一个参数WebBrowser指定从那个控件读取HTML源码,返回一个字符串为此控件中的HTML源码。首先还是要先检查

WebBrowser.Document对象是否有效,无效则退出;然后取得IPersistStreamInit接口;接着取得HTML源码的大小:本来应该使用

IPersistStreamInit接口的GetSizeMax函数,但在我的机器上测试,这个函数范围值衡为0,无效。因此只能先定义一个足够大的缓冲区,如

BufSize = $10000字节(注意此缓冲区应该足够大);然后同样地分配全局堆内存块,建立流,然后将HTML文本写到流中。因为此HTML文本在流

中是以#0结尾的字符串,因此可以用Size := StrLen(PChar(hHTMLText))取得实际长度,用SetLength(Result, Size);设置返回字符串长度为

HTML源码实际长度,最后复制字符串到返回字符串中。
---- 至此,直接访问WebBrowser控件中的HTML源码所需的两个函数全部解析完毕。
---- 不过需要注意的时,在使用这两个函数前,最好对WebBrowser.Document对象进行初始化。下面提供一个函数,通过显示一个空白页面实

现WebBrowser.Document对象 初始化。
procedure ShowBlankPage(WebBrowser: TWebBrowser);
var
URL: OleVariant;
begin
URL := 'about:blank';
WebBrowser.Navigate2(URL);
end;
---- 建议在你有WebBrowser控件的Form的FormCreate事
件里调用此函数,初始化
WebBrowser.Document对象。
---- 本文程序在Win NT + Delphi 5 环境下调试通过 
 
 WebBrowser类和WebBrowser_V1类的区别

 

编号:QA002749
建立日期: 2000年3月20日 最后修改日期:2000年3月20日
所属类别:

Visual Basic - Web浏览器

 xyjun:
    操作系统: win98
    编程工具: VB6.0
    问题: 请问在vb对象浏览器中的WebBrowser类和WebBrowser_V1类的区别。
    我在窗体中插入了一个WebBrowser控件,但是只有newWindow2事件,而没有newWindow事件,请问如何用newwindow事件将网页上打开的新

网页在同一窗口显示(禁止开新窗口)?以及事件newWindow2与newWindow的区别?

回答:

    WebBrowser_V1是IE3的类,而IE4以后版本使用WebBrowser类。
    如果你希望新打开的网页出现在同一个窗口,可以这样做:
    Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
     Set ppDisp = WebBrowser1.Object
    End Sub
    事件NewWindow2与newWindow的区别有较大区别,使用事件NewWindow你可以知道点击的链接是什么,而使用事件NewWindow2无法知道。而

NewWindow只有在用户选择“在新窗口打开链接”时才会激发,而NewWindow2除了在此时激发外,当网页使用window.open打开新窗口时也激发

。上面的工作也可以使用NewWindow实现:
    Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
    
    Private Sub Form_Load()
     Set Web_V1 = WebBrowser1.Object
     WebBrowser1.Navigate2 "http://askpro.yeah.net"
    End Sub
    
    Private Sub Web_V1_NewWindow(ByVal URL As String, _
     ByVal Flags As Long, _
     ByVal TargetFrameName As String, _
     PostData As Variant, _
     ByVal Headers As String, _
     Processed As Boolean)
     Processed = True
     WebBrowser1.Navigate URL
    End Sub

 

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
程序员必经之路! 【限时优惠】 现在下单,还享四重好礼: 1、教学课件免费下载 2、课程案例代码免费下载 3、专属VIP学员群免费答疑 4、下单还送800元编程大礼包 【超实用课程内容】  根据《2019-2020年国开发者调查报告》显示,超83%开发者都在使用MySQL数据库。使用量大同时,掌握MySQL早已是运维、DBA必备技能,甚至部分IT开发岗位也要求对数据库使用和原理有深入了解和掌握。 学习编程,你可能会犹豫选择 C++ 还是 Java;入门数据科学,你可能会纠结于选择 Python 还是 R;但无论如何, MySQL 都是 IT 从业人员不可或缺技能!   套餐一共包含2门MySQL数据库必学核心课程(共98课时)   课程1:《MySQL数据库从入门到实战应用》   课程2:《高性能MySQL实战课》   【哪些人适合学习这门课程?】  1)平时只接触了语言基础,并未学习任何数据库知识人;  2)对MySQL掌握程度薄弱人,课程可以让你更好发挥MySQL最佳性能; 3)想修炼更好MySQL内功,工作遇到高并发场景可以游刃有余; 4)被面试官打破沙锅问到底问题问到怀疑人生应聘者。 【课程主要讲哪些内容?】 课程一:《MySQL数据库从入门到实战应用》 主要从基础篇,SQL语言篇、MySQL进阶篇三个角度展开讲解,帮助大家更加高效管理MySQL数据库。 课程二:《高性能MySQL实战课》主要从高可用篇、MySQL8.0新特性篇,性能优化篇,面试篇四个角度展开讲解,帮助大家发挥MySQL最佳性能优化方法,掌握如何处理海量业务数据和高并发请求 【你能收获到什么?】  1.基础再提高,针对MySQL核心知识点学透,用对; 2.能力再提高,日常工作代码换新貌,不怕问题; 3.面试再加分,巴不得面试官打破沙锅问到底,竞争力MAX。 【课程如何观看?】  1、登录CSDN学院 APP 在我课程进行学习; 2、移动端:CSDN 学院APP(注意不是CSDN APP哦)  本课程为录播课,课程永久有效观看时长 【资料开放】 课件、课程案例代码完全开放给你,你可以根据所学知识,自行修改、优化。  下载方式:电脑登录课程观看页面,点击右侧课件,可进行课程资料打包下载。
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值