关于delphi 的datasnap Rest 模式在网上有很多的相关基本文章,大家可以参考,大多数讲的都是 服务器Datasnap +Delphi 客户端的调用方式,
关于这种方式网上资料很多.本系列主要讲讲 服务器 datasnap+rest 和 客户端为 Flex 的开发模式.基本上其他的前端技术如asp.net 等 应该和flex 差别不大.
先说明几个观点:
1 由于delphi Datasnap Rest 模式是一Json的数据格式封装的,所以客户端 只要只是Json格式基本都可以.这样 datasnap 可以说是跨平台了.
2 由于网络上和 datasnap 白皮书 以及一些相关的资料 只介绍了 客户端为 delphi 开发模式,所以本文讲的 Flex 客户端 对于想开发Web 程序的同学很有好处
3 由于也是出于探索阶段,有些问题还不是特别清楚,希望有同样开发需求的同学 多多交流,多多指点
废话少说 下面的开发环境是 delphi xe + Flex 4.0
1.建立Datasnap服务器,记得选择上tcp + http通讯方式 (如何建立datasnap服务器 ,请在网上自己搜索,我就不废话了)
我建立了一个TSMTest 类来发布rest方法 声明的代码如下
TSMTest = class(TDSServerModule)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
dsp: TDataSetProvider;
procedure DSServerModuleCreate(Sender: TObject);
private
stream :Tstream;
{ Private declarations }
public
{ Public declarations }
function EchoString(Value: string): string;
function ReverseString(Value: string;id:integer): string;
function SetArr(JsonStr:string):string;
function u