使用delphi 开发多层应用(十三)使用Basic4android 直接访问kbmMW server

 由于目前delphi xe2 还不直接支持Android 的开发,因此kbmMW 客户端的功能也没办法直接在Android 上运行。

由于kbmMW 为了与java 应用程序通讯,在企业版里面提供了一个JavaClinet. 具体文件名为kbmMWClient.jar。

而在basci4android 可以直接使用这个jar. 也就是说通过kbmMW 的javaclient 可以直接访问kbmMW 的服务器。

当然由于客户端没有kbmMemTable的功能,一次只能是访问远程服务过程,无法直接实现数据库的存取。

在Basci4android 里面访问kbmMW 很简单,只要引用kbmMWClient 库就可以了。其他就非常类似delphi 客户端了。

服务器就用我们以前的,主要是basci4android 客户端的代码。

'Activity module
Sub Process_Globals'These global variables will be declared once when the application starts.'These variables can be accessed from all modules.End SubSub Globals'These global variables will be redeclared each time the activity is created.'These variables can only be accessed from this module.Dim SimpleClient As TkbmMWClientDim Ip As EditTextDim Port As EditTextDim mLog As EditText
End SubSub Activity_Create(FirstTime As Boolean)Activity.LoadLayout("Main")Ip.Text = "127.0.0.1"Port.Text = "3000"
End SubSub Activity_ResumeEnd SubSub Activity_Pause (UserClosed As Boolean)End SubSub ConnectBtn_ClickSimpleClient.Connect(Ip.Text,Port.Text)    
End Sub
Sub SendBtn_Click   Dim args(2) As Stringargs(0)=100mLog.Text="结果为"& SimpleClient.SendRequest ("xalion_srv","","SUMALL",args)End Sub

编译运行,就可以成功调用服务端过程了。

怎么样,还算方便吧。

目前对于远程数据的访问,可以通过返回JSON 传,然后解析再显示到客户端。

更方便的操作,估计只能等到delphi 支持Android 了。

 

转载于:https://www.cnblogs.com/xalion/archive/2012/04/26/2471092.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/495031.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

赛灵思收购深鉴科技:收购额或将3-4亿美元 A轮投资方变收购方

来源:声学在线继去年5月宣布投资中国AI初创企业深鉴科技后,自适应和智能计算企业赛灵思公司Xilinx今日宣布已经完成对深鉴科技的收购。官方消息并未对外披露此次的具体交易财务条款。不过,据业内人士对声学在线透露,此次赛灵思收购…

探Button控件的Click事件发生始末

先贴结果图&#xff1a; 点击后&#xff1a; 页面代码&#xff1a; <html xmlns"http://www.w3.org/1999/xhtml"> <head runat"server"><title></title> </head> <body><form id"form1" runat"serv…

AI大神Yann LeCun谈近期AI发展:最聪明的AI在常识方面还不如猫

来源&#xff1a;网易智能摘要&#xff1a;从虚拟助手到巨大的商业效益&#xff0c;人工智能正在重塑信息时代&#xff0c;作为著名的人工智能先驱者之一&#xff0c;Yann LeCun又是怎么看待这一领域的发展、近期的变化和潜力的呢&#xff1f;从虚拟助手到巨大的商业效益&#…

淘宝JavaScript 编码风格规范

