Comment appeler une dll c++ sans connaitre ses sources

bonjour à tous,
je tente ma chance pour la premiere fois sur un forum. Generalement j'arrive toujours à m'en sortir en cherchant sur internet mais là ca depasse un peu trop mes competences...

voici mon problème :
je cherche à appeler une fonction d'une dll sous vba mais je n'ai pas les sources de cette derniere.
en revanche je sait comment l'appeller en C++, je sais aussi comment sont "typés" les arguments et le retour de la function.
j'ai tenté (de maniere naive) un bout de code VBA mais je suis trop perdu dans les type pour m'en sortir
merci à vous pour votre support!

ci dessous quelque info lorsque la fonction et appeller en c++

Code:

---

1 2 3 4 5 6 7 8

// declaration char var1[200]; int var2 = 0; int * var3 = 0; char **var4 = 0; // appel fonction_dll(var1, &var2, var3, var4); //je crois que fonction_dll renvoit un integer...

---

voici ce que j'ai coder en VBA:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As integer, ByVal var3 As integer, ByRef var4 As String,) As Integer   Private Sub test_dll() Dim var1 As String Dim var2 As integer Dim var3 As integer Dim var4 As String Dim ireturn As Integer ireturn = fonction_dll(var1, var2, var3, var4) End Sub

---

re

bonsoir je ne sais pas si c'est possible mais en tout cas dans ta citation tu y a mis ta reponse

en c++ tu donne une valeur a var1,2,3 et en vba tu contente simplement de les redeclarer!!!!!! (chose a ne pas faire)dans ta sub sans leur attribuer une valeurs
a mon sens ces variables var(1,2,3) la fonction les a deja

peu etre que tu devraiis plutot injecter des valeurs ou des variables sous un autre nom

exemple

Code:

---

return= fonction_dll(10,30,55)

---

ou

Code:

---

1 2 3 4 5 6

dim v1,v2,v3   v1=17 v2=38 v3=53 return=fonction_dll(v1,v2,v3)

---

pigé?;)

voila

d'autant plus que ta fonction est visiblement affublé d'un callback

autrement dit

Code:

---

Private Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As integer, ByVal var3 As integer, ByRef var4 As String,) As Integer

---

devrait en vba s'utiliser comme suit

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub test dim v1 as tring,v2 as integer,v3 as integer,v4 as string   v1="toto"'string v2=140 ' integer(numeric) v3=118 ' integer (numeric ) 'le v4 c'est pour le retour return=fonction_dll (v1,v2,v3,v4) msgbox return'te donne 0si la fonction ne c'est pas executé msgbox v4'te donne le resultat du callback end sub

---

je peu me tromper bien entendu hein ;)

Bonsoir,
La fonction renvoie un variant car elle n'a pas de type

Code:

---

int fonction_dll(var1, &var2, var3, var4);

---

Bonjour

Citation:

---

je cherche à appeler une fonction d'une dll sous vba mais je n'ai pas les sources de cette derniere

---

Ce n'est pas du code source, que tu as besoin, mais des spécifications précises de cette fonction
A demander à son concepteur

Citation:

---

je sais aussi comment sont "typés" les arguments et le retour de la function

---

