修改window.external使JS可调用Delphi方法

原文地址:http://hi.baidu.com/rarnu/blog/item/4ec80608022766d663d986ea.html

在JS中,有一个比较特殊的对象,即window.external,用它可以调用浏览器提供的外部方法
一个很简单的例子就是将当前页添加到收藏夹
window.external.addFavorite("http://blog.csdn.net/youthon","弘石的博客');
这样写脚本就可以了。
那么如果我想自己定义external,以便在自己的软件内使用IE核心的浏览器作为UI容器,该如何做呢?
本文即是解决此问题。
一、制作TLB
在File | New | Other 菜单下,选择新建一个Type Library,这个向导在ActiveX页内。
然后按下图所示,新建一个接口,在接口下新建一个DoSearchData方法,这个方法即是将来需要添加到external中的。


完成添加后,点击保存为TLB按钮,将生成一个TLB文件,此处我将它命名为GetData.tlb
二、实现IDocHostUIHandler接口
这部分相对比较简单,从MSDN上找到相关的C++代码,把它转换成Delphi的即可。代码如下:
 unitDocHostUIHandler;

 interface
 uses
 Windows, ActiveX;
 const
 DOCHOSTUIFLAG_DIALOG                     =$00000001;
 DOCHOSTUIFLAG_DISABLE_HELP_MENU          =$00000002;
 DOCHOSTUIFLAG_NO3DBORDER                 =$00000004;
 DOCHOSTUIFLAG_SCROLL_NO                  =$00000008;
 DOCHOSTUIFLAG_DISABLE_SCRIPT_INACTIVE    = $00000010;
 DOCHOSTUIFLAG_OPENNEWWIN                 =$00000020;
 DOCHOSTUIFLAG_DISABLE_OFFSCREEN          =$00000040;
 DOCHOSTUIFLAG_FLAT_SCROLLBAR             =$00000080;
 DOCHOSTUIFLAG_DIV_BLOCKDEFAULT           =$00000100;
 DOCHOSTUIFLAG_ACTIVATE_CLIENTHIT_ONLY    = $00000200;
 DOCHOSTUIFLAG_OVERRIDEBEHAVIORFACTORY    = $00000400;
 DOCHOSTUIFLAG_CODEPAGELINKEDFONTS        =$00000800;
 DOCHOSTUIFLAG_URL_ENCODING_DISABLE_UTF8  = $00001000;
 DOCHOSTUIFLAG_URL_ENCODING_ENABLE_UTF8   = $00002000;
 DOCHOSTUIFLAG_ENABLE_FORMS_AUTOCOMPLETE  = $00004000;
 DOCHOSTUIFLAG_ENABLE_INPLACE_NAVIGATION  = $00010000;
 DOCHOSTUIFLAG_IME_ENABLE_RECONVERSION    = $00020000;
 DOCHOSTUIFLAG_THEME                      =$00040000;
 DOCHOSTUIFLAG_NOTHEME                    =$00080000;
 DOCHOSTUIFLAG_NOPICS                     =$00100000;
 DOCHOSTUIFLAG_NO3DOUTERBORDER            =$00200000;
 DOCHOSTUIFLAG_DISABLE_EDIT_NS_FIXUP  

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章