Problème chargement dll

Bonjour à tous

J'explique mon problème.

Je dois créer un vbscript qui utilise les fonctions d'une dll fournie par un fabricant de cartes PCI

Pour utiliser cette dll, j'ai récupéré dynamic wrapper x (dynwrappx.dll) car j'ai cru voir sur ce forum que je n'ai pas d'autres moyens

Voici mon

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function Lance()   Dim Bus_num(4) Dim Slot_num(4) Dim Card_num Dim DX   Set DX = CreateObject("DynamicWrapperX")   DX.Register "PI16.dll", "PI16_get_card_pos", "r=uuu" DX.PI16_get_card_pos bus_num, slot_num, card_num   End Function

---

Cette fonction a 0 paramètre en entrée et 3 en sortie

Quand je lance cette fonction via VBS Factory, je suis carrément viré de VBS Factory sans message d'erreur

Quand je double clique sur le fichier.vbs j'ai le message "Nb d'arguments ou affectation de propriété incorrects"

Peut etre que le problème vient de la définition de mes variables. Sur la doc, on me dit que la fonction est de type Bool PI16_get_card_pos(OUT ULONG* bus_num, OUT ULONG* slot_num, OUT ULONG* cards_num)
avec bus_num tableau de 4 max et slot_num tableau de 4 max

Est ce que j'ai mal défini mes variables ?

Sinon je sais que dans cette dll, il n'y a pas de fonction DllRegister. Est ce que ce ne serait pas ça la raison de mon problème ?

Merci pour toute l'aide que vous pouvez m'apporter car là je suis totalement bloqué

habituellement une fonction n'as qu'une valeur de retour..

Il me semble que tu devrai utiliser les paramètres de sorties...

voir :
http://contrib-vb.developpez.com/ome...cWrapperX/#LVI

Tout d'abord merci pour ta réponse

Je pense que tu as raison mais je ne sais pas comment définir les paramètres en sortie

j'ai essayé d'écrire ça

DX.Register "PI16.dll","PI16_get_card_pos", "r=u"
Retour = DX.PI16_get_card_pos (bus_num, slot_num, card_num)

ça me donne "Nb d'arguments ou affectation de propriétés incorrects"

J'ai essayé ça

DX.Register "PI16.dll","PI16_get_card_pos", "i=UUU", "r=u"
Retour = DX.PI16_get_card_pos (bus_num, slot_num, card_num)


ça me donne "Type incompatible"

avec "i=uuu" c'est la meme chose

Encore merci pour ton aide

bonjour,

Citation:

---

Sinon je sais que dans cette dll, il n'y a pas de fonction DllRegister. Est ce que ce ne serait pas ça la raison de mon problème ?

---

non, l'absence de cette fonction signifie simplement qu'il s'agit d'une "flat dll" et non d'une dll activex

Citation:

---

Est ce que j'ai mal défini mes variables ?

---

oui

ton dernier essai se rapproche de la solution mais selon ta doc, la fonction renvoie une valeur booléenne donc:

Code:

---

1 2	DX.Register "PI16.dll","PI16_get_card_pos", "i=UUU", "r=l" Retour = DX.PI16_get_card_pos (bus_num, slot_num, card_num)

---

mais ça peut ne pas suffire si la fonction place dans les paramètres de sortie un pointeur vers un tableau de valeurs et non vers une valeur ULONG simple.
comme vbs ne gère que des tableaux de variants dont la structure est très différente des tableaux classiques,
je ne sais pas si le composant dynawrapperx se charge de la conversion :aie:

Effectivement tu as raison c'était un problème de pointeur et de déclaration

j'ai écrit

DX.Register "PI16.dll","PI16_get_card_pos", "i=UUU", "r=l"
Retour = DX.PI16_get_card_pos (bus_num(1), slot_num(1), card_num)

et ça fonctionne

L'info qui m'intéresse étant card_num, c'est nickel

:yaisse2:

Merci beaucoup pour ton aide très précieuse