JNA实现Java调用Fortran（f77）

大熊 — Wed, 12 May 2010 14:05:00 GMT

在成功实现Java调用C++之后，接下来想到能否通过JNA实现Java调用Fortran，今天试验了一下，还是比较容易的。

网上有一个Java调用F95的例子，但是我考虑不仅要实现F95的调用，还要实现F77的调用，所以费了一些周折。

问题的关键在于F77为过程名自动添加了一个尾部的下划线，所以sub1这个过程，到Java一端，就变成了sub1_，知道了这一点，后面就简单了。

1、创建一个动态链接库项目FortranDLL，新建一个简单的fortran源程序for1.f：
      subroutine sub1(i)
          INTEGER i;
          PRINT*, "SUB1 CALLED"
          PRINT*, i
      END subroutine
编译代码生成libFortranDLL.dll。

2、新建一个Java项目，包含JNA库
创建一个动态库接口代码FLib.java：

import com.sun.jna.Library;
import com.sun.jna.ptr.ByReference;

public interface FLib extends Library {
void sub1_(ByReference i);
}

创建一个主程序Main.java

import com.sun.jna.Native;
import com.sun.jna.ptr.IntByReference;

public class Main {

    public static void main(String[] args) {
        // Loading dynamically the library
        FLib lib2 = (FLib) Native.loadLibrary("libFortranDLL", FLib.class);
        IntByReference a = new IntByReference(1234);
        lib2.sub1_(a);
    }
}

注意，关键在于接口当中的sub_这个命名规则，否则无法找到找到指定过程，另外默认情况下，fortran使用引用参数，所以不能简单实用int作为参数，必须实用引用参数。

运行程序，得到如下结果：

run：
SUB1 CALLED
1234
成功生成（总时间：1 秒）

3、G95的调用更简单一些，可以直接使用bind指定输出过程（函数）名，可以完全不必考虑编译器的命名规则，比f77的方式可移植性更好一些。

可以参考这里：http://www.javaforge.com/wiki/66061

大熊 2010-05-12 22:05 发表评论

JNA实现Java调用C++动态链接库

大熊 — Tue, 11 May 2010 02:51:00 GMT

今天偶然看到了JNA的介绍，下载下来试了一下，很好用，相比较JNI要简单很多。做了一个可以callback的c++动态链接库，实现了java和c++的互相调用。

1、开发环境：

开发工具：Netbeans 6.8，包含了Java和C++开发插件，用一个工具比较方便，可以同时开发C++的dll和Java代码。

C++环境：MingW 5.1.6+MSYS、g++ 3.4.5

Java环境：JDK 1.6.0_18

2、C++代码

用Netbeans创建一个动态链接库项目JNALib，创建一个c++源文件clib.cpp，生成结果为libJNALib.dll

#include <stdlib.h>
#include <iostream>
using namespace std;
extern "C"
{
    typedef void (*OpenFunc)(const char*,int);

    OpenFunc openfunc = NULL;

    void init(OpenFunc func) {
        cout << "init called" <<endl;
        openfunc = func;
    }

    void test() {
        if (openfunc == NULL) {
            cout << "openfunc is NULL" << endl;
        }
        (*openfunc)("test", 0);
    }
}

注意：其中OpenFunc声明了一个回调类型，也就是一个函数指针，可以通过init将java中的OpenFunc方法传递进来，设置这个函数指针，如此一来，可以实现C++到Java的回调。

3、Java代码

创建一个Java项目JNADemo，创建一个包clibtest，创建以下java代码：

package clibtest;

import com.sun.jna.Callback;
import com.sun.jna.Library;

public interface CLib extends Library{

    public interface OpenFunc extends Callback {
        void invoke(String filename, int i);
    }
    void init(OpenFunc openfunc);
    void test();
}

package clibtest;

import com.sun.jna.Native;

public class hello {

    public static void main(String[] args) {
        // Loading dynamically the library
        CLib lib = (CLib) Native.loadLibrary("libJNALib", CLib.class);

        lib.init(new CLib.OpenFunc() {

            public void invoke(String filename, int i) {
                System.out.println("callback called.");
                System.out.println(filename);
            }
        });

        lib.test();
    }
}

4、项目结构如下

5、编译C++项目，生成libJNALib.dll，拷贝到JNADemo主目录，目录结构如下：

6、运行程序，结果如下：

大熊 2010-05-11 10:51 发表评论

语源科技BlogJava-bigbear

JNA实现Java调用Fortran（f77）

JNA实现Java调用C++动态链接库