Problème de conversion VB vers wlangage

Bonjour a tous
je voudrais convertir ce code vb vers wlangage mais ma machine plante et je n'arrive pas voir le code d'erreur.
voici le bout de code VB

Code:

---

1 2 3

'Declaration of Dll Function Private Declare Function GetIomemVersion Lib "iomem.dll" Alias "_GetIomemVersion@4" (ByVal version As String) As Boolean

---

et voici mon bout de code wlangage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Mreponse est une chaine hInst est un entier systeme bHprinter est un booléen hInst = ChargeDLL("iomem.dll") SI hInst = 0 ALORS Erreur("Erreur lors du chargement") SINON bHprinter=AppelDLL32("iomem.dll","_GetIomemVersion@4",Mreponse) DéchargeDLL(hInst) FIN

---

je ne vois pas ou se trouve mon erreur :oops: Merci a tous

Bonjour,

je suis étonné que Windev ne te dise pas le problème. Normalement il te dit même la ligne ou est ton erreur.

Sinon utilise ce code, il permet de capturer l'erreur et d'éviter que ton appli plante de partout.

* Je l'utilise partout personnellement :mrgreen:*

Code:

---

1 2 3 4 5 6 7 8 9 10

QUAND EXCEPTION DANS // ton code FAIRE // Affiche le message d'erreur Erreur(ExceptionInfo(errComplet)) RETOUR FIN

---

Si tu ne comprend pas l'erreur qu'affiche Windev, reviens vers nous avec le message d'erreur. ;)

Bonjour à tous,

@devalender

J'ai un doute sur la validtité du code VB. En recherchant sur le web, on voit que le paramètre version est de type IntPtr, soit l'équivalent du passage par adresse d'un buffer (donc Byref pour VB)

Tu pourrais essayer de passer l'adresse de la variable chaîne:

Code:

---

1 2	bHprinter=AppelDLL32("iomem.dll","_GetIomemVersion@4",&Mreponse)

---

Pour en savoir plus... Opérateur sur Adresse
http://doc.pcsoft.fr/fr-FR/?1512002&...=par%20adresse

Excuser pour retard dans la reponse ! oui en effet il me fallait effectuer un passage par adresse.
merci a tous