如何判断webbrowser页面中是否包含有某个字符?(15分)

比如判断webbrowser页面的内容中是否包含有"中国"?
有何较好的方法?

从这儿抄来的,反正就是直接取网页的源码来查找或者调用webbrowser的查找功能
http://eagleboost.myrice.com/issues/Materials/Articles/TWebBrowser.htm
８、直接从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可以得到当前选中的文字内容，某些时候是有用的。

这样只能查到第一个，后面的不能查到，怎样实现将所有的都分别标识出来。

不能所有的都标出来的吧，好象ie也没做到这点啊

这不是我的问题吗？^_^,谢谢你了。
赶快。。。。下去试试。。。。。

IE可以把所有的标是出来。

不是ie吧，是chm文件中才这样

按honghs的方法找到第一个是没有问题的。

uses OleCtrls;
找出第一个代码如下：
function findText(strFind:string):integer;
var
Doc:IHtmlDocument2;
TxtRange:IHtmlTxtRange;
StartPos, ToEnd: integer;
FoundAt: wordbool;
begin
if (Wb1.Document <> nil) and (strFind<>'') then begin
IHTMLWindow2(IHTMLDocument2(Wb1.Document).ParentWindow).focus;
Doc :=Wb1.Document as IHtmlDocument2;
Doc.execCommand('SelectAll',false,EmptyParam);
TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;
TxtRange.FindText(strFind,0,0);
TxtRange.Select;
end;
end;
我是这样做的。
但是我用Wb1.ExecWB(OLECMDID_Find, OLECMDEXECOPT_DONTPROMPTUSER, t,t);调出的是系统查找文件的窗体，不是findDialog，怎样做能调出象IE一样的查找对话框来查找？
谁知道？

欲实现页面查找功能，利用如下代码：
procedure FindinPage;

procedure InvokeCMD(Document:IDispatch;Value1, Value2: Integer; var vaIn, vaOut: OleVariant);
var
CmdTarget: IOleCommandTarget;
PtrGUID: PGUID;
begin
New(PtrGUID);
PtrGUID^ := CLSID_WebBrowser;
if Document <> nil then
try
Document.QueryInterface(IOleCommandTarget, CmdTarget);
if CmdTarget <> nil then
try
CmdTarget.Exec(PtrGuid, Value1, Value2, vaIn, vaOut);
finally
CmdTarget._Release;
end;
except
end;
Dispose(PtrGUID);
end;

var vain,vaoutlevariant;
begin
invokecmd(webbrowser1.Document,HTMLID_FIND,0,vain,vaout);
end;

关注先！～

welkin2000，你程序中的HTMLID_FIND,CLSID_WebBrowser又是什么呢？程序报错，说没有定义。

多人接受答案了。

按honghs的方法找到第一个是没有问题的。

How can I find all? and highlight all?

Or how can I find next with this FindText function?