|
| 盒子资源分类 |
![]() |
|
|
|
|
| Delphi XE7三层DEMO |
![]() |
| 关键字：Delphi XE7 安卓DEMO |
| 来 自：原创 |
| 平 台：Win2K/2003/NT/XP,WIN8,ANDIORD |
下载所需：0 火柴 |
| 深浅度：中级 |
完成时间：2015/1/20 |
| 发布者：aadmwdk (奖励50火柴) |
发布时间：2015/1/24 |
| 编辑器：Delphi7 |
语 种：简体中文 |
| 分 类：应用软件 |
下载浏览：1170/24245 |
|
|
|
|
|
Delphi XE7技术：Datasnap三层
Server端：
windows 8操作系统下win 32应用程序；
TServerMethods1中，定义了过程（参数strSQL为SQL语句）：function MyGetData(const strSQL: string): OleVariant;过程中，使用了TClientDataSet数据集的Data属性回传数据；
Client端：
windows 8操作系统下win 32应用程序以及安卓中的apk
优点：
delphi开发方便，不需要了解java代码，直接用delphi开发。对于原有老delphi程序员开发手机平台方便。
缺点：
开发出来的程序有点大，唉…… |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论12条
当前显示最后6条评论
|
| tanglitao |
2016/4/10 17:18:17 |
| 不错，要是有详细说明就好了 |
| aadmwdk |
2016/8/11 11:48:25 |
| 对于delphi的老司机们，access数据库改成sql server问题不大。因为工作不再用delphi了，所以早已经把XE卸载。只在虚拟机安装了一个delphi 7，偶尔写写小工具。这个例子，我是在网上搜资料来写的，当时没有明确的设计思路。所以，没有详细说明，各位见谅。 |
| baifafa |
2017/3/8 11:39:38 |
function TServerMethods1.MyGetData(const strSQL: string): OleVariant;
begin
ClientDataSet1.Close;
try
ADOQuery1.Close;
ADOQuery1.SQL.Text:= strSQL;
ADOQuery1.Open;
strErr:=ADOQuery1.fieldByname('id').value; //这里可以取到值，可能是后面ClientDataSet1.Open出错。
----------
我是加了一个DSHTTPService1，可以在IE下测试，例子中的另2个函数取值正常 |
| baifafa |
2017/3/10 10:18:34 |
把返回改一下：
function TServerMethods1.MyGetData(const strSQL: string): tdataset;//OleVariant;
begin
ClientDataSet1.Close;
try
ADOQuery1.Close;
ADOQuery1.SQL.Text:= strSQL;
ADOQuery1.Open;
Result:= ADOQuery1;
----------
这样在IE下也能返回文本结构数据了，客户端用xDataJson可以方便解析 |
| luckywangxw2 |
2017/8/8 23:50:22 |
| 怎么生成安卓的apk文件啊，我想在手机上试试 |
| luckywangxw2 |
2017/8/9 9:39:11 |
| 怎么编译成Android的apk 文件啊，清高手指教 |
| 我要发表评论 |
查看全部评论 |
|
|
|
盒子资源分类大树
