Delphi Xe DataSnap Rest + Flex 开发 基本探索1

关于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