PHP 与 Delphi 混合开发 Web 程序

q789321

　　需求：
有一个桌面软件，需要通过机器码产生序列号，这个过程需要在一个网站后台完成。而产生序列号的代码是用 Delphi 编写的，此代码移植到 PHP 语言下有一定的困难，或者无法完成。于是产生了 PHP 调用 Delphi 代码的问题。
　　解决方案及其优劣考虑：
PHP 调用其它语言的代码，有几种方案：
PHP 调用 C 代码，可以通过 PHP 扩展开发，生成 PHP 的 dll 扩展文件，在 php.ini 文件里加载，PHP 直接使用 dll 封装的函数。这种方案的优点是，与操作系统平台无关（跨平台），也能保证代码效率。但 PHP 扩展开发似乎只能用 C/C++ 开发，有语言限制，开发过程繁琐，也有一定的难度。
　　还有一种方法，就是通过 Windows 的 COM 机制，实现进程间通信，从而达到异构语言的代码的间接共享，而且是一种二进制级别的共享。好在 PHP 语言支持 Windows 平台下的 COM 调用，完全可以解决这个问题。
这种方法的好处是，只要某种语言能够完成 COM 开发，生成了二进制的 COM 组件，就能实现该需求。包括 C++、Delphi、C# 等语言，都能开发 COM 组件。
这种方法的缺点是，不能跨平台，只能在 Windows 下实现。因为到目前为止，COM 机制只有 Windows 操作系统支持它。
　　具体实现：
用 Delphi7.0 实现。在 PHP4.4.7 下测试通过。
用 Delphi 创建 ActiveX Library 工程（createkey.dpr），再建立 Automation Object 项目，会弹出接口向导，填写欲实现的接口名（Mycode）。
确定后，接着进入类型库编辑器窗口（createkey.tlb），类型库编辑器会自动建立 COM 接口 IMycode 和组件类 Mycode。这个 COM 接口默认是个双(Dual)接口（接口(interface)和调度接口(dispinterface)），既能实现编译时的早绑定，也提供了自动化COM对象在被调用时的晚绑定。并且因为是 COM 的扩展 - 自动化应用，所以对象的接口编组等工作不用我们程序员考虑了。
编辑和刷新类型库后，同时生成对应的 Delphi 代码（createkey_TLB.pas文件），和其二进制版本 createkey.tlb。
　　本组件的方法和属性：
方法：
cumput(nIn: SYSINT)
属性：
sStr1[const s: WideString]: WideString，只读
nNum: Integer，可读写
　　我们需要做的，就是在 Delphi 自动生成的另一个单元文件里，对 IMycode 接口里的方法和属性进行编码实现。
　　createkey_TLB.pas 文件核心代码：
　　IMycode = interface;
IMycodeDisp = dispinterface;
Mycode = IMycode;
　　IMycode = interface(IDispatch)
['{1F646769-B936-4588-B107-C853F5331512}']
function Get_sStr1(const s: WideString): WideString; safecall;
procedure cumput(nIn: SYSINT); safecall;
function Get_nNum: Integer; safecall;
procedure Set_nNum(Value: Integer); safecall;
property sStr1[const s: WideString]: WideString read Get_sStr1;
property nNum: Integer read Get_nNum write Set_nNum;
end;
　　IMycodeDisp = dispinterface
['{1F646769-B936-4588-B107-C853F5331512}']
property sStr1[const s: WideString]: WideString readonly dispid 202;
procedure cumput(nIn: SYSINT); dispid 201;
property nNum: Integer dispid 203;
end;
　　示例代码下载：http://blog.why100000.com/wp-content/uploads/2010/06/com_auto.rar
　　测试：
　　Bulid 该工程，生成 createkey.dll 文件，然后用 regsvr32.exe 注册。
PHP 调用示例代码：
<?php
echo 'COM test:<br>';
$objCom = new COM("createkey.Mycode");
echo $objCom->sStr1('from php') .'<br>';
$objCom->nNum = 7;
$objCom->cumput(1);
echo $objCom->nNum .'<br>';
echo 'Over';
//释放对象
$objCom = null;
?>
　　作者：张庆(网眼) 西安 PHP 教育培训中心 2010-6-18
来自“网眼视界”：http://blog.why100000.com
作者微博：http://t.qq.com/zhangking
“十万个为什么”电脑学习网：http://www.why100000.com