[分享]在X3中调用远程Java**

alang

部署
在X3中可以通过Hessian协议，调用部署在Web服务器上的Serverlet。在Serverlet的web.xml中提供出远程调用的接口与实现类即可。

在这个案例中，web.xml提供了Sample接口（源码：src\java\com\justep\hessian\Sample.java），指定了Sample接口的实现类：SampleImpl（源码：src\java\com\justep\hessian\SampleImpl.java）
打开X3 Studio，复制src\x3\ SampleFunc到任意目录，修改主窗体中TMainForm.BizFormCreate方法，将：FServer := THessianSever.Create('http://localhost/HessianCallSample/');这行中的'http://localhost/HessianCallSample/'根据实际情况修改即可运行。
调用约定
ReturnValue := FServer.Call('methodName', [Parameter1, Parameter2, ..., ParameterN]);
传入参数个数不限，只读。
返回值类型为object。
可以传递的参数类型与返回值的类型
在本案例中，调用了FServer.Call('methodName', [Parameter1, Parameter2, ..., ParameterN])这样的方法，这个就是调用Serverlet中提供的接口。
其可以传递的参数包含（括号中是java类型）：
1.        基础类型：Byte（byte）、Integer（int）、Double（double）、Int64（long）、string（String）
2.        数组：元素类型为1、3的数组
3.        类：以1、2为域的类型
类映射
在X3中的类，与Java中的类作为参数类型与返回值类型的时候，需要做类型映射，方法：FServer.JavaClassMapping.Add('com.justep.hessian.InParameter', InParameter);
第一个参数为完整的Java class name，第二个参数为X3中的类
案例如何导入X3

点击上图按钮

选中我的电脑，确定。

展开我的电脑

展开到案例所在目录，选中测试功能，右键复制，然后粘贴到业务模型下的任意目录中。

这样就成功了，然后可以运行了。运行之前不要忘记部署Serverlet启动Web服务启动。

alang

平台上调用例子：
unit MainForm;

interface

uses
  Business.System, Business.Forms,
  HessianRPC;

type
  TMainForm = class(TForm)
    btnHelloWorld: TButton;
    btnAdd: TButton;
    btnObject: TButton;
    procedure BizFormCreate(Sender: TObject);
    procedure btnHelloWorldClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnObjectClick(Sender: TObject);
  private
    FServer: THessianSever;
  public
    {public declarations}
  end;

  InParameter = class
  public
    intField: Integer;
    stringField: string;
  end;

  OutParameter = class
  public
    intField: Integer;
    stringField: string;
  end;

implementation

procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  FServer := THessianSever.Create('http://localhost/HessianCallSample/');

  // 注册类型映射
  FServer.JavaClassMapping.Add('com.justep.hessian.InParameter', InParameter);
  FServer.JavaClassMapping.Add('com.justep.hessian.OutParameter', OutParameter);
end;

procedure TMainForm.btnHelloWorldClick(Sender: TObject);
begin
  JSDialogs.ShowMsg(FServer.Call('helloWorld', []) as System.String, 'Hessian Call Sample');
end;

procedure TMainForm.btnAddClick(Sender: TObject);
var
  o: object;
  i: Integer;
begin
  o := FServer.Call('add', [1, 2]);
  i := Integer(o);
  JSDialogs.ShowMsg(SysUtils.IntToStr(i), 'add');
end;

procedure TMainForm.btnObjectClick(Sender: TObject);
var
  inObj: InParameter;
  outObj: OutParameter;
begin
  inObj := InParameter.Create;
  inObj.intField := 1;
  inObj.stringField := 'a';
  outObj := FServer.Call('objectParamterCall', [inObj]) as OutParameter;
  JSDialogs.ShowMsg('intField: ' + SysUtils.IntToStr(outObj.intField) +
    #13#10'stringField: ' + outObj.stringField, 'objectParamterCall');
end;

end.

alang

java实现代码：
package com.justep.hessian;

public class SampleImpl implements Sample {
        public String helloWorld() {
                return "Hello world!";
        }

        public int add(int a, int b) {
                return a + b;
        }

        public OutParameter objectParamterCall(InParameter in) {
                OutParameter r = new OutParameter();
                r.intField = in.intField;
                r.stringField = in.stringField;
                return r;
        }
}

SMP

调用两个Jar的实现方法：
    首先一个原则是，除非不得已，系统原理上通过重载机制基本上都可以用一个Servlet来实现的。
    调用多个Servlet与调用一个Servlet在配置上的差别是在Web.xml中下面这个片段
        <servlet-mapping>
                <servlet-name>HessianCallSample1</servlet-name>
                <url-pattern>/Hessian</url-pattern>
        </servlet-mapping>
基本url-pattern>中必须各自有各自的名子并且不能与ServletName重复。
Servlet片段如下：
        <servlet>
                <description>A sample of hessian call.</description>
                <display-name>HessianCallSample1</display-name>
                <servlet-name>HessianCallSample1</servlet-name>
                <servlet-class>com.caucho.hessian.server.HessianServlet</servlet-class>
                <init-param>
                        <param-name>home-class</param-name>
                        <param-value>One.One.One</param-value>
                </init-param>
                <init-param>
                        <param-name>home-api</param-name>
                        <param-value>One.One.OneI</param-value>
                </init-param>
        </servlet>
这样调用方法如下：
var
  lServer: THessianServer;
  lR: string;
begin                                                                  
  lServer := THessianServer.Create('http://192.168.1.123:84/x3/Hessian');
  try
    lR := lServer.Call('getOne', [])as System.String;
    jsDialogs.ShowMsg(lR, '');
  finally
  end;

再来看第二个Servlet
        <servlet>
                <description>A sample of hessian calldsf</description>
                <display-name>AAAA</display-name>
                <servlet-name>AAAA</servlet-name>
                <servlet-class>com.caucho.hessian.server.HessianServlet</servlet-class>                                                          
                <init-param>
                        <param-name>home-class</param-name>
                        <param-value>two.two.Two</param-value>
                </init-param>
                <init-param>
                        <param-name>home-api</param-name>
                        <param-value>two.two.TwoI</param-value>
                </init-param>
        </servlet>


ServletMapping

        <servlet-mapping>
                <servlet-name>AAAA</servlet-name>
                <url-pattern>/AA</url-pattern>
        </servlet-mapping>

调用如下：

var
  lServer: THessianServer;
  lR: string;
begin
  lServer := THessianServer.Create('http://192.168.1.123:84/x3/AA');
  try
    lR := lServer.Call('getTwo', [])as System.String;
    jsDialogs.ShowMsg(lR, '');
  finally
  end;


One、OneI、Two、TwoI中的代码与例子中的代码原理上一样只是返回了一个简单的字符串。

[U][B]重点第二个Servletmapping中的urlpattern不能与其它重复![/B] [/U]

SMP

接上篇：
     系统中按上述做法之后并系统数据并没有，加密压缩传输，如果系统中想用加密压缩传输这个特性的话，Serverlet的Class可以用BizServer的ServletClass,这样就可以用X3自带的加密压缩功能了，但调用方法也要改成如下：
var
  lServer: THessianBizServer;
  lR: string;
begin
  lServer := THessianBizServer.Create();
  try
    lServer.AddURL('http://192.168.1.123:84/x3/AA');
    lR := lServer.Call('getTwo', [])as System.String;
    jsDialogs.ShowMsg(lR, '');
  finally
  end;

注意： 这里THessianServer 改成了THessianBizServer并且传入URL的方式 也变了!

pure1437

这样调用是不是太麻烦了！？！？

bfaomei

相当麻烦