调用com

最新推荐文章于 2023-05-18 17:41:43 发布

原创最新推荐文章于 2023-05-18 17:41:43 发布 · 296 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#microsoft #function #server #dll #library #session

本文详细介绍了如何使用VB6创建ActiveX DLL，将其与PHP进行跨语言调用，并解决了编译过程中的关键问题，包括引用Microsoft Active Server Pages Object Library。通过编写示例代码和步骤指南，读者可以轻松实现VB6和PHP之间的数据交换。

首先写ActiveX Dll：
　　新建一个VB6工程，ActiveX Dll将工程命名为P_test,类名为c_test ，类的文件内容如下：

Option Explicit
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request Private MyResponse As Response
Private MyServer As Server
Private MySession As Session Public

Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub

Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub

Public Function Test_Number(num) As Variant
If num < 0 Then Get_Number_Attrib = -1
If num > 0 Then Get_Number_Attrib = 1
If num = 0 Then Get_Number_Attrib = 0
End Function

　　编译生成p_test.dll文件

　　提示符下运行：regsvr32 p_test.dll

　　编写php文件，test.php4代码如下：

＜?
$b=new COM("p_test.c_test");
$a=$b-＞Test_Number(-454);
echo $a;
?＞

　　可能遇到的问题是，编译工程时通不过，要将

Microsoft Active Server Pages Object Library

　　引用进来，具体实现"Project->References"找到改库，并勾上。