【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提供大家下载。