zoukankan      html  css  js  c++  java
  • 使用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 了。

  • 相关阅读:
    图像的分离合并
    图像旋转与格式转换
    图像的剪切和粘贴
    缩放图像
    遮罩混合
    透明度混合
    Anaconda安装jieba、snownlp等外部包
    anaconda3 中pip安装模块方法
    PHP读取文本文件内容并随机输出任意一行
    php读取在线远程txt文档内容到数组并遍历
  • 原文地址:https://www.cnblogs.com/xalion/p/2471092.html
Copyright © 2011-2022 走看看