原文：http://www.cnblogs.com/delphi007/p/3346061.html
前几天通过Ro搭建webservice，然后在android下调用，虽然已近成功，但是返回的数据库里的中文有乱码一直未得到解决！
rtc6.23版本，已经支持xe5，也支持fmx的android下开发，不多说，需要的请联系购买！
一、创建服务端程序：
1依照官方的demo，创建程序，并添加datamoudel，添加rtc相关服务端控件TRtcHttpServer，TRtcServerModule，TRtcFunctionGroup，TRtcFunction（2个），2个adoquery，一个adoconnection
2，设置控件属性：
设置TRtcHttpServer 的ip，端口
设置TRtcServerModule的functiongropu属性，moudelname，server等
设置2个TRtcFunction的gropu属性为TRtcFunctionGroup，并将一个functionname设置为select，另外一个设置为up（一个获取数据， 一 个更新数据）
设置ado属性（略）
3，编写代码
select的function
procedure TDataModule3.rtcfnctn1Execute(Sender: TRtcConnection; Param: TRtcFunctionInfo; Result: TRtcValue);begin
qry1.Close;
qry1.Open;
DelphiDataSetToRtc(qry1,Result.NewDataSet);//返回result为rtc的dataset
qry1.Close;
end;
up的function
procedure TDataModule3.rtcfnctn2Execute(Sender: TRtcConnection; Param: TRtcFunctionInfo; Result: TRtcValue);
begin
with qry2 do begin
Close;
SQL.Text:=‘‘;
SQL.Text:=‘update 联系人 set 名字=:a, 生日=:b, 年龄=:c where 联系人ID=:d‘;
Parameters.ParamByName(‘a‘).Value:=Param.asString[‘a‘];
Parameters.ParamByName(‘b‘).Value:=Param.asDateTime[‘b‘];
Parameters.ParamByName(‘c‘).Value:=Param.asInteger[‘c‘];
Parameters.ParamByName(‘d‘).Value:=Param.asInteger[‘d‘];
ExecSQL;
Result.asInteger:=ExecSQL;//返回值为影响的行数
end;
end;
服务端其他代码见demo，运行后请点击按钮启动监听