PHP4 调用自己编写的 COM 组件

作者：东方一蛇　　　
搞完了PHP4调用JavaBean，又想去试试调用COM，开始以为很难，自己用VB6写了一个Active Dll在PHP4中调用，马上成功，比调用javabean方便多了，下面讲一下我的步骤。
下载的版本是从http://www.mm4.de/。
一：用VB6写Activex Dll
代码如下：
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
具体方法如下：新建一个VB6工程，ActiveX Dll将工程命名为P_test,类名为c_test
类的文件内容如上。
编译生成p_test.dll文件
二：注册
提示符下运行：regsvr32 p_test.dll
三：编写php文件，test.php4代码如下：

$b=new COM("p_test.c_test");
$a=$b->Test_Number(-454);
echo $a;
?>
运行php4文件将显示-1
可能遇到的问题是，编译工程时通不过，要将
Microsoft Active Server Pages Object Library
引用进来，具体实现“Project->References”找到改库，并勾上
相比之下，PHP4调用com应该比PHP4调用javabean好哦，因为毕竟是Ms系统嘛。大家也可以去自己编写调用数据库的控件，用PHP4调用，从某种程度上，和PHP调用javabean一样，可以说，实现了“隐藏源代码”。
本文出自：
应用实例
　　POP3收取邮件的类在前面的文章中已经给大家做了详细的介绍，下面我们来看看如何应用这个类：
　　
　　include("pop3.inc.php");
　　$host="pop.china.com";
　　$user="boss_ch";
　　$pass="026007";
　　$rec=new pop3($host,110,2);
　　if (!$rec->open()) die($rec->err_str);
　　echo "open ";
　　if (!$rec->login($user，$pass)) die($rec->err_str);
　　echo "login";
　　if (!$rec->stat()) die($rec->err_str);
　　echo "共有".$rec->messages."封信件，共".$rec->size."字节大小
";
　　
　　if ($rec->messages>0)
　　 {
　　 if (!$rec->listmail()) die($rec->err_str);
　　 echo "有以下信件：
";
　　 for ($i=1;$i<=count($rec->mail_list);$i++)
　　 {
　　 echo "信件".$rec->mail_list[$i][num]."大小：".$rec->mail_list[$i][size]."
";
　　 }
　　 $rec->getmail(1);
　　 echo "邮件头的内容：
";
　　 for ($i=0;$ihead);$i++)
　　 echo htmlspecialchars($rec->head[$i])."
n";
　　 echo "邮件正文　：
";
　　 for ($i=0;$ibody);$i++)
　　 echo htmlspecialchars($rec->body[$i])."
n";
　　 }
　　$rec->close();
　　?>
　　如果你把pop3类中的debug设为true的话，你还可以看到程序与pop3服务器是如何对话的，用于正在调试的程序来说，这样显得更为直观。
　　小结
　　从以上的这个实例我们可以看到PHP真的是网站开发的一个功能非常强大的工具，但是也可以感觉到，PHP做为一种混合形的语言，其面对对象的开发与其它的工具如java相比还存在不少让人遗憾的地方。这个pop类的实现也还有不少需要改进之处，欢迎各位同仁们指导。
作者：陈俊清
如有想要取得完整的源代码的朋友，请与本人联系:boss_ch@netease.com
转载：中华网

本类可以用与于email的群发,测试的环境是linux,系统需要安装sendmail才能使用

if ( ! defined( 'MAIL_CLASS_DEFINED' ) ) {
define('MAIL_CLASS_DEFINED', 1 );
class email {
function email ( $subject, $message, $senderName, $senderEmail, $toList, $ccList=0, $bccList=0, $replyTo=0) {
$this->sender = $senderName . " <$senderEmail>";
$this->replyTo = $replyTo;
$this->subject = $subject;
$this->message = $message;
// 定义收件人
if ( is_array($toList) ) {
$this->to = join( $toList, "," );
} else {
$this->to = $toList;
}
// 定义抄送名单
if ( is_array($ccList) && sizeof($ccList) ) {
$this->cc = join( $ccList, "," );
} elseif ( $ccList ) {
$this->cc = $ccList;
}
// 定义密码抄送名单
if ( is_array($bccList) && sizeof($bccList) ) {
$this->bcc = join( $bccList, "," );
} elseif ( $bccList ) {
$this->bcc = $bccList;
}
}
// 发送函数
// 利用php中的mail()函数发送email
function send () {
//发件人
$this->headers = "From: " . $this->sender . " ";
// 回复地址
if ( $this->replyTo ) {
$this->headers .= "Reply-To: " . $this->replyTo . " ";
}
// 抄送
if ( $this->cc ) {
$this->headers .= "Cc: " . $this->cc . " ";
}
// 秘密抄送
if ( $this->bcc ) {
$this->headers .= "Bcc: " . $this->bcc . " ";
}
return mail ( $this->to, $this->subject, $this->message, $this->headers ); //返回结果
}
}
}
?>
说明:
参数说明
----------
- 以下几个参数是必须的:subject, message, senderName, senderEmail 和 toList
- 这几个参数则是可选的:ccList, bccList 和 replyTo
- toList, ccList 和 bccList 必须是有效的email地址
关于 session 不能自动去除的临时处理方法
问题是：
"PHP 的 session 会一直保存着用户第一次进入时输入的信息，即使你返回到登陆画面重新登陆也不会改变！这个问题我在 php4.02 里面发现，在最新的php 4.03pl1 的测试中仍然没有通过！只有用户关闭 ie 浏览器，重新开 IE窗口才能消除session的内容
临时解决方法：
当表单提交后,不要注册表单提交的变量,把该变量赋给另一变量$X后,注册$X,这样返回到登陆画面重新登陆就可以改变了.再要保险一点,可在登陆的那一页的页首添一句删除变量$X.
举例如下：这段是我的聊天室登陆的部分
1 登陆页面传送 $name , $pass
2 login.php 里可以这样处理
<?
$save_name = $name;
$save_pass = $pass;
session_start();
session_register("name");
session_register("pass");
$name=$save_name;
$pass=$save_pass;
......
?>
你必须要关掉 php3.ini 配置中的短标记功能，将short_tags设为 0，或是在Apache配置文件中使用php3_short_tags配置 。(你也可以在区域中使用。) 也可以在脚本中使用short_tags()函数让短标记功能有用或无效。