delphi java jni 互通_Java与delphi动态链接库的数据交互（一）

本次学习的主要内容：

1、java给delphi传递一个String类型的参数，由delphi打印出来；

2、delphi返回一个int类型的结果给java；

3、java调用delphi显示一个最简单的窗体。

—————————————————————————————————————————————————————————————————————————————

1、准备工作：

下载大神编写的delphi和java 数据互通的delphi单元文件：JNI.pas，下载地址：http://www.blogjava.net/Files/alvin/jni_pas.zip。

注：由于我用的delphi xe版本，而最新的JNI.pas据说可以在http://www.delphi-jedi.org/上边下载，但是我英语太烂，确实没有找到，知道的大神请告知一下， 谢谢！下载下来的JNI.pas是很老的版本，所以我对JNI中包PChar和PAnsiChar转换错误的地方做了修改。

2、写java类：

我们需要写一个java的类，通过申明调用由delphi实现的native方法来达到目的，很明显，native的方法需要有delphi来实现，而我们java代码不需要实现该方法：

package test.nativeTest;

/**

* java与delphi的数据交换

*

* @author dendy

*

*/

public class NativeTestByDelphi {

static {

// 加载动态链接库

System.loadLibrary("nativetest");

}

/**

* 直接打印一个字符串

*

* @param s

*/

public static native void say(String s);

/**

* 显示一个窗体界面

*/

public static native void showWindow();

/**

* 获取一个整型数据

*

* @return

*/

public static native int getVisitedCount();

public static void main(String[] args) {

say("你还好吗？");

showWindow();

System.out.println("visited count : " + getVisitedCount());

}

}

3、创建delphi的工程：

直接新建一个dll工程，在工程中加入JNI.pas，这样可以自动引入到dll项目文件中。

在delphi这边编写java能够访问的方法时，JNI.pas帮我们写好了java和delphi数据交互的各个类和数据类型，需要用到时可以参看JNI.pas的源码。

java与jni.pas对应的类型对照

java的数据类型

JNI.pas中定义的数据类型

delphi的数据类型

byte

JByte

ShortInt

char

JChar

WideChar

short

JShort

SmallInt

int

JInt

Integer

long

JLong

Int64

float

JFloat

Single

double

JDouble

Double

boolean

JBoolean

Boolean

JNI.pas中数据类型的定义如下：

// JNI Types

JBoolean = Boolean;

JChar = WideChar;

JShort = Smallint;

JFloat = Single;

JDouble = Double;

JSize = JInt;

_JObject = record

end;

JObject = ^_JObject;

JClass = JObject;

JThrowable = JObject;

JString = JObject;

JArray = JObject;

JBooleanArray = JArray;

JByteArray = JArray;

JCharArray = JArray;

JShortArray = JArray;

JIntArray = JArray;

JLongArray = JArray;

JFloatArray = JArray;

JDoubleArray = JArray;

JObjectArray = JArray;

JWeak = JObject;

JRef = JObject;

JValue = packed record

case Integer of

0:

(z: JBoolean);

1:

(b: JByte);

2:

(c: JChar);

3:

(s: JShort);

4:

(i: JInt);

5:

(j: JLong);

6:

(f: JFloat);

7:

(d: JDouble);

8:

(l: JObject);

end;

JFieldID = ^_JFieldID;

_JFieldID = record

end;

JMethodID = ^_JMethodID;

_JMethodID = record

end;

PPointer = ^Pointer;

PJByte = ^JByte;

PJBoolean = ^JBoolean;

PJChar = ^JChar;

PJShort = ^JShort;

PJInt = ^JInt;

PJLong = ^JLong;

PJFloat = ^JFloat;

PJDouble = ^JDouble;

PJString = ^JString;

PJSize = ^JSize;

PJClass = ^JClass;

PJObject = ^JObject;

PJThrowable = ^JThrowable;

PJArray = ^JArray;

PJByteArray = ^JByteArray;

PJBooleanArray = ^JBooleanArray;

PJCharArray = ^JCharArray;

PJShortArray = ^JShortArray;

PJIntArray = ^JIntArray;

PJLongArray = ^JLongArray;

PJFloatArray = ^JFloatArray;

PJDoubleArray = ^JDoubleArray;

PJObjectArray = ^JObjectArray;

PJFieldID = ^JFieldID;

PJMethodID = ^JMethodID;

PJValue = ^JValue;

PJWeak = ^JWeak;

PJRef = ^JRef;

delphi dll代码：

library nativetest;

{ 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\JNI.pas',

form in 'form.pas' {Form1};

var

cnt : Integer;

{$R *.res}

{******************************************************************************

注意命名规则：Java和方法的完整名称(带全类名)，其中的点号修改为下划线

参数：

PEnv：JNI.pas中定义的类型,delphi与Java数据交互的通道。

Obj：暂时不知道是干什么的？

s ：java传递过来的参数，java的String类型对应JNI.pas中定义的JString类型.

******************************************************************************}

procedure Java_test_nativeTest_NativeTestByDelphi_say(PEnv: PJNIenv;

Obj: JObject; s: JString); stdcall;

var

JVM: TJNIEnv;

begin

JVM := TJNIEnv.Create(PEnv);

writeln(JVM.UnicodeJStringToString(s));

JVM.Free;

end;

function Java_test_nativeTest_NativeTestByDelphi_getVisitedCount(PEnv: PJNIenv;

Obj: JObject) : JInt; stdcall;

var

JVM: TJNIEnv;

begin

cnt := cnt + 1;

JVM := TJNIEnv.Create(PEnv);

JVM.Free;

Result := cnt;

end;

procedure Java_test_nativeTest_NativeTestByDelphi_showWindow(PEnv: PJNIenv;

Obj: JObject); stdcall;

var

form: TForm1;

begin

form := TForm1.Create(nil);

form.ShowModal;

end;

{导出方法，这样java那边才可以调用}

exports

Java_test_nativeTest_NativeTestByDelphi_say,

Java_test_nativeTest_NativeTestByDelphi_showWindow,

Java_test_nativeTest_NativeTestByDelphi_getVisitedCount;

begin

end.

form的代码很简单，就一个label打印一句话而已，这里就不贴出来了.

4、注意：

运行的时候，需要将dll放到class文件的根目录，我这里放到跟test文件夹同一级中的，然后调用java命令执行类：java test/nativeTest/NativeTestByDelphi，在eclipse执行不成功，应该是要修改执行参数，还没研究，搞定了再来写上……