Java Native Access调用Delphi示例(JNI的另一种方式)

library Project1;
uses
Windows,
SysUtils,
StdCtrls;

{$R *.res}
type
Tman = record
name:string;
id:Integer;
end;
PTman=^Tman;
procedure copyw(a:Tman;b:PTman) stdcall;
begin
b.id:=a.id;
b.name:=a.name;
end;
exports
copyw;
begin
end.

import com.sun.jna.Library;
import com.sun.jna.Native;
public class Test {
public interface Project1  extends Library{
Project1 p=(Project1)Native.loadLibrary("Project1",Project1.class);
void copyw(Tman r1,Tman r2);
}

public static void main(String[] args) {
Tman r1 = new Tman();
r1.name = "TEST1";
r1.id = 100;
Tman r2 = new Tman();
r2.name = "t";
r2.id=0;
Project1.p.copyw(r2, r1);
System.out.println(r2.name);
}

public static class Tman extends com.sun.jna.Structure{
public String name;
public short id;
}
}