Delphi Xe DataSnap Rest + Flex 开发 基本探索5(Rest 服务参数传递)

在读本文章前请参考 前面的文章 介绍

之前的文章都是介绍如何 从datasnap rest服务器读取数据,下面的文章将介绍前台如何传递参数到datasnap服务器,并介绍 rest服务模式参数的传递问题

1.delphi datasnap写的rest服务 基本都是以方法或函数的形式,既然是函数 那就能接受前台传递的参数,通过参数返回需要的值

2.rest 模式的普通参数传递 只需要在 地址后面 /参数1/参数2 等方式加参数

read.Load('datasnap/rest/TSMTest/ReverseString/'+edtPstr.text+'/123');

如图

后台代码如下

  

function TSMTest.ReverseString(Value: string;id:integer): string;begin  Result := inttostr(id)+ StrUtils.ReverseString(Value);end;

前台代码

protected function btnPstr_clickHandler(event:MouseEvent):void{var read :ReadDataFromServer = new ReadDataFromServer();read.onLoadComplete = onStrParam;read.Load('datasnap/rest/TSMTest/ReverseString/'+edtPstr.text+'/123');}public function onStrParam(e:Event):void{edtPstrRe.text = JSON.decode(e.target.data).result[0];}

这是最简单的传递 字符串,向int  等都可以这样传递

2.传递 数组 参数 到后台 效果如上图

后台代码

function TSMTest.SetArr(JsonStr:string): string;var  i:integer;  jsonObj:TjsonObject;  jsonArr:TJSONArray;begin  FrmMain.Memo1.Lines.Add('jsonValue:'+JsonStr); //FrmMain.Memo1.Lines.Add('jsonArrstr:'+JsonObj.ToString);  jsonObj  := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject;  jsonArr  := jsonObj.Get(0).JsonValue as TJSONArray;  jsonArr  := jsonArr.Get(0) as TJSONArray;  FrmMain.Memo1.Lines.Add('jsonArrsize:'+inttostr(jsonArr.Size));  for I := 0 to jsonArr.Size-1 do  begin    FrmMain.Memo1.Lines.Add(inttostr(i)+':'+jsonArr.Get(i).Value);    result := result+jsonArr.Get(i).Value+',';  end;end;

前台代码

   

protected function btnPArr_clickHandler(event:MouseEvent):void{var read :ReadDataFromServer = new ReadDataFromServer();read.onLoadComplete = onArrParam;var arr:Array=['abc','efd',123];var str :String ='{"Array":['+ JSON.encode(arr)+"]}";read.Load('datasnap/rest/TSMTest/SetArr/'+str);}public function onArrParam(e:Event):void{edtPArr.text = JSON.decode(e.target.data).result[0];}

哎 看到博客的同学 有福气啊,这块 我搜索了无数的资料 才 搞出来 现在奉献给大家