[VB]type d'arguments byref incompatibles

Version imprimable

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:

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:

1 2 retour = dllecrire(var1, var2)
Mais voici le message affiché: type d'arguments byref incompatibles

Pouvez vous m'aider?

27/04/2006, 20h05
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 ?8O
27/04/2006, 23h13
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)

Voici la declaration de mastructure dans C

Code:

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:

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) ;
}

tente

Code:

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

28/04/2006, 10h22
kantelise

J'ai essayé le code mais voici l'érreur affiché:
Un type passé par l'utilisateur ne peut être passé par valeur (byval):(
30/04/2006, 08h56
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):cry:

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