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