监控WebBrowser的内容是否发生改变(转)
转自http://blog.sina.com.cn/s/blog_4b3906920100mqt0.html WebBrowser本身没有提供内容发生改变的事件，需要我们自己去实现。下面是delphi下的实现方法。 首先我们需要实现一个接口：IHTMLChangeSink。
在delphi的MSHTML单元里，delphi已经为我们声明了该接口，如下： IHTMLChangeSink = interface(IUnknown) ['{3050F64A-98B5-11CF-BB82-00AA00BDCE0B}'] function Notify: HResult;
stdcall;
end;
该接口很简单，只有一个方法：Notify.WebBrowser内容的改变就是通过该方法来告诉我们的，即当 WebBrowser的内容发生改变后，WebBrowser会调用该方法。
下面实现IHTMLChageSink接口： const WMContentChanged=WM_USER+66;
type TNwHtmlDocumentNotify=class(TInterfacedObject,IHTMLChangeSink) private FHandle:THandle;
function Notify: HResult;
stdcall;
constructor create(ProcessHandle:THandle);
end;
上面的WMContentChanged会在实现中用到，请注意。 { TNwHtmlDocumentNotify }
constructor TNwHtmlDocumentNotify.create(ProcessHandle: THandle);
begin FHandle:=ProcessHandle;
end;
function TNwHtmlDocumentNotify.Notify: HResult;
begin SendMessage(FHandle,WMContentChanged,0,0);
Result:=S_OK;
end;
说明：构造函数中的ProcessHandle是要处理消息WMContentChanged的窗口句柄。 当WebBrowser内容发生改变时，我们就给窗口发送一个消息。让窗口去处理它。
下面看如何用： procedure TMsgWriteForm.AddModifyNotify;
var MakeContainer2:IMarkupContainer2;
Doc:IHTMLDocument2;
ChangeSkin:IHTMLChangeSink;
ChangeLog:IHTMLChangeLog;
Cokie:Cardinal;
begin DOC:=FDoc;
if FDoc=nil then DOc:=(wb1.Document as IHTMLDocument2);
if Doc=nil then Exit;
Doc.QueryInterface(IMarkupContainer2,MakeContainer2);
ChangeSkin:=TNwHtmlDocumentNotify.create(self.Handle);
MakeContainer2.CreateChangeLog(ChangeSkin,ChangeLog,1,1);
//后面两个数中，至少要有一个为大于0的数 MakeContainer2.RegisterForDirtyRange(ChangeSkin,Cokie);
//如果没有这句，将不会调用Notify函数 end;
将AddModifyNotify放在WebBrowser的DocumentComplete事件中，就可以了！
（注：这个是我的原创，转载请注意出处。谢谢！）
推荐阅读
- 热闹中的孤独
- JAVA（抽象类与接口的区别&重载与重写&内存泄漏）
- 放屁有这三个特征的，请注意啦！这说明你的身体毒素太多
- 一个人的旅行，三亚
- 布丽吉特，人生绝对的赢家
- 慢慢的美丽
- 尽力
- 一个小故事，我的思考。
- 家乡的那条小河
- 《真与假的困惑》???|《真与假的困惑》??? ——致良知是一种伟大的力量