文档中心

delphi + java 的分布式应用思考
用delphi做界面层 java业务逻辑层这样看上去很美吧？
具体的实现
java 做业务逻辑层应该有多种选择企业级的有EJB3, 轻量级的有spring
目前在学习ejb3，感觉用来做业务逻辑层真的很不错。spring还没有了解
界面层用delphi，RAD应该是delphi的优势。
关键的问题的如果把前端的delphi跟中间的java连系起来。
目前我能想到的有以下几种方式
webserverice, xml-rpc, json-rpc,php-rpc
webservice
delphi里支持webservice ejb3也支持webservice
　问题点　
　　１、使用webservice的效率怎么样，一般的感觉是使用webservice的效率不是很好
　　２、ejb3中webservice是无状态的，如何使用交易
　　３、delphi 的webservice和ejb3中webservice的兼容问题
xml-rpc
delphi有开源的xml-rpc的项目，java实现xml-rpc应该也有比较好的方式
php-rpc
国内开发的，delphi有相应的php-rpc的客户端控件
json-rpc
个人认为这个比较好，在delphi 2009中新的分布式架构中也是采用的json的资料传输格式，
　　但目前不� ......

结合Delphi
客户端桌面开发的优势和Java的稳健强壮特性，采用Delphi
Client + Java Server的系统架构应该是很有市场的，经过一段时间的实际项目实践，实现架构是这么实现的，供讨论：
1.后台应用服务层可采用基于Spring+Hibernate的轻量级J2EE实现，并使用Apache XML-RPC
提供客户端调用接口；
2.前台采用 Delphi
XML-RPC
调用服务器端业务实现接口；
3.后台和前台分别实现XML-对象序列化；
4、可选用SLL，可支持数据压缩；（这个需要对Delphi
XML-RPC
实现作一些扩展）
系统架构实现基于几点考虑：
1、XML-RPC
同SOAP比较：由于Delphi
SOAP客户端存在一些性能问题和同Java实现存在一些兼容性问题，因此考虑采用XML-RPC
实现，而且XML-RPC
实现同SOAP实现相比较，性能要好很多；
2、XML-RPC
同SOCKET比较：采用HTTP协议可以有效穿透不同网络防火墙；
3、采用XML格式交换数据，而不采用XML-RPC
标准格式交换数据，主要是由于XML-RPC
格式比较简单，复杂的数据格式很难满足需求，直接使用对象XML数据流方式，有利于系统扩展；

使用的第三方软件列表（开源产品，可用于商业开发）
Spring Framework：http://www.springframework.org
Hibernat ......

枚举类型
　　Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。
1、枚举类型的定义
格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n)
2、枚举类型数据特点
① 枚举元素只能是标识符；
例如，下列类型定义是合法的：
　　 type days=(sun,mon,tue,wed,thu,fri,sat);
　　 colors=(red,yellow,blue,white,black,green);
　　而下列类型定义是错误的:
　　 type colortype=('red','yellow','blue','white');
　　 numbers=(1,3,5,7,9);
定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围）。
② 枚举类型属于顺序类型
　根据定义类型时各枚举元素的排列顺序确定它们的序号，且序号从0开始。
例如，定义type days=(sun,mon,tue,wed,thu,fri,sat);
则， ord(sun)=0,ord(mon)=1,……，以此类推。
枚举类型中的第一个元素无前趋，最后一个元素无后继。
pred(sat)=fri; succ(sun)=mon; ord(sat)=6;
③ 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的:
　　 type color1=(red,yellow,white);
　　　　 col ......

枚举类型
　　Pascal程序不仅用于数值处理，还更广泛地用于处理非数值的数据。例如，性别、月份、星期几、颜色、单位名、学历、职业等。
1、枚举类型的定义
格式:　type 枚举类型标识符=(标识符1,标识符2,…,标识符n)
2、枚举类型数据特点
① 枚举元素只能是标识符；
例如，下列类型定义是合法的：
　　 type days=(sun,mon,tue,wed,thu,fri,sat);
　　 colors=(red,yellow,blue,white,black,green);
　　而下列类型定义是错误的:
　　 type colortype=('red','yellow','blue','white');
　　 numbers=(1,3,5,7,9);
定义枚举类型时列出的所有枚举元素构成了这种枚举类型的值域（取值范围）。

② 枚举类型属于顺序类型
　根据定义类型时各枚举元素的排列顺序确定它们的序号，且序号从0开始。
例如，定义type days=(sun,mon,tue,wed,thu,fri,sat);
则， ord(sun)=0,ord(mon)=1,……，以此类推。
枚举类型中的第一个元素无前趋，最后一个元素无后继。
pred(sat)=fri; succ(sun)=mon; ord(sat)=6;

③ 同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。如下列定义是错误的:
　　 type color1=(re ......

Delphi字符串加密解密函数
功能：字符串加密和解密
首先定义一个常量数组
const
      XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用
在程序里加入以下两个函数，
function Enc(Str:String):String;//字符加密函數這是用的一個異或加密
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) do
   begin
     Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);
     j:=(j+1) mod 8;
   end;
end;
function Dec(Str:String):String;//字符解密函數
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) div 2 do
   begin
     Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
     j:=(j+1) mod 8;
   end;
end;
......

在Delphi里实现MD5加密其实很容易！方法如下：
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码
即可以达到MD5的实现。
示例代码

procedure
TForm
1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin

MyMD5 := TIdHashMessageDigest5.Create;
Digest := MyMD5.HashValue('');
ShowMessage('32: ' + MyMD5.AsHex(Digest)); //显示32个字符长度的MD5签名结果
ShowMessage('16: ' + Copy(MyMD5.AsHex(Digest), 9, 16)); //显示16个字符长度的MD5签名结果
end;
说明：
MyMD5.HashValue 函数中可以是一个字符串或是一个流对象,它返回的结果类型为 T4x4LongWordRecord 的MD5签名后结果
MyMD5.AsHex 函数是将T4x4LongWordRecord的Md5签名转换成为十六进制的MD5签名字符串
......

delphi + java 的分布式应用思考

delphi + java 的分布式应用思考

delphi + java 的分布式应用

delphi + java 的分布式应用

Delphi Enum

Delphi Enum

Delphi字符串加密解密函数

Delphi里实现MD5加密控件法