2.Rest Server提供数据库的Json字符串

最新推荐文章于 2024-11-06 17:47:19 发布

JRSA2010

最新推荐文章于 2024-11-06 17:47:19 发布

阅读量194

点赞数

文章标签： json 数据库

原文链接：http://www.cnblogs.com/KKSoft/p/8798665.html

版权

Delphi最大的特点是数据库操作便捷。为了能够给App提供数据，这里采用Rest Server后台，然后在用Json文件发送到APP前台。

1.后台的dataset转换为json。

这里百度后就可以找到相应的代码，直接可以参考：

function DataSetToJson(ADataset: TDataSet): string;
// [{"CityId":"18","CityName":"西安"},{"CityId":"53","CityName":"广州"}]
var
  LRecord: string;
  LField: TField;
  i: integer;
begin
  Result := '[';
  if (not ADataset.Active) or (ADataset.IsEmpty) then Exit; //Result := ''; //2018.4.10 ADataset.DisableControls; ADataset.First; while not ADataset.Eof do begin for i := 0 to ADataset.FieldCount - 1 do begin LField := ADataset.Fields[i]; if LRecord = '' then LRecord := '{"' + LField.FieldName + '":"' + LField.Text + '"' else LRecord := LRecord + ',"' + LField.FieldName + '":"' + LField.Text + '"'; if i = ADataset.FieldCount - 1 then begin LRecord := LRecord + '}'; if Result = '[' then Result := Result + LRecord else Result := Result + ',' + LRecord; LRecord := ''; end; end; ADataset.Next; end; ADataset.EnableControls; Result := Result+']';//rightstr(Result,length(result)-1) ; //2018.4.10 end;

2.为App提供Json函数

（1）.函数定义：

function GetJsonAccess:string;

（2）函数的具体代码：

function TServerMethods1.GetJsonAccess: string;
begin
  result:=DataSetToJson(ADOQuery1) ;
end;

注意事项：这里函数的返回值，可以用TJSONArray，也可以直接用string。我这里用string到是更简洁一些。

后台运行后，通过浏览器可以访问json结果，如后台地址为：

   http://192.168.3.2:8080/datasnap/rest/TServerMethods1/GetJsonAccess/  ，结果为：

   {"result":["[{\"memID\":\"1\",\"username\":\"zs\",\"password\":\"111111\",\"name\":\"\u5F20\u4E09\"},{\"memID\":\"2\",\"username\":\"ls\",\"password\":\"222222\",\"name\":\"\u674E\u56DB\"},{\"memID\":\"3\",\"username\":\"ww\",\"password\":\"333333\",\"name\":\"\u738B\u4E94\"}]"]}

   通过对json的分析，我们可以看到最外层是result字段，内容为一个json数组，然后最里面是数据表中的字段和相对于应的值。通过对该json数据的分析，以便于我们在app中进行遍历。

转载于:https://www.cnblogs.com/KKSoft/p/8798665.html