Discussion :

[kantelise]

Bonsoir a tous,
J'ai crée une dllen c que je souhaite utiliser sous Vb. Voici la declaration de ma dll sous vb:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Type variete
nom As String * 21
topt As Single
tbase As Single
tsum As Single
cpp As Single
bvp As Single
toptm As Single
cdrm As Single
tcritc As Single
tcrith As Single
tcritd As Single
End Type
 
 Public Declare Function dllecrire Lib "win.dll" Alias "parametre" (var1 As variete, var2 As variete) As Integer

Pour l'appel voici ce que je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
retour = dllecrire(var1, var2)

Mais voici le message affiché: type d'arguments byref incompatibles

Pouvez vous m'aider?

[jmfmarques]

si c'est toi qui as créé la Dll, tu es bien LE SEUL à connaître la structure de variete, ma foi !
comment veux-tu que l'on devine ?

[Vesta]

Tu n'oublie pas de déclarer var1 et var2 dans le projet ou tu l'utilise comme des variete

retour = dllecrire(var1, var2)

[kantelise]

Voici la declaration de mastructure dans C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
typedef struct variete
{
char nom[21];
float topt, tbase, tsum, cpp, bvp, toptm, cdrm, tcritc, tcrith, 
tcritd;
} ST_VARIETE;

Voici la fonction qui la fonction de ma dll

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
int __stdcall parametre (ST_VARIETE * Variet1,ST_VARIETE * Variet2) 
{
#define REPIQUAGE 'T'
#define DIRECT 'D'
 
char Implantation;
char Pre_irrig;
int Ressuyage, Trav_sol, Miseneau, Repiquage, Recolte;
int Contrainte, Duree;
int J_semis_d;
char Fic_met[81];
 
FILE *buf= NULL;
int n;
char lig[256], rep[256], *s, *t;
/* si le fichier de sortie existe, l'effacer => l'existence du fichier 
de sortie indique que la simulatio est allee jusqu'au bout */
if (access( "C:/ELISEE/APPIA/Calcul/vbappia/calcul.$$O", 0)==0) unlink("calcul.$$O");
 
buf = fopen( "C:/ELISEE/APPIA/Calcul/vbappia/calcul.$$I", "rt");
if (!buf) exit( -1 );
 
fgets( lig, 255, buf); /* entete */
s=fgets( lig, 255, buf); if (!s) exit(-1); /* durees */
while( *s && *s!='=') s++;
n = sscanf( s+1, "%d %d %d %d %d %c", &Duree, &Trav_sol, 
&Miseneau, &Repiquage, &Recolte, &Contrainte);
if (n < 6) exit(-1);
s=fgets( lig, 255, buf); if (!s) exit(-1); /* implantation */
while( *s && *s!='=') s++;
s++;
while( *s && *s==' ') s++;
t = s;
if (*s=='\n') exit(-1);
while( *t && *t!='\n') t++;
*t = 0;
if (stricmp( s, "SEMIS DIRECT")==0) Implantation = DIRECT;
else Implantation = REPIQUAGE;
s=fgets( lig, 255, buf); if (!s) exit(-1); /* pre-irrig */
while( *s && *s!='=') s++;
sscanf( s+1, "%s", rep);
if (n < 1) exit(-1);
if (strcmp( rep, "oui")==0) Pre_irrig = 1;
else Pre_irrig = 0;
s=fgets( lig, 255, buf); if (!s) exit(-1); /* Ressuyage */
while( *s && *s!='=') s++;
sscanf( s+1, "%d", &Ressuyage);
if (n < 1) exit(-1);
s=fgets( lig, 255, buf); if (!s) exit(-1); /* J_semis_d (nb de jours 
depuis le 1/01, sans prise en compte d'annee bissextile) ; si 1/01 alors 
J_semis_d = 0 */
while( *s && *s!='=') s++;
sscanf( s+1, "%d", &J_semis_d);
if (n < 1) exit(-1);
s=fgets( lig, 255, buf); if (!s) exit(-1); /* Nom variete 1 */
while( *s && *s!='=') s++;
s++;
while( *s && *s==' ') s++;
t = s;
if (*s=='\n') exit(-1);
while( *t && *t!='\n') t++;
*t = 0;
strcpy( Variet1->nom, s);
s=fgets( lig, 255, buf); if (!s) exit(-1); /* Nom variete 2 */
while( *s && *s!='=') s++;
s++;
while( *s && *s==' ') s++;
if (*s=='\n') strcpy( Variet2->nom, Variet1->nom);
else
{
t = s;
while( *t && *t!='\n') t++;
*t = 0;
strcpy( Variet2->nom, s);
}
s=fgets( lig, 255, buf); if (!s) exit(-1); /* Nom fichier meteo */
while( *s && *s!='=') s++;
s++;
while( *s && *s==' ') s++;
t = s;
if (*s=='\n') exit(-1);
while( *t && *t!='\n') t++;
*t = 0;
strcpy( Fic_met, s);
fclose( buf );
return (Ressuyage) ;
}

[ThierryAIM]

tente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Declare Function dllecrire Lib "win.dll" Alias "parametre" _
          (ByVal var1 As variete, ByVal var2 As variete) As Integer

[kantelise]

J'ai essayé le code mais voici l'érreur affiché:
Un type passé par l'utilisateur ne peut être passé par valeur (byval)

[jmfmarques]

J'ai l'impression que le problème vient des types dans ta structure :
Tes Single ici et là (correspondant à des floats de C) devraient peut-etre être des Double (essaye aussi des Variant, dans ta structure).
Une autre fois, tu es bien le seul à savoir ce qu'attend ta dll (et ce que tu lui envoies et ce qu'elle doit retourner)

A quel moment exactement reçois-tu le message d'erreur ?
Si c'est à l'exécution : peux-tu nous expliquer le type des paramètres/arguments qui lui sont passés depuis VB (var1 et var2)?
Personnellement, var1 et var2 étant dans une fonction déclarée publique, j'éviterais d'utiliser leur nom dans l'appel de la fonction !

Je suis également assez surpris (mais cela n'a rien à voir) par la création d'une dll comprenant un chemin en dur