[R] DllCall et passage d'une chaîne

[jlf]

Bonjour,

J'essaye de faire appel à une DLL que je développe moi-même. Cette DLL est écrite en C et compilée avec gcc sous Cygwin. Mon problème est que je n'arrive pas à trouver la syntaxe pour transmettre une chaîne de caractères.
Test n°1 (avec func1 dans la DLL) : retour d'un entier => tout ok
Test n°2 (avec func2 dans la DLL) : la DLL attend un "char ifn[256]" et fait un test ultra-basique
Test n°3 (avec func3 dans la DLL) : la DLL attend un "char *ifn" et fait le même test ultra-basique

Je pense que la func3 est à préférer car la taille de la chaîne n'est pas fixée arbitrairement.

J'ai essayé avec "str", "wstr", "char" (avec ou sans "*"), rien n'y fait.

str, str*, wstr, wstr* => AutoIT3.exe ended.rc:-1073741819
char, char* => @error=1

Visiblement, ça fonctionne "moins mal" avec "char", mais dans ce cas je récupère un code d'erreur à 1 (unable to use the DLL file)

Ci-joint, tous les codes sources. Tous les fichiers ont un nom suffisamment explicite. La DLL "cygwin1.dll" est requise et est fournie. Si vous préférez recompiler ma DLL (confiance, sécurité...), le makefile est fourni (attention, fichier au format UNIX impératif chez moi !!)

► Afficher le texteCode de la DLL

Code : Tout sélectionner

#include <stdio.h>

int func1(void) {
    return 1234;
}

int func2(char ifn[256]) {
    int a = 0;

    if (strcmp(ifn,"in.txt")==0) { a = 11; }
    else                         { a = 10; }

    return a;
}

int func3(char *ifn) {
    int a = 0;

    if (strcmp(ifn,"in.txt")==0) { a = 11; }
    else                         { a = 10; }

    return a;
}
 

► Afficher le texteCode de test1.au3

Code : Tout sélectionner

ConsoleWrite("Test func1" & @CRLF)
Local $result1 = DllCall ("test_dll.dll","int","func1")
Local $error1  = @error
ConsoleWrite("$error1     = " & $error1     & @CRLF)
ConsoleWrite("$result1[0] = " & $result1[0] & @CRLF)
 

► Afficher le texteCode de test2.au3

Code : Tout sélectionner

ConsoleWrite("Test func2" & @CRLF)
Local $result2 = DllCall ("test_dll.dll","int","func2","char*","in.txt")
Local $error2  = @error
ConsoleWrite("$error2     = " & $error2 & @CRLF)

If $error2=0 Then
    ConsoleWrite("$result2[0] = " & $result2[0] & @CRLF)
EndIf
 

► Afficher le texteCode de test3.au3

Code : Tout sélectionner

ConsoleWrite("Test func3" & @CRLF)
Local $result3 = DllCall ("test_dll.dll","int","func3","char*","in.txt")
Local $error3  = @error
ConsoleWrite("$error3     = " & $error3 & @CRLF)

If $error3=0 Then
    ConsoleWrite("$result3[0] = " & $result3[0] & @CRLF)
EndIf
 

Voilà, si quelqu'un peut m'aider à trouver où est l'erreur...
Solution fortement appréciée

Cordialement,


JLF

[jchd]

Il y a plus d'une erreur.

Dans le code C :
Tes fonctions ont fortement intérêt a être qualifiées __declspec(dllexport)
Ensuite, ta fonction 2 n'a aucun sens : elle déclare un paramètre qu'elle alloue elle-même ???

Maintenant, sous AutoIt :
Tu ne spécifies pas la convention d'appel cdecl (c'est stdcall par défaut)
Tu dois employer le type str. Si ta chaîne contient de l'Unicode, emploie directement wstr, mais exit des fonctions stdio et la fonction en C doit utiliser un paramètre chaîne Unicode.

Une fois ceci fixé :

Code : Tout sélectionner

#include <stdio.h>

__declspec(dllexport) int func1(void) {
    return 1234;
}

__declspec(dllexport) int func3(char *ifn) {
    if (strcmp(ifn, "in.txt")) {
        return 10;
    } else {
        return 11;
    }
}

Code : Tout sélectionner

gcc -O2 -lm -shared test.c -o test.dll

Code : Tout sélectionner

ConsoleWrite("Test func1" & @CRLF)
Local $result1 = DllCall("test.dll", "int:cdecl", "func1")
Local $error1  = @error
ConsoleWrite("$error1     = " & $error1     & @CRLF)
ConsoleWrite("$result1[0] = " & $result1[0] & @CRLF)

ConsoleWrite("Test func3" & @CRLF)
Local $result3 = DllCall("test.dll", "int:cdecl", "func3", "str", "in.txt")
Local $error3  = @error
ConsoleWrite("$error3     = " & $error3 & @CRLF)
If Not $error3 Then
    ConsoleWrite("$result3[0] = " & $result3[0] & @CRLF)
EndIf

Code : Tout sélectionner

Test func1
$error1     = 0
$result1[0] = 1234
Test func3
$error3     = 0
$result3[0] = 11

