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

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中进行遍历。