文章分类 | 软件分类 | 最新软件 | 杀毒软件 | 实用软件  | MTV下载  | 设为首页 |
  | 下载分类 | 最近更新
您的位置: 首页 >> 文章首页 >> 技术开发 >> PHP 学院 >> PHP教程 >>  
PHP教程点击TOP10
·分页显示Oracle数据库记录的类之一2006-2-5 23:51:32
·php中文本数据翻页(留言本翻页)2006-2-9 16:16:54
·一个odbc连mssql分页的类2006-2-5 14:26:46
·JAVA/JSP学习系列之七2006-2-6 7:40:36
·使用OOP技术来优化PHP应用程序2006-2-9 16:33:27
·一个很方便的 XML 类!!原创的噢2006-2-6 6:54:26
·PHP基本语法2006-2-8 19:33:07
·PHP数据库开发知多少2006-2-9 17:33:38
·开发大型PHP项目的方法2006-2-5 14:15:48
·example2.php2006-2-6 6:54:29
PHP 学院点击TOP10
·利用PHP动态生成VRML网页2006-2-9 14:42:54
·PHP&MYSQL服务器配置说明2006-2-5 12:26:12
·分页显示Oracle数据库记录的类之一2006-2-5 23:51:32
·编写PHP的安全策略2006-2-9 16:37:13
·使用OOP技术来优化PHP应用程序2006-2-9 16:33:27
·967 个函式2006-2-5 13:59:40
·Zend Studio 5 Beta2006-2-10 12:48:42
·一个很方便的 XML 类!!原创的噢2006-2-6 6:54:26
·JAVA/JSP学习系列之七2006-2-6 7:40:36
·一个odbc连mssql分页的类2006-2-5 14:26:46

 

用PHP调用自己编写的COM组件
作者:我去下载           时间:2006-2-9 20:43:05


首先写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"找到改库,并勾上 。
分页:
相关文章:
Copyright© 2005-2006 wqxz.com, All Rights Reserved. 购买虚拟主机请与本站联系