[分享]调用服务端的dll函数库**

alang

服务器一个dll函数库，需要在客户端上调用这个函数，通常的做法是利用windows的RPC机制，比如把dll函数库做成一个服务端的对象，在客户端利用CreateRemoteObject的方式创建这个对象，然后调用其中的方法。这样的方式需要服务端开放RPC端口才可以，对于互联网应用不是很安全。

平台中，客户端和服务端通过http协议进行通讯，缺省使用8081端口，也可以配置使用标准的80端口，我们可以利用这个端口去调用服务器端的函数，这个函数其实是在服务端执行的，可以在客户端触发服务端的执行，并且可以传递参数。

基本实现原理是：
  客户端通过调用远程Java程序的方法，调用服务端的一段Java程序（参考：http://bbs.justep.com/forum.php?mod=viewthread&tid=11264）
  服务端的Java程序再调用dll动态连接库

alang

library HelloWorldDll;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes;

{$R *.res}

function HelloWorld(UserName: String): String; stdcall;
begin
  Result := 'Hello World, '+UserName+'!';
end;

exports
  HelloWorld；
  
begin
end.

alang

package com.justep.test;

public class HelloWorldDll {
    static {
        System.loadLibrary("HelloWorldDll");
    }
    public native String HelloWorld(String UserName);
    public static void main(String[] args){
            HelloWorldDll dll = new HelloWorldDll();
            System.out.println(dll.HelloWorld("alang"));
    }
}

alang

3楼的HelloWorld函数需要真实的函数名是
Java_Package名_Class名_函数名
例如上述函数需要在动态库中增加一个函数来转调
函数名为  Java_com_justep_test_HelloWorldDll_HelloWorld

alang

library HelloWorldDll;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes,
  JNI in 'JNI.pas';

{$R *.res}

function HelloWorld(UserName: String): String; stdcall;
begin
  Result := 'Hello World, '+UserName+'!';
end;

function Java_com_justep_test_HelloWorldDll_HelloWorld(PEnv: PJNIEnv; Obj: JObject; UserName: JString): JString; stdcall;
var
  JVM: TJNIEnv;
  AUser: String;
begin
  JVM:= TJNIEnv.Create(PEnv);
  try
    AUser := JVM.UnicodeJStringToString(UserName);
    Result := JVM.NewStringUTF(PChar(HelloWorld(AUser)));
  finally
    JVM.Free;
  end;
end;

exports
  HelloWorld,
  Java_com_justep_test_HelloWorldDll_HelloWorld;
  
begin
end.

alang

此时，运行3楼的main函数已经可以调用动态库得到调用结果了
现在需要把3楼的类包装成war，这样就可以在客户端调用了，包装方法参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=11264）

alang

以下是完整的源代码：
  Delphi写的函数源代码

alang

Java源代码，可以放到Eclipse的workspace目录下，直接使用

alang

平台上调用代码：
先引入 系统空间\系统运行库\Hessian远程调用

uses
  HessianRPC;
procedure TMainForm.Button3Click(Sender: TObject);
var
  FServer: THessianSever;
begin
  FServer := THessianSever.Create('http://127.0.0.1:8081/HelloWorld/');
  Dialogs.Showmessage(ObjectHelper.ToString(FServer.Call('HelloWorld', ['alang'])));
end;

alang

如果服务端是Linux或者Unix，上述做法也是同样有效的，只是函数库不是dll函数库了，而是.so文件了