Delphi中WebBbrowser应用

具体就是：先检查WebBrowser.Document对象是否有效，无效则退出；然后取得IPersistStreamInit接口，接着取得HTML源码的大小，分配全局堆内存块，建立流，再将HTML文本写到流中。程序虽然不算复杂，但是有更简单的方法，所以实现代码不再给出。其实基本上所有IE的功能TWebBrowser都应该有较为简单的方法来实现，获取网页源码也是一样。下面的代码将网页源码显示在Memo1中。 　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml); 　　同时，在用TWebBrowser浏览HTML文件的时候要将其保存为文本文件就很简单了，不需要任何的语法解析工具，因为TWebBrowser也完成了，如下： 　　　Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText); • “查找”功能 　　查找对话框可以在文档获得焦点的时候通过按键Ctrl-F来调出，程序中则调用IOleCommandTarget对象的成员函数Exec执行OLECMDID_FIND操作来调用，下面给出的方法是如何在程序中用代码来做出文字选择，即你可以自己设计查找对话框。 　　　var 　　　　Doc: IHtmlDocument2; 　　　　TxtRange: IHtmlTxtRange; 　　　begin 　　　　Doc :=WebBrowser1.Document as IHtmlDocument2; 　　　　Doc.SelectAll;　　　　//此处为简写，选择全部文档的方法请参见第三条命令操作 　　　　　　　　　　　　　　　　//这句话尤为重要，因为IHtmlTxtRange对象的方法能够操作的前提是 　　　　　　　　　　　　　　　　//Document已经有一个文字选择区域。由于接着执行下面的语句，所以不会 　　　　　　　　　　　　　　　　//看到文档全选的过程。 　　　　TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange; 　　　　TxtRange.FindText(‘Text to be searched‘,0.0); 　　　　TxtRange.Select; 　　　end; 　　还有，从Txt.Get_text可以得到当前选中的文字内容，某些时候是有用的。 • 提取网页中所有链接 　　这个方法来自大富翁论坛hopfield朋友的对一个问题的回答，我本想自己试验，但总是没成功。 　　var 　　　doc:IHTMLDocument2; 　　　all:IHTMLElementCollection; 　　　len,i:integer; 　　　item:OleVariant; 　　begin 　　　doc:=WebBrowser1 .Document as IHTMLDocument2; 　　　all:=doc.Get_links;　　　　　　　　　　　　　//doc.Links亦可 　　　len:=all.length; 　　　for i:=0 to len-1 do begin 　　　　item:=all.item(i,varempty);　　　　　　　　//EmpryParam亦可 　　　　memo1.lines.add(item.href); 　　　end; 　　end; • 设置TWebBrowser的编码 　　为什么我总是错过很多机会？其实早就该想到的，但是一念之差，便即天壤之别。当时我要是肯再多考虑一下，多试验一下，这就不会排到第１１条了。下面给出一个函数，搞定，难以想象的简单。 　　procedure SetCharSet(AWebBrowser: TWebBrowser; ACharSet: String); 　　var 　　　RefreshLevel: OleVariant; 　　Begin 　　　IHTMLDocument2(AWebBrowser.Document).Set_CharSet(ACharSet); 　　　RefreshLevel :=7;　　　　　　　　　　　　　　//这个7应该从注册表来，帮助有Bug。 　　　AWebBrowser.Refresh2(RefreshLevel); 　　End; • 在TWebBrowser中输入字符时激活菜单的解决 　　许多朋友编程的时候都遇到了这样一个问题，在TWebBrowser中输入时，键入的字符如果与菜单（用ToolBar做的菜单）的加速键相同就会激活菜单。有朋友解决办法是把加速键前面的“&”符号去掉，使得字符失去“加速”功能，这种方法未尝不可，只不过显得不够“专业”。其实略加分析我们就可以想