用Delphi开发JNI应用

更新日期：2008-07-11 点击：

JNI(Java Native Interface，Java本地接口)技术大家都不陌生，它可以帮助解决Java访问底层硬件的局限和执行效率的提高。关于JNI的开发，大多数资料讨论的都是如何用C/C++语言开发JNI，甚至于JDK也提供了一个javah工具来自动生成C语言程序框架。但是，对于广大的Delphi程序员来说，难道就不能用自己喜爱的Delphi与Java互通消息了吗？

通过对javah生成的C程序框架和JDK中的jni.h文件的分析，我们发现，Java利用JNI访问本地代码的关键在于jni.h中定义的JNINativeInterface_这个结构(Struct)，如果用Delhpi语言改写它的定义，应该也可以开发JNI的本地代码。幸运的是，在网上有现成的代码可以帮助你完成这个繁杂的工作，在http://delphi-jedi.org/上提供了一个jni.pas文件，就是用Delphi语言重写的jni.h。我们只需在自己的Delphi工程中加入jni.pas就可以方便地开发出基于Delphi语言的JNI本地代码。

本文将利用jni.pas，讨论用Delphi语言开发JNI本地代码的基本方法。

先来看一个经典的HelloWorld例子。编写以下Java代码：

class HelloWorld
{
　　public native void displayHelloWorld();
　　static
　　{
　　　 System.loadLibrary("HelloWorldImpl");
　　}
}

这段代码声明了一个本地方法displayHelloWorld，它没有参数，也没有返回值，但是希望它能在屏幕上打印出“您好！中国。”字样。这个任务我们打算交给了本地的Delphi来实现。同时，在这个类的静态域中，用System.loadLibrary()方法装载HelloWorldImpl.dll。注意，这里只需要给出文件名而不需要给出扩展名dll。

这时候，如果在我们的Java程序中使用HelloWorld类的displayHelloWorld方法，系统将抛出一个java.lang.UnsatisfiedLinkError的错误，因为我们还没有为它实现本地代码。

下面再看一下在Delphi中的本地代码的实现。新建一个DLL工程，工程名为HelloWorldImpl，输入以下代码：

Uses
JNI;
procedure Java_HelloWorld_displayHelloWorld(PEnv: PJNIEnv; Obj: JObject);stdcall;
begin
Writeln('您好！中国。');
end;
exports
Java_HelloWorld_DisplayHelloWorld;
end.

这段代码首先导入jni.pas单元。然后实现了一个叫Java_HelloWorld_displayHelloWorld的过程，这个过程的命名很有讲究，它以Java开头，用下划线将Java类的包名、类名和方法名连起来。这个命名方法不能有误，否则，Java类将无法将nativ方法与它对应起来。同时，在Win32平台上，此过程的调用方式只能声明为stdcall。虽然在HelloWorld类中声明的本地方法没有参数，但在Delphi中实现的具体过程则带有两个参数：PEnv : PJNIEnv和Obj : JObject。（这两种类型都是在jni.pas中定义的）。其中，PEnv参数代表了Jvm环境，而Obj参数则代表调用此过程的Java对象。当然，这两个参数，在我们这个简单的例子中是不会用到的。因为我们编译的是dll文件，所以在exports需要输出这个方法。

编译Delphi工程，生成HelloWorldImp.dll文件，放在运行时系统能够找到的目录，一般是当前目录下，并编写调用HelloWorld类的Java类如下：

class MainTest
{
　 public static void main(String[] args)
　 {
　　 new HelloWorld().displayHelloWorld();
　 }
}

运行它，如果控制台输出了“您好！中国。”，恭喜你，你已经成功地用Delphi开发出第一个JNI应用了。

接下来，我们稍稍提高一点，来研究一下参数的传递。还是HelloWorld，修改刚才写的displayHelloWorld方法，让显示的字符串由Java类动态确定。新的displayHelloWorld方法的Java代码如下：