监控WebBrowser的内容是否发生改变

转自：点击打开链接

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事件中，就可以了！