Delphi Xe DataSnap Rest + Flex 开发基本探索2(取得Json 数组)

最新推荐文章于 2025-06-01 21:59:57 发布

原创最新推荐文章于 2025-06-01 21:59:57 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #flex #json #arraylist

delphi Xe DataSnap 开发专栏收录该内容

9 篇文章

订阅专栏

本篇博客继续《Delphi Xe DataSnap REST 基本探索》系列，重点讲述如何通过 DataSnap REST 服务返回 JSON 数组，并在 Flex 客户端进行处理。后台代码返回了一个包含中文的 JSON 数组，前台通过解析该数据实现了数据显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

看本文章前请参考基本探索1 的部分内容

下面介绍如何从datasnap rest 服务返回 JsonArray 数组

后台代码

声明
 function GetArr:TJSONArray;
实现

function TSMTest.GetArr:TJSONArray;
var
  arr:TjsonArray;//TStrArr;
  I: Integer;
begin
 // SetLength(arr,5);
  arr:=TjsonArray.Create;
  for I := 0 to 5 do
  begin
    arr.Add( '字符串数组'+inttostr(i));
  end;
  result := arr;
end;

前台Flex 返回Json数据

{"result":[["\u5B57\u7B26\u4E32\u6570\u7EC40","\u5B57\u7B26\u4E32\u6570\u7EC41","\u5B57\u7B26\u4E32\u6570\u7EC42","\u5B57\u7B26\u4E32\u6570\u7EC43","\u5B57\u7B26\u4E32\u6570\u7EC44","\u5B57\u7B26\u4E32\u6570\u7EC45"]]}

里面有中文 Json 自己编码了

前台效果如图

前台代码

			protected function btnArr_clickHandler(event:MouseEvent):void
			{
				var read :	ReadDataFromServer  = new ReadDataFromServer;
				read.onLoadComplete = onArrLoad;
				read.Load('datasnap/rest/TSMTest/GetArr');	
			}
			
			public function onArrLoad(e:Event):void{
				//delphi datasnap 返回 TjsonArray 才可以,普通array 不行
				var list:ArrayList = new ArrayList( JSON.decode(e.target.data).result[0]);
				arrlist.dataProvider = list;
				
				//edtInt.text = JSON.decode(e.target.data).result[0];
				
			}

是不是写的很详细...同学你想试试么