|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
搞完了PHP4调用JavaBean，又想去试试调用COM，开始以为很难，自己用VB6写了一个Active Dll在PHP4中调用，马上成功，比调用javabean方便多了，下面讲一下我的步骤。 mq3Linux联盟
mq3Linux联盟
下载的版本是从http://www.mm4.de/。 mq3Linux联盟
mq3Linux联盟
一：用VB6写Activex Dll mq3Linux联盟
mq3Linux联盟
代码如下： mq3Linux联盟
mq3Linux联盟
Option Explicit mq3Linux联盟
mq3Linux联盟
Private MyScriptingContext As ScriptingContext mq3Linux联盟
mq3Linux联盟
Private MyApplication As Application mq3Linux联盟
mq3Linux联盟
Private MyRequest As Request Private MyResponse As Response mq3Linux联盟
mq3Linux联盟
Private MyServer As Server mq3Linux联盟
mq3Linux联盟
Private MySession As Session Public mq3Linux联盟
mq3Linux联盟
Sub OnStartPage(PassedScriptingContext As ScriptingContext) mq3Linux联盟
mq3Linux联盟
Set MyScriptingContext = PassedScriptingContext mq3Linux联盟
mq3Linux联盟
Set MyApplication = MyScriptingContext.Application mq3Linux联盟
mq3Linux联盟
Set MyRequest = MyScriptingContext.Request mq3Linux联盟
mq3Linux联盟
Set MyResponse = MyScriptingContext.Response mq3Linux联盟
mq3Linux联盟
Set MyServer = MyScriptingContext.Server mq3Linux联盟
mq3Linux联盟
Set MySession = MyScriptingContext.Session mq3Linux联盟
mq3Linux联盟
End Sub mq3Linux联盟
mq3Linux联盟
Public Sub OnEndPage() mq3Linux联盟
mq3Linux联盟
Set MyScriptingContext = Nothing mq3Linux联盟
mq3Linux联盟
Set MyApplication = Nothing mq3Linux联盟
mq3Linux联盟
Set MyRequest = Nothing mq3Linux联盟
mq3Linux联盟
Set MyResponse = Nothing mq3Linux联盟
mq3Linux联盟
Set MyServer = Nothing mq3Linux联盟
mq3Linux联盟
Set MySession = Nothing mq3Linux联盟
mq3Linux联盟
End Sub mq3Linux联盟
mq3Linux联盟
Public Function Test_Number(num) As Variant mq3Linux联盟
mq3Linux联盟
If num < 0 Then Get_Number_Attrib = -1 mq3Linux联盟
mq3Linux联盟
If num > 0 Then Get_Number_Attrib = 1 mq3Linux联盟
mq3Linux联盟
If num = 0 Then Get_Number_Attrib = 0 mq3Linux联盟
mq3Linux联盟
End Function mq3Linux联盟
mq3Linux联盟
具体方法如下：新建一个VB6工程，ActiveX Dll将工程命名为P_test,类名为c_test mq3Linux联盟
mq3Linux联盟
类的文件内容如上。 mq3Linux联盟
mq3Linux联盟
编译生成p_test.dll文件 mq3Linux联盟
mq3Linux联盟
二：注册 mq3Linux联盟
mq3Linux联盟
提示符下运行：regsvr32 p_test.dll mq3Linux联盟
mq3Linux联盟
三：编写php文件，test.php4代码如下： mq3Linux联盟
mq3Linux联盟
<? mq3Linux联盟
mq3Linux联盟
$b=new COM("p_test.c_test"); mq3Linux联盟
mq3Linux联盟
$a=$b->Test_Number(-454); mq3Linux联盟
mq3Linux联盟
echo $a; mq3Linux联盟
mq3Linux联盟
?> mq3Linux联盟
mq3Linux联盟
运行php4文件将显示-1 mq3Linux联盟
mq3Linux联盟
可能遇到的问题是，编译工程时通不过，要将 mq3Linux联盟
mq3Linux联盟
Microsoft Active Server Pages Object Library mq3Linux联盟
mq3Linux联盟
引用进来，具体实现“Project->References”找到改库，并勾上 mq3Linux联盟
mq3Linux联盟
相比之下，PHP4调用com应该比PHP4调用javabean好哦，因为毕竟是Ms系统嘛。大家也可以去自己编写调用数据库的控件，用PHP4调用，从某种程度上，和PHP调用javabean一样，可以说，实现了“隐藏源代码”。 mq3Linux联盟
mq3Linux联盟
欢迎有兴趣的朋友交流。 mq3Linux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
