Question

jna 调用delphi写的dll如何传结构体地址?

Answer 1

delphi中定义了一个函数,原型如下: Function WriteICCardMessage(var CustomerInfo:PCustomerCard) : integer ; stdcall ; begin CustomerInfo.CardNo:='11111'; CustomerInfo.CardName:='wwww'; CustomerInfo.Money:=221; CustomerInfo.sfType:=1; Result:=1; end; 写一个java程序调用该方法 public interface CallTestDll extends StdCallLibrary { CallTestDll INSTANCE = (CallTestDll) Native.loadLibrary( "Project2.dll", CallTestDll.class); public int WriteICCardMessage(Object ppUser); } 在main方法里面使用如下写法 CustomerCard customerCard=new CustomerCard(); PointerByReference ppUser=new PointerByReference(customerCard.getPointer()); customerCard.write(); System.out.println(callReadCard.WriteICCardMessage(ppUser)); System.out.println(customerCard.sfType); 无法获取在dll里面修改后的结构体的值.