Discussion :

[ludovic85]

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]

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

[abelman]

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]

ok merci je vais essayer ca de suite

[ludovic85]

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]

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

[ludovic85]

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]

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

[ludovic85]

nothing en fait c'etait s qui retournai nothing

[abelman]

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

[ludovic85]

oh oui quel etourdit!
Maintenant ca marche trop fort! merci beaucoup

[abelman]

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