foxpro 程序自动注册ActiveX控件

由于各种开发工具的局限性,我们在进行程序设计时,很多功能的实现不能在一个开发环境里完成。如果我们使用另一种语言来实现,则会更 加方便、快捷,即使用可以跨平台的 ActiveX 控件(*.ocx、*.dll)。今天就请猎狐者俱乐部的黄昱先生为大家谈谈“注册ActiveX 控件”的话题,大家欢迎!黄先生请!!(黄先生在嘉宾席就坐)。

谢谢卧龙传说!谢谢《中国电脑教育报》的读者朋友们!

使用 ActiveX 控件可快速实现小型的组件重用、代码共享,从而提高编程效率,降低开发成本。但是ActiveX控件对于最终用户并不能直接使用,因为 ActiveX 控件必须先在 Windows 中注册。注册ActiveX 控件一般来说有六种途径,它们有各自的优点,运用范围也不同。

Regsvr32.exe 注册
Regsvr32.exe 位于Windows目录的system子目录下。点击 Windows 的“开始→运行”菜单,在对话框中输入以下命令:
regsvr32 netshare.ocx && 注册 netshare.ocx 控件
regsvr32 /u netshare.ocx && 解除 netshare.ocx 控件的注册
如果 netshare.ocx 文件不在system目录时,还必须在文件名前加上完整的路径。
除了regsvr32 应用程序之外,Microsoft 在它的Web站点上还提供了一个称为 regclean.exe的程序,可以检查注册表并去掉丢失的组件在注册表中的条目。regclean.exe 除了可以删除“悬挂”的条目,它还提供一个“undo”文件帮助恢复错误的删除。
卧龙传说提醒:用 regsvr32.exe注册 ActiveX 控件虽然简单,但需要用户手工进行注册,在不用时还需手工解除注册。
VFP 环境注册
在我们进行程序设计时,VFP 本身提供一个注册ActiveX 控件的方法。
进入 VFP 环境,选择“工具→选项”菜单,点击“控件”页,选中“ActiveX 控件”单选按钮,在列表框里显示所有已经注册的 ActiveX 控件,这时,点击右边的“添加”按钮,选择需要注册的 ActiveX 控件文件,“确定”后完成注册。也可以在表单设计器的表单控件工具栏里拖动“OLE”按钮到表单,在弹出的选择框里选中“插入控件”单选钮,同样点击右边 的“添加控件”按钮,来完成新控件的注册。

卧龙传说提醒:本方法仅适合程序员在设计程序过程中手工进行,对用户而言,并没有实现在本地机上自动注册。

安装程序注册
大型应用软件一般都有一个安装程序,在安装程序中解决 ActiveX 控件的注册是较为理想的一种方案。
在用户执行安装程序时,这些 ActiveX 控件将自动在用户机器上安装并注册。
VFP7.0光盘所带的 InstallShield 是目前较为流行的制作安装程序的工具,使用它可以制作出专业级的Setup安装程序,还可以注册应用程序使用到的 ActiveX 控件。而且,在以后使用控制面板的“添加/删除程序”卸载该软件时,安装程序会自动注销掉以前注册的 ActiveX 控件。

加入代码注册
首先,定义一个注册控件的函数:
Function MyRegsvr ( lpcRegFilename, lplIsreg )
If File(lpcRegFilename)
lpcRegFilename = iif(llisreg, lpcRegFilename, [ /u ] + lpcRegFilename)
Run /n regsvr32 &&lpcRegFilename
Endif
Return
Endfunc
然后就可以通过以下语句来调用该函数,并完成 ActiveX 控件的注册了(卧龙传说提醒:
一定要注意控件文件的路径哦)。
= MyRegsvr( “netshare.ocx”, .T.) && 注册 netshare.ocx 控件
= MyRegsvr( “netshare.ocx”, .F.) && 解除 netshare.ocx 控件的注册
注册函数注册
上面提到运行 regsvr32.exe 应用程序将弹出注册是否成功的对话框,注意看内容
“DllRegisterServer in netshare.ocx succeeded”或“UnDllregisterServer…”,
其实,通常每个可用的ActiveX控件都有DllRegisterServer、UnDllregisterServer这两个自注册函数包含在其中,我们可以用定义 API 函数的方法(Declare <函数名> in <文件名> … )来定义它,然后直接使用该函数来进行注册和反注册。

同样,我们先自定义一个注册函数
(卧龙传说提醒:请注意DllRegisterServer、UnDllregisterServer的大小写):
Function DllRegister (lpLibFileName,isReg)
isReg = iif(type(“isReg”)=”U”, .T., isReg)
lpProcName = iif(isReg, “DllRegisterServer”, “DllUnregisterServer” )
Declare INTEGER (lpProcName) in (lpLibFileName)
return &&lpProcName.()
Endfunc
然后,就可以通过该函数来完成 ActiveX 控件的注册了。
= DllRegister( “netshare.ocx”, .T.) && 注册,返回 0 表示成功
= DllRegister( “netshare.ocx”, .F.) && 注销,返回 0 表示成功
Clear Dlls
试试,是不是没有了弹出框的烦恼!
卧龙传说提醒:该方法没有对 ActiveX 控件文件的验证,假如该控件没有有效的
DllRegisterServer 功能(即不具有自注册功能),也就找不到以上的两个 API 函数,照样会有错误信息弹出。

API 函数注册
此方法的设计思路是:先将 ActiveX控件载入内存,然后验证其有效性,最后直接在内存地址中执行其注册函数(DllRegisterServer、UnDllregisterServer)。其编程方法是:
1、使用 Windows API 函数 LoadLibrary 载入 ActiveX控件;
2、使用 GetProcAddress 函数获取 ActiveX控件中注册函数 DllRegisterServer
(注销函数为DllUnregisterserver)指针;
3、使用CallWindowProc 函数执行已载入内存的 ActiveX控件注册函数
(DllRegisterServer、UnDllregisterServer)。
上面所述的 ActiveX 控件注册方法各有特点。经实际使用,效果良好。您可根据实际情况灵活选用。

 » 本站地址:http://www.gomoth.com

标签: