当前位置导航:炫浪网>>网络学院>>网页制作>>PHP教程

如何用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"找到改库,并勾上 。
相关内容
赞助商链接