java 代码如下package com.ccccccc;
import com.sun.jna.Library;
import com.sun.jna.Native;
import com.sun.jna.PointerType;
import com.sun.jna.ptr.*;import java.util.Arrays;import java.io.*;
public class Main {
public interface Flib extends Library{
Flib lib2 = (Flib) Native.loadLibrary("TestDll.dll", Flib.class);
void mysum(int x,int y,int sum);
}
public static void main(String[] args) {
int x=1;
int y=1;
int sum=0;
Flib.lib2.mysum(x,y,sum);
System.out.println(sum);
//System.out.println(b[1]);
System.out.println("hello");
}
}
Fortran 代码如下:subroutine mysum(x,y,sum)
implicit none
!DEC$ ATTRIBUTES DLLEXPORT :: mysum
!DEC$ ATTRIBUTES ALIAS:'mysum'::mysum
integer::x,y,sum
sum=x+y
end subroutine如果只是输出一句话,可以通过,传递参数就不行了
import com.sun.jna.Library;
import com.sun.jna.Native;
import com.sun.jna.PointerType;
import com.sun.jna.ptr.*;import java.util.Arrays;import java.io.*;
public class Main {
public interface Flib extends Library{
Flib lib2 = (Flib) Native.loadLibrary("TestDll.dll", Flib.class);
void mysum(int x,int y,int sum);
}
public static void main(String[] args) {
int x=1;
int y=1;
int sum=0;
Flib.lib2.mysum(x,y,sum);
System.out.println(sum);
//System.out.println(b[1]);
System.out.println("hello");
}
}
Fortran 代码如下:subroutine mysum(x,y,sum)
implicit none
!DEC$ ATTRIBUTES DLLEXPORT :: mysum
!DEC$ ATTRIBUTES ALIAS:'mysum'::mysum
integer::x,y,sum
sum=x+y
end subroutine如果只是输出一句话,可以通过,传递参数就不行了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货