行与缩进 语句行 尽可能不要让每行超过 120 个字符; 语句必须以分号作为结束符, 不要忽略分号; 空格 数值操作符(如, /-/*/% 等)两边留空; 赋值操作符/等价判断符两边留一空格; for 循环条件中, 分号后留一空格; 变量声明语句, 数组值, 对象值及函数参数值中的逗号后留一空格; …

美科学基金会欲向公众征集想法

来源&#xff1a;中国科学报你有个或许会改变世界的点子&#xff1f;美国国家科学基金会&#xff08;NSF&#xff09;洗耳恭听。这个位于弗吉尼亚州亚历山大市、拥有78亿美元经费的研究机构已从科学家那里获得了很多好的研究计划。虽然这已经超出了其能资助的范围&#xff0c;但…

解决i9001WiFi频繁断线

去年年底入手Galaxy S Plus&#xff0c;玩安卓快半年时间&#xff0c;最近为了方便使用Airdroid对手机进行管理&#xff0c;在路由器中设置了IP和MAC绑定&#xff0c;却发现每隔大约1分钟或者更短时间&#xff0c;WiFi连接就会自动断开&#xff0c;求助Google&#xff0c;有一位…

学习编程的帷幕

我是康永兴&#xff0c;是陕西科技大学的一名本科生&#xff0c;来自河北张家口市&#xff0c;是一个阳光大男孩。我之前对编程这方面有过了解&#xff0c;准备以后从事这方面的工作&#xff0c;希望可以通过自己的努力在IT界创造一片属于自己的天地。当然&#xff0c;我现在对…

专家把脉,深入分析八种前景看好的物联网业务形态

来源&#xff1a;通信世界全媒体摘要&#xff1a;物联网将会为经济带来新动力&#xff0c;对社会带来新变革&#xff0c;它的业务形态也在发展变化。未来随着更多成熟的业务场景的出现&#xff0c;会演变出更多有前景的应用形态&#xff0c;也会带来更多的市场机会。万物互联是…

opacity:0.99;

IE浏览器似乎给body元素默认了一个相对定位属性&#xff08;position: relative&#xff09;”。其实&#xff0c;IE下&#xff0c;z-index为负值的层确实是在body下的。大概是因为body的默认背景色是transparent(我猜的&#xff0c;alert出来的为空)&#xff0c;html的默认背景…

人工智能产业的发展是什么样的呢?

来源&#xff1a;人工智能大健康引领AI产业发展的技术竞赛&#xff0c;主要是巨头之间的角力。由于AI产业核心技术和资源掌握在巨头企业手里&#xff0c;而巨头企业在产业中的资源和布局&#xff0c;都是创业公司所无法比拟的&#xff0c;所以巨头引领着AI发展。目前&#xff0…

个性化推荐

“探索推荐引擎内部的秘密”系列将带领读者从浅入深的学习探索推荐引擎的机制&#xff0c;实现方法&#xff0c;其中还涉及一些基本的优化方法&#xff0c;例如聚类和分类的应用。同时在理论讲解的基础上&#xff0c;还会结合 Apache Mahout 介绍如何在大规模数据上实现各种推荐…

这个程序没毛病

#include <stdio.h> int main() {int a[3]{11,33,22},i,j;for(i0;i<2;i)&#xff1b;{for(ji1;j<3;j)&#xff1b;{if(a[j]>a[i]){int k;ka[i];a[i]a[j];a[j]k;}}}for(j0;j<3;j)&#xff1b;{printf("%d ",a[j]);}return 0;} 这个程序没毛病&#…

报告 | 从20世纪70年代至今,自动驾驶汽车的发展经历了哪些历史性的变革?

来源&#xff1a;学术头条摘要&#xff1a;当今&#xff0c;无人驾驶技术已经成为整个汽车产业的最新发展方向。科研院校、汽车制造厂商、科技公司、无人驾驶汽车创业公司以及汽车零部件供应商在无人驾驶技术领域进行不断地探索。今天我们为大家梳理一下无人驾驶汽车的国内外发…

访问List的itemRenderer的组件中定义的方法

主程序文件List1.mxml: 1 <?xml version"1.0" encoding"utf-8" ?>2 <mx:Application xmlns:mx"http://www.adobe.com/2006/mxml">3 <mx:Style>4 Application5 {6 font-size:12px;7 }8 </mx:Style>…

这个C怎么了?求大佬指教

题目为&#xff1a;计算1/1-1/21/3-1/41/5 …… 1/99 - 1/100 的值。 #include <stdio.h>int main() {double sum0;int i0;int k0;for(i1;i<100;i){double j0.0;if(i%20){k;j1/k;sum sum - j;}else{k;j1/k;sumsumj;}}printf("1/1-1/21/3......-1/100%d\n"…

2012年5月份第2周51Aspx源码发布详情

图像相似度比较源码 2012-5-11[VS2010]程序介绍&#xff1a;第一步&#xff0c;缩小尺寸。将图片缩小到8x8的尺寸&#xff0c;总共64个像素。这一步的作用是去除图片的细节&#xff0c;只保留结构、明暗等基本信息&#xff0c;摒弃不同尺寸、比例带来的图片差异。第二步&#x…

量子力学工具箱再添利器—科学家提出高效驱动微型引擎概念

把球推上山坡需要能量。量子引擎或能通过反复测量实现同样的工作。来源&#xff1a;中国科学报要测量一个原子&#xff0c;不可能不扰动它&#xff0c;至少根据量子力学是这样的。但两名物理学家报告称&#xff0c;这一效应似乎有点麻烦&#xff0c;但它可以驱动一个微型引擎以…

四个小时不止是敲了30多行代码,还懂了好多

在某网页看到一题目为&#xff1a;求出0&#xff5e;999之间的所有“水仙花数”并输出。“水仙花数”是指一个三位数&#xff0c;其各位数字的立方和确好等于该数本身&#xff0c;如&#xff1b;153&#xff1d;1&#xff0b;5&#xff0b;3?&#xff0c;则153是一个“水仙花数…

人工智能离不开它——贝叶斯公式的前世今生

来源&#xff1a;图灵人工智能摘要&#xff1a;人工智能、无人驾驶、语音图片识别与大数据有什么关系&#xff1f;海难空难如何搜救&#xff1f;垃圾短信、垃圾邮件如何识别&#xff1f;这些看起来彼此不相关的领域之间会有什么联系吗&#xff1f;答案是&#xff0c;它们都会用…

Ts_半分查找猜数字游戏(初始版),

第一次使用半分查找&#xff0c;勉强可以看 封装函数体 int look(int arr[],int num,int r){int left 0;int right 0;right r;while (left < right) //开始执行半分查找{int midle left (right - left) / 2;if (arr[midle] num){return midle;}els…