Dll Jna, demande de lecture de fichier texte

Version imprimable

Bonjour j'avais un programme en Fortran qui via une méthode récupérait un fichier texte, le "parsait", récupérerai des infos faisait des calcul et restituait un autre fchier texte.
Je voudrais compiler ce Fortran sous forme de DLL, la charger via JNA dans un programme Java, pour lancer ce Fortran déguisé en dll.
est ce possible?
car pour le moment voilà ce que je recolte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
"C:\Program Files\Java\jdk1.8.0_92\bin\java" -Djava.library.path=C:\Users\ozenasni\Desktop -Didea.launcher.port=7550 "-Didea.launcher.bin.path=C:\Program Files (x86)\JetBrains\IntelliJ IDEA 2016.3\bin" -Dfile.encoding=UTF-8 -classpath "C:\Program Files\Java\jdk1.8.0_92\jre\lib\charsets.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\deploy.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\access-bridge-64.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\cldrdata.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\dnsns.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\jaccess.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\jfxrt.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\localedata.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\nashorn.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\sunec.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\sunjce_provider.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\sunmscapi.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\sunpkcs11.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\ext\zipfs.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\javaws.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\jce.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\jfr.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\jfxswt.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\jsse.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\management-agent.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\plugin.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\resources.jar;C:\Program Files\Java\jdk1.8.0_92\jre\lib\rt.jar;Y:\Fconncetion\out\production\Fconncetion;C:\Users\ozenasni\Downloads\jna-4.2.2.jar;C:\Program Files (x86)\JetBrains\IntelliJ IDEA 2016.3\lib\idea_rt.jar" com.intellij.rt.execution.application.AppMain com.ec2.AppOne
jna.library.path: C:\Users\ozenasni\Desktop
CALCUL EN COURS 
Exception in thread "main" java.lang.Error: Invalid memory access
LECTURE DONNEES 
	at com.sun.jna.Native.invokeInt(Native Method)
TEST001 
	at com.sun.jna.Function.invoke(Function.java:390)
	at com.sun.jna.Function.invoke(Function.java:323)
	at com.sun.jna.Library$Handler.invoke(Library.java:236)
	at com.ec2.$Proxy0.startOne(Unknown Source)
	at com.ec2.AppOne.main(AppOne.java:24)
	at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
	at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)
	at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
	at java.lang.reflect.Method.invoke(Method.java:498)
	at com.intellij.rt.execution.application.AppMain.main(AppMain.java:147)

Je reviens...

Voilà la structure de mon code en fortran :

Code:

1
2
3
4
5
6
7
8
 
PROGRAM Main
Start()
END PROGRAM
 
SUBROUTINE Start()
OPEN(file= "myFile")
END SUBROUTINE

J'en fais une DLL

que j'appelle via une méthode depuis un programme Java:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
public class App1 {
 
    static {
        // Set and print jna.library.path
        // Native.setProtected(false);
 
        System.setProperty("jna.library.path", System.getProperty("java.library.path"));
        System.out.println("jna.library.path: " + System.getProperty("jna.library.path"));
 
 
    }
 
 
    public static void main(String[] args) {
        JFConnect.lib.startOne();
 
    }
 
}

voilà l'interface JFConnect:

Code:

1
2
3
4
5
6
7
8
9
 
import com.sun.jna.*;
 
public interface JFConnect extends Library {
 
    JFConnect lib = (JFConnect) Native.loadLibrary("calculEC2", JFConnect.class);
    void startOne();
 
}

Lorsque "Java" fait appelle à la méthode start() de ma librairie, qui elle même appelle un "open(file)" ça "crash"
Si quelqu'un peut m'orienter

20/12/2016, 11h16
wax78

Et en faisant une version EXE du code fortran il tourne sans bug ?

Pour la dll, il ne manque pas des export style ?

Code:

!DEC$ ATTRIBUTES DLLEXPORT :: MY_SUB

ou

Code:

_declspec(dllexport)

Sinon n'oublies pas de fire un close du fichier ouvert dans le code fortran (a moins que tu ais juste posté une version ultra minimaliste exprès)

Je viens de tester le .exe, nickel
En effet c'est une version minimaliste
sinon voilà :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 MODULE MODULE1 CONTAINS SUBROUTINE startOne () BIND(C, name='startOne') !DEC$ ATTRIBUTES DLLEXPORT :: startOne . OPEN (4,file='FICHIER_DONNEES.txt',status='old',form='formatted',action='READ') . END SUBROUTINE PROGRAM CALCUL_TOTAL USE MODULE1 CALL startOne() END
pour le dllexport je l'ai fais sur ma subroutine qui me sert de point d'entrée.
Il faut savoir que la méthode qui "bute" est une méthode que je n'ai pas conçu en fortran mais qui fait partie du langage OPEN(...).