[VB.NET] Problem de récupération de variable avec une DLL

Version imprimable

18/01/2005, 15h01
ludovic85

[VB.NET] Problem de récupération de variable avec une DLL

bonjour voila j'ai une fonction dans ma dll qui doit me retourner, en autres, une chaine de caractere répresentant la date.
j'ai declaré dans mon code vb net la fonction suivante :

Code:

Private Declare Function fnVerifyLicenceEx Lib "MdCompEnreg" (ByVal clsid As String, ByVal lic As String, ByRef imachine As Integer, ByRef ibm As Integer, Byref Pdate As String As Integer

Mais lors de l'execution il y a une erreur voila le message d'erreur :

Citation:

Une exception non gérée du type 'System.NullReferenceException' s'est produite dans MdManager.exe

Informations supplémentaires : La référence d'objet n'est pas définie à une instance d'un objet.

Or en mettant le parametre pdate en byval la date n'est pas retourné mais il n'y a plus d'erreur :?: or ca devrai me retourner obligatoiremenr quelque chose
il y aurait t il autre chose que byval ou byref ? :lol:
18/01/2005, 15h42
Noodles

Et si tes autres paramètres ByRef, imachine et ibm, il te les retourne bien?

De memoire il faut utiliser StringBuilder pour les retours dans des String

Code:

1
2
3
4
Private Declare Function fnVerifyLicenceEx Lib "MdCompEnreg" (ByVal clsid As String, ByVal lic As String, ByRef imachine As Integer, ByRef ibm As Integer, Byval Pdate As System.Text.StringBuilder) As Integer 
 
Dim s as new System.Text.StringBuilder(100) 'J'ai mis 100 mais met ce qui te convient. C'est la taille du buffer
Dim i as Integer = fnVerifyLicenceEx("clsid", "lic", imachine, ibm, s)

19/01/2005, 10h42
ludovic85

ok merci je vais essayer ca de suite
19/01/2005, 10h49
ludovic85

Et bien ca ne fonctionne toujours pas mieu :(
voici l'erreur :

Citation:

Une exception non gérée du type 'System.NullReferenceException' s'est produite dans MdManager.exe

Informations supplémentaires*: La référence d'objet n'est pas définie à une instance d'un objet.
19/01/2005, 10h52
abelman

fais voir le code de l'appel
es tu sur que ça vient de cette fonction ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Private Declare Function fnVerifyLicenceEx Lib "MdCompEnreg" (ByVal clsid As String, ByVal lic As String, ByRef imachine As Integer, ByRef ibm As Integer, ByRef Pdate As System.Text.StringBuilder) As Integer
 
        Dim Licence As String
        Dim CLSID As String
        Dim iMachine, lPerm As Integer
        Dim pDate As System.Text.StringBuilder
        '****essai********
        Dim s As New System.Text.StringBuilder(100)
 
 
 
        Licence = TextBox1.Text
        CLSID = TextBox2.Text
        verif = fnVerifyLicenceEx(CLSID, Licence, iMachine, lPerm, s)

Lorsque je met un point d'arret sur cette fonction s renvoit "nothing" alors que les autres variables renvoient bien quelques choses :!:

19/01/2005, 11h14
abelman

pDate est nothing normal car c'est s que tu utilise au lieu de pDate.
Que vaut s ?
19/01/2005, 11h18
ludovic85

nothing en fait c'etait s qui retournai nothing :oops:
19/01/2005, 11h28
abelman

Dans ton instruction declare ..
Le paramètre pDate doit être passé byVal (comme je l'ai écrit plus haut)

Code:

Private Declare Function fnVerifyLicenceEx Lib "MdCompEnreg" (ByVal clsid As String, ByVal lic As String, ByRef imachine As Integer, ByRef ibm As Integer, Byval Pdate As System.Text.StringBuilder) As Integer

:D
19/01/2005, 11h34
ludovic85

oh oui quel etourdit! :roll:
Maintenant ca marche trop fort! merci beaucoup :wink:
19/01/2005, 11h37
abelman

oublie pas le bouton resolu (en bas à gauche) ;-)