Tu ne le sais qu'en C++. Il n'est pas dit (cela m'étonnerait même assez) que ces typages soient les mêmes en appelant cette fonction depuis VBA.

A Patrick :

Citation:

---

d'autant plus que ta fonction est visiblement affublé d'un callback

---

"Visiblement" ? Où "vois"-tu cela ? Je ne vois personnellement rien qui justifierait ce "visiblement" ..

En plus le code c++ présenté ne montre que la partie public du .h en gros la partie déclarative d'appel de la fonction de la librairie! Car il y a la partie privé du genre (mon C++ date de 30 ans je suis rouillé mais bon):

Code:

---

1 2 3 4 5 6 7 8 9 10

// declaration char var1[200]; int var2 = 0; int * var3 = 0; char **var4 = 0; // appel fonction_dll(var1, &var2, var3, var4); ::int fonction_dll(var1, &var2, var3, var4){ //code }

---

Bonjour Robert

Citation:

---

mon C++ date de 30 ans je suis rouillé mais bon

---

je ne suis pas en meilleur état, mais il me semble me rappeler que, par exemple, dans

Code:

---

int * var3 = 0;

---

il faut voir que var3 est un pointeur (et non directement une valeur) de type Int et que la valeur qu'il pointe égale 0

Enfin ... pas si certain ... mais c'est une des bulles qui reviennent peu à peu à travers mon brouillard.

Bonjour tout le monde,

Euh... Je vais certainement dire une bêtise...

Mais bon, faut essayer non?

Pourquoi ne pas référencer la Library dans les références du projet?
Sous l'éditeur VBA : Outils>Références>Parcourir ==> sélectionner le fichier MaDll.dll.

Puis, dans un Module, déclarer une variable se référant à cette dll, en utilisant, comme "Type" le nom de la référence telle qu'il apparaît dans la fenêtre "Références" :

Code:

---

Dim maVar As New NomDeLaReference

---

Puis utiliser une des fonctions de la Library par l'intermédiaire de cette variable :

Code:

---

1 2 3 4 5 6

Dim maVar As New NomDeLaReference, result As TypeDeRetour, arg1 As ??, arg2 As ??, arg3 As ??, arg4 As ?? arg1 = ... arg2 = ... arg3 = ... arg4 = ... result = maVar.Fonction_dll(arg1, arg2, arg3, arg4)

---

Encore faut-il connaître chaque type : pour les arguments et le retour.
Mais tu dis les connaître alors, ne reste plus qu'a essayer...

Bonjour,
Comme l'a indiqué Unparia et Patrick, oui il s'agit bien de variable pointeur ce qui a juste titre inspire Patrick dans sa déclaration ByVal Byref!

Il est donc évident que les valeur sens pointeur doivent au moins être renseignées!

Maintenant la fonction retour peut-être le statu du traitement?

Notes également que nous ne savons pas de quand date la dll et que depuis Win Xp plus question d gérer le ports et/ou les interruptions!

En revanche tu devrais pouvoir nous dire si et ou il y a des erreur!

Faute de pouvoir, malgré notre Alzheimer, analyser la source C++, il serait plus envisageable de réécrire la fonction car pour le coup tu sais ce que tu en attends!

Bonjour Franck
Ce que tu dis n'est pas bête
le bât continuera cependant à blesser (même cause, mêmes effets) en ce qui concerne les typages précis depuis VBA.
(sans encore parler, par ailleurs, de la nécessité éventuelle d'une compilation conditionnelle ... du fait même de ces typages)
Amitiés

Bonjour Robert

Citation:

---

il serait plus envisageable de réécrire la fonction car pour le coup tu sais ce que tu en attends!

---

Pardi :plusser:
Y compris en VBA (avec en prime la disparition d'une dépendance).

Il est très rarement adroit de "construire" une application par "assemblement" de choses ramassées ici et là pour pallier à ses propres difficultés ;)

Merci à vous pour vos réponses.
Je ne peux actuellement tester certaines propositions faites mais je vous ferai un retour dès que possible!
Je retiens surtout celle de pijaku

Pour apporter quelques précisions suite à vos commentaires :
J'ai mis les source d'appel C++ pour vous donner les type d'argument mais je dispose des spec. de l'éditeur:

---

Code:

---

1 2 3 4

int fonction_dll( char * var1, int * var2, int var3[], char * var4[]);

---

-var1: xxx name string.
-var2: Integer flag xxx.
-var3: Array containing the numerical values of xxx.
-var4: Array of descriptive strings of xxx.

* désolé je masque volontairement les descriptifs
---
en gros je suis paumé pour le VBA:
- byval / byref / j'ai même vu des déclarations avec des # ?
- les déclarations C++ sont-elles les même en VBA : je crois que les integer C++ deviennent des long en VBA?
- que faire des ARRAY?
- y a-t-il une différence si c'est un pointeur?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As integer, ByVal var3 As integer, ByRef var4 As String,) As Integer   Private Sub test_dll() Dim var1 As String Dim var2 As integer Dim var3 As integer Dim var4 As String Dim ireturn As Integer ireturn = fonction_dll(var1, var2, var3, var4) End Sub

---

Heureusement que l’utilisateur ne se préoccupe jamais du code de la librairie! Il connait le type des paramètres à fournir et ce qui lui est retourné!

Note cependant que char * var4[]; c'est un string! donc tu lui passes un string ; int var3[] c'est un tableau donc dim var3() as integer!

Mais j'avais compris que tu connaissais les types de valeur à fournir à ta dll!

Passe-lui des variants et fournis-lui les valeurs minimales.

Dans ton dernier post tu ne dis pas si tu as des messages d’erreur!

@Robert :

char * var1 ==> est un String en VBA.
Ok Dim var1 As String. Mais pas de souci s'il s'agit d'un pointeur?

int * var2 ==> est un Integer en C++. Perso, je lui passerais un Long en VBA. Voire même un LongPtr si VBA7, avec compilation conditionnelle...

int var3[] ==> est un tableau d'entiers. Dim var3() As Long.

char * var4[] ==> tableau de String. Dim var4() As String. Risque de poser le souci du pointeur... Ou pas, je n'en sais rien!

Citation:

---

var4[]

---

Non la notion de string n'existe pas en c++
dim var4() as char!

var4[][] = dim var4() as string.

En C++ un string est une table de char! on taille un spooler!

il faut éviter de mettre son nez dans le code source du c++ si on veut pas devenir chèvre!

il n'y a pas beaucoup de possibilités à tester on les fait toutes et basta! Déjà le demandeur informe ses colocataires des éventuels messages d’erreur!

Merci,
je ne peux tester pour le moment car j'attends une mise à jour de cette dernière (sans impact sur les entrées/sorties)

donc si je récapitule:
c++ ==> vba
char * var1 ==> dim var1() as String.
int * var2 ==> dim var2 as long.
int var3[] ==> dim var3() as long.
char * var4[] ==> dim var4() as string.

Qu'en est-il de la déclaration de la dll?

Code:

---

Private Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal? var1 As String, ByVal? var2 As long, ByRef ?var3 As long?, ByRef ?var4 As String?) As long

---

non si en c++ var3[] est un tableau alors en vba
c'est

Code:

---

1 2	dim v3 as variant v3=array(1,2,3,4,5,6,7,8,9)

---

ou
'exemple

Code:

---

1 2 3 4

redim v3(5) 'array de 5 item v3(0)=1 v3(1)=2 etc....

---

et pareil pour v4 il me semble
dans nimporte quel cas un tableau ne peut pas etre "long" ce sont ses items qui peuvent etre long,string,variant,integer

Bonjour Patrick,
Non Var3 n'est pas un tableau du point de vue vba!

https://cpp.developpez.com/faq/cpp/?...res-std-string

char var3[3]="123"

Bonjour,

Citation:

---

Envoyé par juju_debutant

donc si je recapitule:
c++ ==> vba
char * var1 ==> dim var1() as String
int * var2 ==> dim var2 as long
int var3[] ==> dim var3() as long
char * var4[] ==> dim var4() as string

---

Non.
Si tu te réfères aux remarques de dysorthographie (salut Robert!), tu déclares comme ceci en VBA :

Code:

---

Dim var1 As String, var2 As Long, var3() As Long

---

Subsiste un doute pour var4.
Tu dis qu'il est déclaré, en C++, sous la forme : char * var4[]. Or déclaré comme ceci, il s'agit d'un String.
Et tu dis que : var4: Array of descriptive strings of xxx.
Soit c'est un array et alors :

Code:

---

Dim var4() As String

---

Soit c'est un String et alors :

Code:

---

Dim var4 As String

---

Essaie les deux, tu sauras...

Citation:

---

Envoyé par juju_debutant

qu'en est-il de la declaration de la dll?

---

Si ta fonction possède un callback (cf Patrick que je salue également), tu pourras l'appeler comme ceci :

Code:

---

Private Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As Long, ByVal var3() As Long, ByRef var4?? As String) As Long

