自动填表IE面板插件.docVIP

自动填表的IE面板插件 发表: HYPERLINK /profile.asp?name=bwjj bwjj?? 阅读:次??关键字：IE 插件?? 字体:[ HYPERLINK javascript:FontZoom(16) 大? HYPERLINK javascript:FontZoom(14) 中? HYPERLINK javascript:FontZoom(12) 小] 简介 IE的面板实际就是嵌入到IE浏览器中的子窗体。面板有两种显示模式，一种是垂直显示在浏览器的左侧，一种是水平显示在浏览器的下方。IE浏览器内置提供了很多的标准面板，如收藏夹和搜索面板这些是垂直的面板，而每日提示和讨论面板则是水平的面板。 ? 此外我们还可以通过实现COM组件来添加我们自己的浏览器面板到IE中。当我们的面板COM组件注册后，它会被添加到浏览器的查看菜单的浏览器栏的子菜单下。当用户选中该菜单项后，该面板就会显示在浏览器中。 实现面板COM组件 ??? 接下来我们将实现类似于IE内置的收藏夹的一个面板，不过它不是用来收藏网址的，而是用来运行程序的。下面是它的示意图： 同所有的COM组件一样,面板组件首先要实现IUnknown 和IClassFactory接口，不过Borland提供了TComObject类，这个类已经实现了前面两个接口，我们因此就不需要再重造轮子了，只要从TComObject类继承就可以了。 首先选择菜单File | New | ActiveX | Com Object命令，创建一个TDelphiBand的COM组件框架 然后我们就需要实现IDeskBand，IObjectWithSite和IPersistStreamInit或者IPersistStream接口了。其中IPersistStreamInit和IPersistStream接口可以用来保存面板的各种状态和信息,IPersistStreamInit和IPersistStream接口相比就是多了一个InitNew的方法，这个方法可以用来初始化面板组件的状态。在本文中，由于不涉及信息的保存，因此这个接口的方法的实现大部分都是直接返回E_NOTIMPL表示该方法没有被实现。除了GetClassID方法，当系统调用这个方法的时候，我们需要返回COM组件的GUID标识符。 function?TDelphiBand.GetClassID(out?classID: TCLSID): HResult; begin ? classID := CLSID_DelphiBand; ? Result := S_OK; end; IObjectWithSite接口，顾名思义这个接口就是一个嵌入在COM容器中的组件需要实现的接口，当用户选中一个浏览器面板的时候，IE这个COM容器会调用面板组件的IObjectWithSite的SetSite方法，这个方法传递过来的punkSite参数就是COM容器的IUnknown接口，通过这个接口我们可以获得IE提供的各个COM接口，进而可以调用IE提供的所有功能。这个方法的一般实现是： 1、? 如果方法传过来的punkSite参数为nil，表示面板组件正在被隐藏释放。这时方法的返回结果必须为S_OK。 2、? 如果punkSite参数不为nil，则通过punkSite获得我们所需要的COM接口(如IE的IWebBrowser接口)，并将其保存起来。 下面是SetSite方法的实现代码： function?TDelphiBand.SetSite(const pUnkSite: IUnknown): HResult; begin ??if?Assigned(pUnkSite)?then?begin //获得IInputObjectSite接口，并保存起来，后面会用它通知浏览器 //面板焦点的变化情况 ??? Site := pUnkSite?as?IInputObjectSite; //通过调用GetWindow来获得父窗体的句柄，并保存 (pUnkSite?as?IOleWindow).GetWindow(ParentWnd); //获得IE的IWebBrowser2接口 (Site?as?IServiceProvider).QueryService(IWebbrowserApp, IWebbrowser2, IE); ? end; ? Result := S_OK; end; ? IObjectWithSite还有一个GetSite方法也需要实现，方法的定义如下： function GetSite(const riid: TIID; out site: IUnknown): HResult; stdcall; 其中我们需要返回在SetSite方法中保存的