delphi + java 的分布式应用
结合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
Hibernate ORM：http://www.hibernate.org
Apache XML-RPC
：http://ws.apache.org/xmlrpc/
Delphi
XML-RPC
：http://sourceforge.net/projects/delphixml-rpc/
Delphi
Indy VCL：http://www.indy.org
重点几个问题说明：
1、采用XML-RPC
机制实现数据交换
2、客户端采用Cookie机制实现保存客户端登录相关信息，Delphi
XML-RPC
实现应用了Indy Cookie VCL，因此我们不需要重复发明轮子
3、Java 端 XML-RPC
实现比较多，Apahce XML-RPC
是不错的选择
4、客户端和服务器端各实现一套 对象－ＸＭＬ序列化／反序列化，客户端调用请求前，将对象转换为XML数据流并封装为XML-RPC
格式请求远程方法调用，服务器端解析XML数据流，并转换为对应的对象，执行实际的业务操作；这一步是非常关键的
客户端通过XMLHTTP进行请求处理的技术
：采用XML-RPC方式处理客户端和服务器端交互
客户端和服务器端传递的数据格式
：采用XML格式交换数据
如何处理上下文信息
：客户端采用Cookie机制来保存上下文关系，服务器端可以采用HTTP Session方式来来保存客户端信息，类似于浏览器
如何设计服务器端的接口
：使用 XML-RPC方式提供最原始、最简单的RPC方式调用
如
相关文档：
一、 网络布局
一台中心SQL服务器（简称：中心服务器），多台分布在不同地域的SQL服务器（简称：本地服务器），各个本地服务器和中心服务器都能通过internet实现网络互连。
二、所用语言及数据库：Delphi +Sql
二、 通信要求
每台本地服务� ......
同步程序案例
procedure TGetOrderThread.PostDB(webnr:WideString);
var
Err: String;
SetWebnr:WideString;
xmlDoc: IXMLDocument;
root: IXMLNode;
rowc: IXMLNode;//记录数
rows: IXMLNodeList;//主记录列表
row: IXMLNode;
drows: IXMLNodeList;// ......
用Delphi作的程序的源代码中常见的文件扩展名，并给出了这些文件扩展名的意义，以便源代码管理时作为参照，扩展名以字母为序（不需要进源代码库不表示不需要进库）。
~*
Delphi生成的备份文件，在版本控制库及发布代码中不应该出现这些文件，如果修改了某个文件却因某些原因没有保存的话，可以尝试使用这些文件� ......
屏幕的分辨率用这个
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
同上。
.而且获得屏幕上的像素好像应该使用
screen.pixelsperinch函数
int GetDeviceCaps(
......
技术交流,DH讲解. 最近和肥鸟交流了下关于字符串方面的知识,而这篇文章是很久以前写的,现在发出来吧. 我们写两段代码来对比下:
第一个用Copy函数:
procedure TForm1.Button1Click(Sender: TObject);
var
a,c:Cardinal;
n:Integer;
D:Double;
i:Integer;
b:string;
begin
c:=0; ......