[jlf]

Bonjour,

Merci de l'aide, et effectivement plusieurs erreurs...
J'ai une fonction en C et je pensais que seul l'appel (et le passage d'argument) était en cause. Ma fonction en C doit faire des opérations sur des fichiers, et là ça coince (alors qu'un programme en C appelant cette même DLL est OK). D'où une nouvelle demande d'aide...

La fonction "func4_1" est OK (preuve que DLL bien compilée). Les fonction "func4" et "func4_2" (qui est encore plus basique) me renvoient "AutoIT3.exe ended.rc:-1073741819"

D'avance merci

► Afficher le texteCode de la func4.dll

Code : Tout sélectionner

#include <stdio.h>

__declspec(dllexport) int func4(char *ifn, char *ofn) {
    FILE *in ;
    FILE *out;

    in  = fopen("C:\\in.txt"  ,"r");
//  out = fopen("C:\\test.bin","w");

    if (!in ) { return -1; }
    if (!out) { return -2; }

    fclose(in);

    return 13;
}

__declspec(dllexport) int func4_1(void) {
    return 5;
}

__declspec(dllexport) int func4_2(void) {
    FILE *f = fopen("C:\\in.txt","r");

    if (!f) { return -1; }

    fclose(f);

    return 6;
}
 

► Afficher le texteCode du test-case test4.au3

Code : Tout sélectionner

Local $result4 = DllCall ("func4.dll","int:cdecl","func4_2")
Local $error4  = @error
ConsoleWrite("$error4     = " & $error4 & @CRLF)

If $error4=0 Then
    ConsoleWrite("$result4[0] = " & $result4[0] & @CRLF)
EndIf
 

[jchd]

Perso, je n'ai eu aucun problème. Seule différence : j'emploie toujours MinGW car Cygnus impose ses propres DLLs qui causent parfois des soucis dans certains contextes.

► Afficher le texte

Code : Tout sélectionner

#include <stdio.h>

__declspec(dllexport) int func1(void) {
    return 1234;
}

__declspec(dllexport) int func3(char *ifn) {
    if (strcmp(ifn, "in.txt")) {
        return 10;
    } else {
        return 11;
    }
}

__declspec(dllexport) int func4(char *ifn, char *ofn) {
    FILE *in ;
    FILE *out;

    in  = fopen(ifn ,"r");
    out = fopen(ofn ,"w");

    if (!in ) { return -1; }
    if (!out) { return -2; }

    fclose(in);
    fclose(out);

    return 13;
}

__declspec(dllexport) int func4_1(void) {
    return 5;
}

__declspec(dllexport) int func4_2(void) {
    FILE *f = fopen("C:\\in.txt", "r");

    if (!f) { return -1; }

    fclose(f);

    return 6;
}

► Afficher le texte

Code : Tout sélectionner

ConsoleWrite("Test func1" & @CRLF)
Local $result1 = DllCall("test.dll", "int:cdecl", "func1")
Local $error1  = @error
ConsoleWrite("$error1     = " & $error1     & @CRLF)
ConsoleWrite("$result1[0] = " & $result1[0] & @CRLF)

ConsoleWrite("Test func3" & @CRLF)
Local $result3 = DllCall("test.dll", "int:cdecl", "func3", "str", "in.txt")
Local $error3  = @error
ConsoleWrite("$error3     = " & $error3 & @CRLF)
If Not $error3 Then
    ConsoleWrite("$result3[0] = " & $result3[0] & @CRLF)
EndIf

Local $result4 = DllCall ("test.dll","int:cdecl","func4_1")
Local $error4  = @error
ConsoleWrite("$error4_1   = " & $error4 & @CRLF)
If Not $error4 Then
    ConsoleWrite("$result4_1[0] = " & $result4[0] & @CRLF)
EndIf

Local $result4 = DllCall ("test.dll","int:cdecl","func4_2")
Local $error4  = @error
ConsoleWrite("$error4_2   = " & $error4 & @CRLF)

If $error4=0 Then
    ConsoleWrite("$result4_2[0] = " & $result4[0] & @CRLF)
EndIf

Local $result4 = DllCall ("test.dll","int:cdecl","func4", "str", "c:\in.txt", "str", "c:\test.bin")
Local $error4  = @error
ConsoleWrite("$error4     = " & $error4 & @CRLF)

If $error4=0 Then
    ConsoleWrite("$result4[0] = " & $result4[0] & @CRLF)
EndIf

► Afficher le texte

Code : Tout sélectionner

Test func1
$error1     = 0
$result1[0] = 1234
Test func3
$error3     = 0
$result3[0] = 11
$error4_1   = 0
$result4_1[0] = 5
$error4_2   = 0
$result4_2[0] = 6
$error4     = 0
$result4[0] = 13

[jlf]

Bonjour,

Effectivement tout marche mieux avec MinGW. D'ailleurs j'avais remarqué qu'un "printf" dans une fonction C (compilée avec CygWin) bloquait le scripts AU3. Et là, avec MinGW, tout semble OK
Merci encore pour l'aide

Cordialement