需求：
    有一個桌面軟體，需要通過機器碼產生序列號，這個過程需要在一個網站後臺完成。而產生序列號的程式碼是用 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;

    測試：

    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;
    ?>