---

Attention toutefois au fait que var2 semble être un pointeur.
Auquel cas, il te faut utiliser une compilation conditionnelle (salutations à Jacques) pour les systèmes 64 bits.
Ma boule de cristal te "pondrait" un code dans ce genre :

Code:

---

1 2 3 4 5 6

#If VBA7 Then 'A NOTER : var2 As LongPtr Public Declare PtrSafe Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As LongPtr, ByVal var3() As Long, ByRef var4?? As String) As Long #Else Public Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As Long, ByVal var3() As Long, ByRef var4?? As String) As Long #End If

---

A voir également si ta fonction possède le même nom que Windows soit en 64 bits ou en 32.
Auquel cas, il te faudrait alors une autre compilation conditionnelle du genre (toujours issu de ma boule de cristal) :

Code:

---

1 2 3 4 5 6 7 8 9

#If VBA7 Then #If Win64 Then Private Declare PtrSafe Function fonction_dll Lib "D:\ma_dll.dll" Alias "MonNom64Bits" (ByVal var1 As String, ByVal var2 As LongPtr, ByVal var3() As Long, ByRef var4?? As String) As Long #Else Private Declare PtrSafe Function fonction_dll Lib "D:\ma_dll.dll" Alias "MonNom32Bits" (ByVal var1 As String, ByVal var2 As LongPtr, ByVal var3() As Long, ByRef var4?? As String) As Long #End If #Else Private Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As Long, ByVal var3() As Long, ByRef var4?? As String) As Long #End If

---

A voir également si le résultat Long de ta fonction est un pointeur... Auquel cas :

Code:

---

Private Declare PtrSafe Function fonction_dll Lib "D:\ma_dll.dll" (ByVal var1 As String, ByVal var2 As Long, ByVal var3() As Long, ByRef var4?? As String) As LongPtr

---

Si non (si pas de callback), il te faudra cocher la référence (cf mon post à ce sujet).
[Remarque] : ce sera beaucoup plus simple...

Citation:

---

Envoyé par juju_debutant

Private Declare Function fonction_dll Lib "D:\ma_dll.dll" (ByVal? var1 As String, ByVal? var2 As long, ByRef ?var3 As long?, ByRef ?var4 As String?) As long

---

A lire

Si je me fies au peu que tu nous donnes, ta fonction, tu lui passes 4 paramètres et elle te retourne un entier.
Cet entier, soit c'est le résultat attendu de ta fonction, soit c'est une indication te permettant de savoir :
- si elle a réussi
--- dans ce cas, cet entier peut signifier plusieurs choses (plusieurs types de retour)
- si elle a échoué
Si cet entier (retour de ta fonction) est juste une indication et non la valeur attendue, cela signifie que l'un ou plusieurs des paramètres contiennent ce résultat.
Si c'est le cas, ces paramètres doivent être modifiables par ta fonction au sein de ta dll, et doivent donc être passés ByRef.

Coucou à tous

Comment est passée une chaîne ?
Qu'est un BSTR ("Basic string" ou "Binary string") ?
De quoi (3 éléments) est composé un tel pointeur ?
etc ...
Rien de tout cela n'est du VBA (le présent forum) et ne devrait être à mon sens traité ici.