如何用PHP调用自己编写的COM组件? |
|
|
首先写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"找到改库,并勾上 。

|
|
相关文章:第四课:使 用Browser Capabilities(浏览器性能)组件第七课:从脚本调用Finance组件ActiveX 组件常用的 ASP ActiveX 组件其它的ASP常用组件相关软件: vBulletin论坛的五个组件包-内含 ASP精品屋无组件上传图片至数据库加强版 UpLoad组件iNotesUpload UpLoad组件SA-FileUp 任意类型文件的上传组件 上载组件,文件上传的组件 察看服务器支持组件小程序 ASP Ping组件,AspPing提供 无组件ASP页面上传 组件ASPUP,一个很好的上传组件 |
|