Question

如何在java中使用jna.jar调用Delphi写的dll

Answer 1

//delphi代码
procedure Hello(); stdcall;
begin
// Writeln('Hello');
ShowMessage('Hello');
end;

procedure HelloInt(i: integer); stdcall;
begin
ShowMessage('Hello'+ IntToStr(i));
end;

procedure HelloRRR(var i: integer); stdcall;
begin
ShowMessage('Hello'+ IntToStr(i));
i := 999;
end;

function HelloStr(str: Integer): Integer; stdcall;
var
s: string;
begin
Result := -1;
s := IntToStr(str);
// Writeln('Hello'+s);
ShowMessage('Hello'+s);
// s := '44034479041101200025318.xml';
str := 100;//PChar(s);
Result := 0;
end;

java代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

public interface CLibrary extends Library {
CLibrary INSTANCE = (CLibrary) Native.loadLibrary("testdll", CLibrary.class); // 引入库文件

public int HelloStr(int i); // 声明方法
public void Hello();
public void HelloInt(Integer i);
public void HelloRRR(Integer i);
}

public static void main(String[] args) {
CLibrary.INSTANCE.Hello(); // 成功
CLibrary.INSTANCE.HelloInt(Integer.valueOf(16)); // 成功
Integer k = 18;
CLibrary.INSTANCE.HelloRRR(k); // 失败
System.out.println("k="+k);
System.out.println("java call dll result="+CLibrary.INSTANCE.HelloStr(20)); // 失败
}