使用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 了。