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

**ludovic85** · 18/01/2005, 16h01

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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 ?

**Noodles** · 18/01/2005, 16h42

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

**abelman** · 18/01/2005, 17h20

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

**ludovic85** · 19/01/2005, 11h42

ok merci je vais essayer ca de suite

**ludovic85** · 19/01/2005, 11h49

Et bien ca ne fonctionne toujours pas mieu

voici l'erreur :

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.

**abelman** · 19/01/2005, 11h52

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

**ludovic85** · 19/01/2005, 12h09

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**abelman** · 19/01/2005, 12h14

pDate est nothing normal car c'est s que tu utilise au lieu de pDate.
Que vaut s ?

**ludovic85** · 19/01/2005, 12h18

nothing en fait c'etait s qui retournai nothing

**abelman** · 19/01/2005, 12h28

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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