《JavaScript+OCX+COM组件，实现网页对客户端DLL的调用doc》.docVIP

JavaScript+OCX+COM组件，实现网页对客户端DLL的调用 （完整步骤） 实现原理及步骤 1 PB 利用非可视用户对象，生成COM组件 2 VB 利用用户控件调用COM组件，生成OCX 3 JavaScript 调用OCX 通过PB生成COM组件 1、创建非可视用户对象uo_ testdll 代码： public function string test_dll (string pname); String setup messagebox(输入参数,pname) setup =ProfileString(C:\testdll\testdll.ini, setup, name, 没有设置) messagebox(本机参数,setup) FileCopy (C:\testdll\testdll.ini , C:\testdll\testdll_+String(Randomize (100))+.ini, FALSE) setProfileString(C:\testdll\testdll.ini,setup, name, pname) return 我来自本机：+setup +,+pname end function 2、创建COM组件：p_testdll A、选择对象： B、设置属性 （选择生成的dll文件，两个new分别新建，选择构建完备注册组件选项） （两个new分别新建） （选择包含组件的库） C、发布，点击deploy执行 3、注册dll文件：将依赖文件pbvm90.dll，libjsybheap.dll，libjcc.dll和testdll.dll放在同一目录，执行regsvr32 testdll.dll VB生成OCX控件hello_uo.ocx （选择ActiveX控件） （选择引用DLL） 脚本： Private Sub Command1_Click() MsgBox uo_test(Text1.Text) + --- + uo_test1(Text1.Text) End Sub Public Function uo_test(pname As String) As String Dim obj As Object Set obj = CreateObject(PB90.testdll) Dim result As String result = obj.test_dll(pname) uo_test = result End Function Public Function uo_test1(pname As String) As String uo_test1 = 我来自VB： + pname End Function （选择生成） 注册：regsvr32 hello_uo.ocx JavaScript调用OCX控件 (找到OCX的id) 代码： htmlhead meta http-equiv=Content-Type content=text/html; charset=UTF-8 / /headbody 输入参数：input type=text id=iii value=1 返回结果：input type=text id=rrr value=2/input input type=button onclick=javascript:runOcx() value=测试 OBJECT id=TestOcx name=TestOcx classid=CLSID:A56939E4-596C-4A86-8814-F4CBC6DE5F80 width=0 height=0 /OBJECT script function runOcx() { var ret1 = TestOcx.uo_test(document.getElementById(iii).value); var ret2 = TestOcx.uo_test1(document.getElementById(iii).value); document.getElementById(rrr).value = ret1 + --- + ret2; } /script /body/html 执行结果： 点击确定： 点击测试： 客户端配置文件： 完。 JavaScript+OCX+COM组件，实现网页对客户端DLL的调用 燕飞出品 第（14）页，共（16）页