我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap，在Android上的实现，首先是完成服务器的设计：
（1）利用向导完成DataSnap服务器的框架，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091156-8ee69d30df2d4f25b742dca7c161153d.png)
由于是实验，所以选择VCL程序，如果是实际应用，建议Service程序
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091213-97481d6ebbaf42d3914e3bc5fd1d36dd.png)
我习惯使用TCP/IP作为通讯协议，简单且速度快，Sample Methods是演示和测试用
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091227-681e8837fa0b4051bb3377528ed6f28c.png)
缺省211端口
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091256-bd5e1870cd084a26ba8c216e8fe52ef6.png)
使用TDSServerModule作为数据服务提供主体，非常方便变更为Service应用服务
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091323-98e930031f2644c08e58758d9f5ca529.png)
（2）设置服务器数据
在TDSServerModule中设置数据，为简便起见，采用BDE引擎的DBDEMOS下animals.dbf数据库，有文字也有图片，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091347-50092be9ed77408a8b8e7012180be194.png)
放置一个TDataSetProvider连接该数据源，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091410-8b943c80cc6c4127904551292d7af5b6.png)
服务器至此设计完成，没有编写一行代码，只是调整了部分控件和窗体的名称。手动启动该应用服务程序。
（3）新建Android客户端程序
新建一个android客户端程序，在工程中增加一个TDataModule模块，用于放置与应用服务器的连接和数据，在模块窗体上放置TSQLConnection、TDSPProviderConnection、TClientDataSet三个控件，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091425-90b280f0d0314ccb8cf48dc165034d85.png)
其中TSQLConnection的属性设置中LoginPrompt要设为False，TDSPProviderConnection的属性设置如下：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091433-cd55918928d24fa29e157660acf6e8e5.png)
其中ServerClassName是指应用服务器上作为数据服务提供主体的TDSServerModule的实例类名称，在这里我习惯性地重新命名了，缺省一般是TServerMethods1。TClientDataSet的设置如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091439-1507353250b04e15a51f3cb4315ca4bf.png)
为实现应用服务器上Sample Methods在客户端的调用，需要创建服务类在客户端的实现类，右键点击TSQLConnection选择生成，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091447-954e94e6d60a472691fe9ec89ff58ec4.png)
新生成的类定义如下：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091453-1a69541be686451e91fa5e6f4c246660.png)
以上过程完全同Windows下的DataSnap客户端开发。
（4）Android界面显示数据
Android下对数据的显示，与Windows下开发最大的区别是，无法使用TDBEdit一类的数据感应控件，取而代之的是标准控件，通过LiveBindings技术实现数据感应。要实现该过程，首先是在窗体上放置用于数据展示的标准控件，这里采用了TListBox和TGrid，通过TTabControl分开，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091506-d6c3017e75c44696b4dcae043a5e15ff.png)
IP和Port输入框是为了更灵活地连接服务器，下面的按钮OnClick事件代码如下：
procedure TfrmMain.Button1Click(Sender: TObject);
var
dm : TdmServerMethodsClient;
begin
try
//连接指定IP和Port的应用服务器
dmMain.SQLConn.Close;
dmMain.SQLConn.Params.Values\['HostName'\] := edtIP.Text;
dmMain.SQLConn.Params.Values\['Port'\] := edtPort.Text;
try
dmMain.SQLConn.Open;
try
//创建应用服务器上的Sample Methods在客户端的实现类
dm := TdmServerMethodsClient.Create(dmMain.SQLConn.DBXConnection);
//执行服务器上的方法
ShowMessage(dm.ReverseString(edtIP.Text));
finally
dm.Free;
end;
//开启客户端数据集
dmMain.cdsanimals.Close;
dmMain.cdsanimals.Open;
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
dmMain.SQLConn.Close;
end;
end;
客户端界面与数据集之间采用LiveBindings方式，最好是打开LiveBindings设计页面，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091515-17e8c8f7e841452f9a558ece3d806da0.png)
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091518-d3e3cf21139e412cafa0f0bf41d1a490.png)
由于TListBox只能显示一个字段数据，所以用另外一个窗体单独显示某条记录的详细信息，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091524-51972918aac74acc9baf5fada657bc9a.png)
启动并运行，点击按钮执行服务器函数后界面如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091540-7d82b1e818c64885a8d09feaad65274f.png)
TGrid展示数据如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091552-c98eb813d0a840f99b52282a00962182.png)
TlistBox展示数据如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091605-c5f35d214e20476c8b9f36f7e2672559.png)
点击某条记录后，显示明细窗体，如下图：
[](https://yq.aliyun.com/go/articleRenderRedirect?url=http%3A%2F%2Fimages.cnitblog.com%2Fblog%2F124433%2F201310%2F17091611-ab9bcc02116e4a119374ed36fa8457b6.png)
结论：
（1）Android下开发DataSnap客户端，对数据的处理和服务函数调用与Windows下一致；
（2）Android客户端展示不能使用数据感应控件，只能使用标准控件，通过LiveBindings技术来实现数据关联；
（3）Windows下使用TClientDataSet需要用到Midas.dll，在Android下这个问题不存在了，也不需要单独部署Midas支持的相关文件，但是看材料iOS下好像还要部署，没试过
- 1.制作Android Splash启动界面
- 2.delphi之完美Splash方案
- 3. Android实例-解决虚拟键盘遮挡问题
- 0.Android开发小技巧
- 设 置 您 的 开 发 环 境 Windows PC（Android）
- Delphi XE控件
- 手机屏幕自适应程序问题
- 手势操作
- delphi xeandroid对硬件操作
- Datasnap
- Delphi XE 10 跨平台三层数据库应用教程
- 开发数据库三层应用的DataSnap
- ListView
- delphi xe10之控件 listview 的强大功能
- FMX.TListView的基本用法
- 初探ListView 的使用方法
- Delphi 常用控件之TlistView总结
- ListView基本用法大全
- android实现透明度可以调整的对话框
- android 获取网络状态
- FMXUI
- FMXUI - ListView用法简介