嵌入式IE浏览器监控程序的实现

　　嵌入式IE浏览器监控程序的实现主要包括监控程序的实现和维护程序的实现两部分，根据程序开发过程，可以将其分为四个步骤，下面分别对各个实现步骤进行详细介绍。

　　1.实现COM对象

　　开发COM对象的任务就是建立一个能够与IE浏览器的MSHTML COM服务器建立连接并且通过接口回调实现控制功能的COM对象，具体实现过程如下:

　　(1)运行Delphi，依次点击File|New|Other，切换到ActiveX页面，选择ActiveX Library，点击OK按钮，即建立一个新的工程。

　　(2) 再次点击File|New|Other，切换到ActiveX页面，选择COM Object，点击OK按钮，即出现如图2所示的COM Object Wizard界面，去掉Included Type Library复选框，在Class Name中输入COM对象的名称IEMonitor，然后点击OK按钮，即新建了一个名称为TIEMonitor的COM对象(该COM对象的CLSID由系统自动生成)(见图2)。

　　(3)将工程和单元文件依次保存为DIEMonitor.dpr和UIEMonitor.pas。切换到UIEMonitor.pas单元文件，编辑TIEMonitor的定义形式如下:

　　TIEMonitor = class(TComObject, IDispatch, IObjectWithSite)
public
　　function GetTypeInfoCount(out Count:Integer):HResult;stdcall;
　　function GetTypeInfo(Index,LocaleID:Integer;out TypeInfo):HResult;stdcall;
　　function GetIDsOfNames(const IID:TGUID;Names:Pointer;
　　　　　　　　　　　　 　NameCount,LocaleID:Integer;DispIDs:Pointer):HResult;stdcall;
　　function SetSite(const pUnkSite:IUnknown):HResult;stdcall;
　　function GetSite(const riid:TIID;out site:IUnknown):HResult;stdcall;
　　function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
　　Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
private
　　IEThis:IWebBrowser2;
　　Cookie:Integer;
　protected
end;