如何对WebBrowser进行读写?

假如我要浏览一个html文件源码如下:
<html>
<head>
<title>示例</title>
</head>
<body>
你好.
</body>
</html>
如何用流或内存进行读入WebBrowser,然后再在这个html源码中''你好'后加入一个表格或一行内容,再用WebBrowser显示出来?

解决方案 »

  1.   

    ihtmldocument2 接口 
      

  2.   

    From delphibbs
    １、初始化和终止化（Initialization & Finalization） 　　大家在执行TWebBrowser的某个方法以进行期望的操作，如ExecWB等的时候可能都碰到过“试图激活未注册的丢失目标”或“OLE对象未注册”等错误，或者并没有出错但是得不到希望的结果，比如不能将选中的网页内容复制到剪贴板等。以前用它编程的时候，我发现ExecWB有时侯起作用但有时侯又不行，在Delphi生成的缺省工程主窗口上加入TWebBrowser，运行时并不会出现“OLE对象未注册”的错误。同样是一个偶然的机会，我才知道OLE对象需要初始化和终止化（懂得的东东实在太少了）。 
    　　我用我的前一篇文章《Delphi程序窗口动画&正常排列平铺的解决》所说的方法编程，运行时出了上面所说的错误，我便猜想应该有OleInitialize之类的语句，于是，找到并加上了下面几句话，终于搞定！究其原因，我想大概是由于TWebBrowser是一个嵌入的OLE对象而不算是用Delphi编写的VCL吧。 　　initialization 
    　　　OleInitialize(nil); 
    　　finalization 
    　　　try 
    　　　　OleUninitialize; 
    　　　except 
    　　　end; 　　这几句话放在主窗口所有语句之后，“end.”之前。 -------------------------------------------------------------------------------------------------------- ２、EmptyParam 　　在Delphi 5中TWebBrowser的Navigate方法被多次重载： 　　procedure Navigate(const URL: WideString); overload; 
    　　procedure Navigate(const URL: WideString; var Flags: OleVariant); overload; 
    　　procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: 　　　　OleVariant); overload; 
    　　procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: 　　　　OleVariant; var PostData: OleVariant); overload; 
    　　procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: 　　　　OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload; 　　而在实际应用中，使用后几种方法调用时，由于我们很少用到后面几个参数，但函数声明又要求是变量参数，一般的做法如下： 　　var 
    　　　t:OleVariant; 
    　　begin 
    　　　webbrowser1.Navigate(edit1.text,t,t,t,t); 
    　　end; 　　需要定义变量t（还有很多地方要用到它），很麻烦。其实我们可以用EmptyParam来代替（EmptyParam是一个公用的Variant空变量，不要对它赋值），只需一句话就可以了： 　　webbrowser1.Navigate(edit1.text,EmptyParam,EmptyParam,EmptyParam,EmptyParam); 　　虽然长一点，但比每次都定义变量方便得多。当然，也可以使用第一种方式。 　　webbrowser1.Navigate(edit1.text) -------------------------------------------------------------------------------------------------------- 
      

  3.   


    ８、直接从TWebBrowser得到网页源码及Html 　　下面先介绍一种极其简单的得到TWebBrowser正在访问的网页源码的方法。一般方法是利用TWebBrowser控件中的Document对象提供的IPersistStreamInit接口来实现，具体就是：先检查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; === Copyright(C) All Rights Reserved·EoC Software 2000·深圳 === 
    感谢多来米中文网提供无限个人主页空间 
     
    tonyoa (2004-02-03 22:56:00)  
    上面的功能非常齐全，但
     
    我需要的是设置网页上所选内容的字体及超链接？？？？ 
     
    qince (2004-02-03 23:02:00)  
    ４、字体大小 　　类似“字体”菜单上的从“最大”到“最小”五项（对应整数0～4，Largest等假设为五个菜单项的名字，Tag 属性分别设为0～4）。 
    　　　A、读取当前页面字体大小。 
    　　　　　var 
    　　　　　　t: OleVariant; 
    　　　　　Begin 
    　　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 
    　　　　　　　EmptyParam,t); 
    　　　　　　case t of 
    　　　　　　4: Largest.Checked :=true; 
    　　　　　　3: Larger.Checked :=true; 
    　　　　　　2: Middle.Checked :=true; 
    　　　　　　1: Small.Checked :=true; 
    　　　　　　0: Smallest.Checked :=true; 
    　　　　　　end; 
    　　　　　end; 
    　　　B、设置页面字体大小。 
    　　　　　Largest.Checked :=false; 
    　　　　　Larger.Checked :=false; 
    　　　　　Middle.Checked :=false; 
    　　　　　Small.Checked :=false; 
    　　　　　Smallest.Checked :=false; 
    　　　　　TMenuItem(Sender).Checked :=true; 
    　　　　　t :=TMenuItem(Sender).Tag; 
    　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 
    　　　　　　t,t);
      

  4.   

    楼上贴出来的应该网上介绍得比较全的资料之一.如果楼主想更深一些把握..可以从两种途径配合着入手学习WEBBROWSER所使用的文档对象模型.
    其一,JAVASCRIPT的学习.
    其二,DELPHI自带的MSHTML单元.这需要多少有些COM基本知识.