zoukankan      html  css  js  c++  java
  • 转:RTC搭建android下三层应用程序访问服务器MsSql-服务器端

    原文: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,运行后请点击按钮启动监听

    http://pan.baidu.com/s/1cea38

    Delphi交流群186358713
  • 相关阅读:
    Linux alias 设置快捷命令,打包
    网站改版了
    团队建设经典故事
    easyui中jquery重复引用问题(tab内存泄露问题)
    EasyUI 兼容 IE6 方法总结
    EasyUI datagrid frozencolumn的bug???
    docker-compose快速部署环境笔记
    MySQL获取距离
    Jenkins Publish FTP远程部署过程
    慎用uniapp开发商业级应用
  • 原文地址:https://www.cnblogs.com/carcode/p/4605925.html
Copyright © 2011-2022 走看看