PHP 与 Delphi 混合开发 Web 程序

    需求：
    有一个桌面软件，需要通过机器码产生序列号，这个过程需要在一个网站后台完成。而产生序列号的代码是用 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-B93**588-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-B93**588-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