由于目前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 Sub Sub 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 TkbmMWClient Dim Ip As EditText Dim Port As EditText Dim mLog As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Main") Ip.Text = "127.0.0.1" Port.Text = "3000" End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ConnectBtn_Click SimpleClient.Connect(Ip.Text,Port.Text) End Sub Sub SendBtn_Click Dim args(2) As String args(0)=100 mLog.Text="结果为"& SimpleClient.SendRequest ("xalion_srv","","SUMALL",args) End Sub
编译运行,就可以成功调用服务端过程了。
怎么样,还算方便吧。
目前对于远程数据的访问,可以通过返回JSON 传,然后解析再显示到客户端。
更方便的操作,估计只能等到delphi 支持Android 了。