java调用delphi dll文件_【java】试用JNA调用Delphi的dll方法。

参考文章：http://hi.baidu.com/zuchang319/blog/item/39e7373cf432d2ca9e3d629f.html

首先对方写给我一个dll的方法。可是最开始的时候对方发送来的是一个string的字符串，对于Delphi而言。String应该是一个指针(这个是我本身猜测的)。

而后我是用一下方法进行调用。

package com.duduli.li;

import com.sun.jna.Native;

import com.sun.jna.win32.StdCallLibrary;

public interface JnaUseDelphiDll extends StdCallLibrary{

//加载动态连接库，把库dll文件默认放到系统C盘window目录下的system32文件夹下或者到java的bin目录

JnaUseDelphiDll instance = (JnaUseDelphiDll)Native.loadLibrary("WWServiceCom_3", JnaUseDelphiDll.class);

//对应动态连接库中的方法, 要注意的是 这里的方法必需要和连接库(dll文件)对应的方法名一致

//public int ClearRecord(String addr, int sm);

public String Test2();

}

package com.duduli.li;

public class TestJNA {

/**

* @param args

*/

public static void main(String[] args) {

// TODO Auto-generated method stub

JnaUseDelphiDll jnaDemo = JnaUseDelphiDll.instance;

String s = jnaDemo.Test2();

System.out.println("输出结果为："+s);

}

}

若是有参数的话，须要参考连接信息。

一下代码是从连接从复制过来。

import org.xvolks.jnative.JNative;

import org.xvolks.jnative.Type;

import org.xvolks.jnative.exceptions.NativeException;

public class DLL {

public static void main(String[] args) throws NativeException, IllegalAccessException{

String sb = new String("192.168.17.200");

ClearRecord(sb, 0);

}

public static int ClearRecord(long thandle, String addr, int sm) throws NativeException, IllegalAccessException{

JNative n = null;

n = new JNative("SYC","ClearRecord"); //加载动态库，SYC 为库名，ClearRecord为调用方法

n.setRetVal(Type.INT); //设置方法返回值类型

n.setParameter(0, Type.STRING ,addr); //设置第一个参数值

n.setParameter(1, sm); //设置第二个参数值

n.invoke(); //执行

int result = n.getRetValAsInt(); //得到返回值

System.out.println("返回结果： " + result);

System.out.println("调用的DLL文件名为："+n.getDLLName());

System.out.println("调用的方法名为："+n.getFunctionName());

return result;

}

}

通过测试，对方返回了几个类型:PAnsiChar,String,Pchar.

来进行测试。

对于第一种PAnsiChar是能正确返回数据的。

对于String的方法，会出现乱码，缘由和我或许和我猜测的同样。

对于Pchar的类型。 只能获取到第一个字符。

以上只是做为总结和猜测。另外jna.jar提供你们下载。