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代码

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)); // 失败
}