Discussion :

[Alann]

Bonjour,

Je développe actuellement une base de données sous access, et je souhaiterai faire le lien avec une DLL que l'on ma donné, codée en C++ et qui fonctionne très bien en vb2

Mon problème est que dans l'appel d'une fonction de ma DLL, j'ai un type WCHAR, il faudrait que je fasse du marshalling , le soucis c'est que je ne trouves pas le marshalling en vba, seulement en vb

en Vb ça donne :

Code :

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

1
2
Private Declare Sub Generate Lib "pxweb.dll" (ByVal web1 As Integer, _
            <MarshalAsAttribute(UnmanagedType.LPWStr)> ByRef web2 As String)

le soucis c'est que la fonction MarshalAsAttribute n'existe pas en VBA

Merci d'avance

[LedZeppII]

Bonjour,

Je ne sais pas si c'est la méthode appropriée mais voila comment je fais dans VBA.

Prenons par exemple la fonction API GetUserName qui existe dans les deux versions, ANSI et UNICODE.
Déclaration:

Code :

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

1
2
3
4
5
6
7
' Déclaration ANSI
Declare Function apiGetUserName_ANSI Lib "Advapi32" Alias "GetUserNameA" _
                (ByVal UserName As String, ByRef lgSize As Long) As Boolean
 
' Déclaration Unicode
Declare Function apiGetUserName_Unicode Lib "Advapi32" Alias "GetUserNameW" _
                (ByVal UserName As String, ByRef lgSize As Long) As Boolean

Les buffers de caractères sont déclarés par valeur (ByVal) et de type String. VBA transmettra en réalité un pointeur.
On ne sait pas différencier entre ANSI (CHAR) et UNICODE (WCHAR) au niveau de la déclaration. La marshalling n'exite donc pas en VBA.

Utilisation dans du code VBA des deux fonctions ci-dessus:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub TestGetUserName()
    Dim sBuffer As String
    Dim lgBufferSize As Long
    Dim sUserName_ANSI As String
    Dim sUserName_Unicode As String
 
    ' api ANSI
    lgBufferSize = 200
    sBuffer = String(lgBufferSize, vbNullChar)
    If (apiGetUserName_ANSI(sBuffer, lgBufferSize)) Then
       sUserName_ANSI = Left(sBuffer, lgBufferSize - 1)
       MsgBox sUserName_ANSI, vbInformation, "apiGetUserName_ANSI"
    End If
 
    ' api UNICODE
    lgBufferSize = 200 * 2
    sBuffer = String(lgBufferSize, vbNullChar)
    If (apiGetUserName_Unicode(sBuffer, lgBufferSize)) Then
        ' rogner le buffer
        sBuffer = Left(sBuffer, (lgBufferSize - 1) * 2)
        ' convertir Unicode -> Ansi
        sUserName_Unicode = StrConv(sBuffer, vbFromUnicode)
        MsgBox sUserName_Unicode, vbInformation, "apiGetUserName_Unicode"
    End If
 
End Sub

Ce qui change quand j'utilise la fonction unicode (caractères WCHAR), c'est que je double la taille de mon buffer et que j'utilise la fonction StrConv pour convertir mon buffer.

A+

[Alann]

en faite je pense que mon problème vient plus du faite que c'est un WCHAR*
J'ai l'impression qu'il n'aime pas la sub avec un pointeur :/

[Alann]

Je suis passé sur un DLL codé en C, le seul problème vient du marshalling pour la valeur de retour, il n'arrive pas a récupérer mon WCHAR ...

[LedZeppII]

Bonsoir,

Il importe peu sur quoi pointe le pointeur.
Ça sera toujours un entier, qu'il pointe sur un WCHAR, sur un CHAR, ou sur n'importe quoi d'autre.

Voir Passer une chaîne de caractères par valeur .
Le titre ne correspond pas à la réalité car c'est bien un pointeur que VBA passe à la fonction C.
Par contre dans la déclaration VBA (Private Declare Sub ....) l'argument est déclaré "par valeur" (ByVal).
C'est valable pour un LPSTR comme pour un LPWTR.
En revanche VBA ne sait gérer que des CHAR. D'où mon recours à StrConv.

Si ma fonction DLL attend un LPWSTR:

Code :

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

1
2
3
4
5
Dim sMaChaine As String, sMonBuffer As String
 
sMaChaine = "Hello"
sMonBuffer = StrConv(sMaChaine, vbUnicode)
LaFonctionDll sMonBuffer

Si ma fonction DLL retourne un LPWSTR:

Code :

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

1
2
3
4
5
Dim sMaChaine As String, sMonBuffer As String
 
sMonBuffer= String(512, vbNullChar) ' initialise buffer de 512 octets
LaFonctionDll sMonBuffer
sMaChaine= StrConv(sMonBuffer, vbFromUnicode)

L'adaptation se fait côté code VBA par le développeur, car on ne sait pas le faire côté déclaration en VBA.

A+

[Alann]

le probleme c'est que je ne peux pas faire un strconv ni autre chose, lorsque access passe dans ma fonction qui appel la DLL, j'ai un APPCRASH de msaccess.exe

[LedZeppII]

Bonsoir,

Je me demande si la fonction de la dll attend un pointeur sur une chaîne de caractères (LPWSTR, ce dont je parle depuis le début)
ou bien un pointeur sur un pointeur chaîne de caractères (LPWSTR*).

Quelle est la signature de la fonction c/c++ ?

Generate(short webl, LPWSTR web2) (cas 1)
ou
Generate(short webl, LPWSTR *web2) (cas 2) ?

Pour le cas 1, on est dans ce cas de figure : Passer une chaîne de caractères par valeur
Private Declare Sub Generate Lib "pxweb.dll" (ByVal web1 As Integer, ByVal web2 As String).
(! Il y a un PtrSafe à mettre quelque part pour VBA7)

Pour le cas 2, on est dans ce cas de figure : Passer une chaîne de caractères par référence
Private Declare Sub Generate Lib "pxweb.dll" (ByVal web1 As Integer, ByRef web2 As String).
(! Il y a un PtrSafe à mettre quelque part pour VBA7)

A+