Utiliser une dll C sous VB6 (pb de conversion de type)

Question

Bonjour,

Je souhaite utiliser une dll qui a &#233;t&#233; &#233;crite en C, dans un programme
VB. Gr&#226;ce &#224; la fonction Lib, j'arrive &#224; appeler certaines m&#233;thodes de
cette dll, mais une m&#233;thode me pose encore probl&#232;me: celle-ci prend en
param&#232;tres 2 pointeurs, sur cha&#238;ne de caract&#232;res et sur long. Si
quelqu'un pouvait me dire comment red&#233;clarer la fonction sous VB &#231;&#224; me
sauverait !!



Voici le prototype de la Fonction C:

Function maFonction( long* taillemessage, char* message)



Voil&#224; comment j'ai essay&#233; de la d&#233;clarer sous VB mais &#231;&#224; ne marche pas,
il me met une erreur "types incompatibles avec la dll" au moment o&#249; je
fais appel &#224; la fonction 

Private Declare Function maFonction _


Lib "madll.dll" ( _


ByRef taillemessage As Long, _


ByVal message As String _


)

titi035 · Answer

&#231;a donne quoi comme erreur?

titi035 · Answer

oups, j'avais pas lu la fin. 



=> une premiere piste sur le retour de ta fontion : 

 Function maFonction( long* taillemessage, char* message)



Donc en vb, tu devrais avoir quelque chose comme   

Lib "madll.dll" ( _

  ByRef taillemessage As Long, _

  ByVal message As String _

  )as Function    (&#224; toi de voir le type compatible VB6..)

rvblog · Answer

Salut sophie, salut titi, je'aimerais plutôt pour savoir ce qu'est Function dans ton proto C, une structure, un handle? Et si la valeur de retour n'est pas indispensable, pas utile de la déclarer (dans VB). ensuite pour le long*taillemessage, je mettrais ByVal taillemessage As Long. enfin, fais voir l'appel, c'est lui qui déclenche l'erreur (et si tu fais voir l'appel, fais voir aussi les déclarations des participants à l'appel). a+ rvblogn^{Je veux ton bien... et je l'aurais}

cs_sophie75 · Answer

Merci pour votre aide
Je vais essayer d'être un peu plus précise, j'avais en effet oublié le retour de la fonction

Fonction C:
public  int maFonction(long* taillemessage, char* message)

Fonction redéclarée en VB:
Private Declare Function maFonction _
Lib "madll.dll" ( _
ByRef taillemessage As Long, _
ByVal message As String _
)
( J'ai aussi essayé de mettre taillemessage en byval, et message Byref mais toutes les combinaisons renvoient la même erreur)


Appel de la fonction en VB:
Dim iResultat as Integer
iResultat = maFonction(4, "toto")

Resultat:
Message d'erreur: Convention d'appel de la dll incorrect

cs_sophie75 · Answer

Décidement... j'ai de nouveau oublié le paramètre de retour dans ma fonction VB. Il s'agit donc bien de:

Fonction redéclarée en VB:
Private Declare Function maFonction _
Lib "madll.dll" ( _
ByRef taillemessage As Long, _
ByVal message As String _
) as Integer

Appel de la fonction en VB:
Dim iResultat as Integer
iResultat = maFonction(4, "toto")

Par contre, je viens de m'apercevoir qu'en mettant les 2 paramètres de la fonction en "ByVal" et en appelant la fonction comme ci-dessus, VB plante carrément et affiche le message:
Visual Basic a rencontré un problème et doit fermer. Nous vous prions de nous excuser pour le désagrément encouru.

rvblog · Answer

Sophie, essaies de lui rajouter un vbNullChar à l'appel, à la fin de la chaine. rvblogn^{Je veux ton bien... et je l'aurais}

Utiliser une dll C sous VB6 (pb de conversion de type)

6 réponses

Discussions similaires