需求:
有一个桌面软件,需要通过机器码产生序列号,这个过程需要在一个网站后台完成。而产生序列号的代码是用 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
分享到:
相关推荐
Delphi 下 Intraweb 开发WEB程序应用实战(2.0).pdf Delphi 下 Intraweb 开发WEB程序应用实战(2.0).pdf Delphi 下 Intraweb 开发WEB程序应用实战(2.0).pdf Delphi 下 Intraweb 开发WEB程序应用实战(2.0).pdf Delphi ...
使用最新的Delphi10.4.1开发环境,需要用到InstraWeb15.2.8组件,请自行准备(我上传的资源中也有)。应用内的DB服务使用oracle。
delphi开发的webservices接口 目前服务端和客户端都支持
《Delphi Web前端开发教程——基于TMS WEB Core框架》PDF本教程适合对使用Delphi TMS WEB Core 创建 Web 应用程序感兴趣的初学者和高级开发人员。学习本教程只需要免费的 Delphi 社区版以及 TMS WEB Core 的试用版就...
Delphi下用IntraWeb开发WEB程序应用实战
Delphi下用IntraWeb开发WEB程序应用实战.rar
用IntraWeb开发Web应用,与使用Delphi开发普通程序几乎一样,这样,一个优秀的Delphi程序员经过简单的实践就可以成为优秀的Web应用开发员,所有的Delphi所给你的习惯和经验都可以得以保留,这真是一件很美妙的事情。...
Delphi7.Web开发与应用,关于delphi的web开发设计的电子资料文件
delphi Web Web Xone web开发
Delphi6 SOAP Web Service程序设计篇
本书主要讲述Delphi的功能组件在Web开发中的应用,作者采用“原理-实例-分析”的叙述模式,对Delphi组件的Web应用开发...本书适用于Delphi程序开发人员、Borland产品爱好者以及希望用Delphi开发Web应用的所有人员。
wke + delphi + Miniblink delphi 开发 webui最佳组合
根据我的经验,精心配置出来的方案,使用Delphi2007lite最小精简版,才60M。加上intraweb+IntraWeb iPhone Controls非常适合开发web应用,本文里有下载地址。
用 Intraweb 开发WEB程序应用实战
IntraWeb是Delphi 里开发BS程序最好的工具。从Delphi7开始,它就正式成为Delphi的一个组 件,当时的版本为5.0.43。目前已经推出9.0以上版本了。它是AtoZed Software 公司的产品,其网 址为...
Delphi 开发的微信小程序后台控件前端的小程序演示Demo。配合后端控件,演示小程序的实际功能。需要配合小程序后台,这是前端的小程序源代码。
delphi和PHP混合编程(PHP4DELPHI),在DELPHI中调用PHP的程序,经调试能用,很COOL.能将PHP的程序在离开WEB服务器在WINDOWS下运行.
UniGUI 是非常好用的delphi web开发 三方控件,这个还支持手机开发
内容包括窗体与界面设计、控件应用、数据处理技术、图形技术、多媒体技术、文件系统、操作系统与Window相关程序、注册表、数据库技术、SQL查询相关技术、打印与报表技术、图表技术、硬件相关开发技术、网络开发技术...