Utilisation d'une DLL dans VBA

Version imprimable

Bonjour a tous,

J'ai essayé d'utiliser avec ACCESS 2003 et VBA une DLL écrite en C fournie par un constructeur de matériel, servant à configurer ses équipements.

Je l'ai déclaré ainsi dans un module :

Code:

Public Declare Function mafonction Lib "madll" (ByVal PortCom As Byte, ByVal Mode As Byte, ByVal Config As Byte, ByVal Debug2 As Byte, ByRef Context As Byte) As Byte

Et je l'appelle de cette facon via un formulaire et un bouton pour tester dans un premier temps :
Code:

1 2 3 4 5 6 7 8 9 Dim test, val1, val2, val3, val4, toto As Byte val1 = 41 val2 = 9 val3 = 1 val4 = 1 toto=1 test = mafonction (val1, val2, val3, val4, toto)
J'ai un message d'erreur à l’exécution :

Erreur d’exécution '49'

Convention d'appel de DLL incorrecte.

La doc de cette DLL me donne les infos suivantes sur cette fonction que j'essaye d'utiliser :
Code:

1 2 3 4 5 6 7 8 9 10 11 Paramètres en entrée unsigned char mafonction (unsigned char PortCom, unsigned char Mode, unsigned char Config, unsigned char Debug, unsigned char *Context ) ; Paramètres en sortie Context
J'ai parcouru des dizaines de sites sur Internet pour comprendre ce qu'il se passe, et je suppose que cela est lié à la façon dont sont déclarées les variables étant donné que l'une d'elle dans la DLL est un pointeur C (d'ou le ByRef Context As Byte dans la déclaration de la fonction).

Mais rien n'y fait j'ai systématiquement cette erreur.

Je ne débute pas en VBA, mais ne n'ai jamais vraiment utilisé de DLL de ce type la avec des primitives complexes associées.

Si quelqu'un peut m'aider...

Merci.

banjaman,

La partie déclarative de la fonction de ta DLL

Code:

Public Declare Function mafonction Lib "madll" (ByVal PortCom As Byte, ByVal Mode As Byte, ByVal Config As Byte, ByVal Debug2 As Byte, ByRef Context As Byte) As Byte

ne correspond pas au document d'intégration qui accepte pour chacun des arguments un type String ?

Sur la partie déclaration de tes variables (tu dois avoir aussi un paramètre de la fonction qui indique si celle-ci s'est bien passée). Le As Byte que tu as mis n'est pas spécifié dans le Doc ?
Code:

1 2 3 4 5 6 7 8 9 10 Dim test as byte Dim val1 as string, val2 as string, val3 as string, val4 as string, toto As as string val1 = "41" val2 = "9" val3 = "1" val4 = "1" toto="" test = mafonction (val1, val2, val3, val4, toto)
JimBoLion

Bonjour Jimbolion,

Merci de ta réponse.

J'ai essayé de passer les arguments en type string mais après du coup j'ai une erreur incompatibilité de type.

Les codes retour de la fonction sont ci dessous (en plus du pointeur *context apparemment).

Voila ce que j'ai dans la doc en clair :

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Prototypage de la primitive
unsigned char HR8_CONNECT (	unsigned char PortCom,
                                                unsigned char Mode,
                                                unsigned char Config, 
                                                unsigned char Debug,
                                                unsigned char *Context ) ;

Retour fonction

0		=>	OK
1		=>	Erreur : Paramètre Config invalide
2		=>	Erreur : Paramètre PortCom correspondant à un port série déjà ouvert par la DLL
3		=>	Erreur : Paramètre Mode invalide
4	        =>	Erreur : Paramètre Config invalide
170		=>	Erreur : problème interne de ressources système manquantes
180		=>	Erreur : Pas de réponse de l’OTR
199		=>	Erreur : Port série indisponible
255		=>	Erreur : Liaison carte RF rompue

Paramètres en entrée

PortCom	=>	Port série à utiliser
                                Valeurs possibles : 1 à 49

Mode		=>	Mode de fonctionnement
				Valeurs possibles : 1 à 12
				1 : Mode WB Normal
				2 : Mode WB Alarme
				3 : Mode WB Statistiques
				4 : Mode WB Reconfiguration
				5 : Mode DB Normal
				6 : Mode DB Alarme
				7 : Mode DB Statistiques
				8 : Mode DB Reconfiguration
				9 : Mode réseau fixe
                                10 : Mode WB avec niveau RSSI (pas de données)
                                11 : Mode WB Normal, sans émission de préambule de réveil (SPY WB DATA)
                                12 : Mode WB RSSI, sans émission de préambule de réveil (SPY WB RSSI)
	Config		=>	Configuration terrain
				Valeurs possibles : 1 (Rues de Paris) ou 2 (Immeubles)
	Debug		=>	Par défaut à 0 (utilisé par HomeRider pour le débogage)
				BIT7 : activer les logs DLL (1 : OUI   /   0 : NON)
				BIT6 : activer les beeps lors de la réception de trames RF.
 

Paramètres en sortie

Context 	=>	Contexte retourné par la DLL, à utiliser lors des appels suivants

12/03/2014, 11h29
jimbolion

banjaman

Tu avais raison sur les appels (utiliser des numériques plutôt que string), ici j'ai trouvé un article sur la transposition des valeurs entre librairie C et un appel VB6 (VBA les appels sont identiques).

http://www.sharevb.net/IMG/pdf/APIVB6.pdf

Ta version d'Office c'est du 64 bits ? car tu pourrais avoir des problèmes avec des API 32

Tiens moi au courant

JimBoLion
12/03/2014, 11h37
banjaman

Ça à l'air intéressant ce lien ! Je vais regarder dans le détail quand j'aurais un peu plus de temps dans la journée.

J'ai une version XP 32bits.

Merci encore !
13/03/2014, 16h28
banjaman

Bonjour Jimbolion,

Désolé pour la réponse tardive : bon a priori le pb est lié au fait que les fonctions de la DLL sont exportées en __cdecl et pas en __stdcall, donc pas compatible avec VB :(

Je vais clore le post, et continuer à galérer...peut être....

Merci en tous les cas.

Banjaman
17/03/2014, 15h20
argyronet

Bonjour,

Dans ce type de déclaration :

Code:

Dim test, val1, val2, val3, val4, toto As Byte

seul toto est As Byte
les autres sont en Variant.

Ensuite, toute déclaration de type Declare doit pointer en général dans %System32% si c'est une API Windows.
Si la DLL est locale, alors il convient de spécifier son chemin complet

Code:

Declare Function MyDll Lib "c:\MyAppPath\MyDLL.dll" (ByVal P1 As Integer, ByVal P2 As Integer) As Long

Tu peux enfin employer un LoadLibrary() pour vérifier que ta DLL est «chargeable».

Argy