Discussion :

[Dadou74]

Bonjour,

dans le cadre de mon projet je dois créer une dll (un bouchon) avec des caractéristiques bien spécifiques.
Elle ne doit pas être référencée dans mon projet autrement que par la ligne suivante :

Code :

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

Declare Function MadllCreate Lib "Madll2.dll" () As Object

J'en ai déduis que c'était une dll windows.

D'autre part l'appel dans mon projet doit être le suivant :

Code :

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

1
2
3
Dim MyInst As Object
Set MyInst = MadllCreate
MyInst.Connect txtCode.Text, TxtPasswd.Text

J'ai essayé de faire la dll à partir du tutoriel suivant http://bbil.developpez.com/traductions/vb6/create-dll/
mais ça ne fonctionne pas.
J'ai une erreur quand je passe sur la ligne Set MyInst = MadllCreate, mon application est carrément fermée.

Merci de l'aide que vous voudrez bien m'apporter.

[Delbeke]

Ce n'est pas possible,
On ne peut pas instancier une dll windows.

La declaration implique qu'il s'agit d"une dll non activeX
On ne peut faire des Set MyInst = MadllCreate que sur des dll activeX

[DarkVader]

Ce n'est pas possible,
On ne peut pas instancier une dll windows.

Tout à fait d'accord, mais la MSDN indique qu'il est possible de récupérer un object depuis une dll windows (DECLARE/Instruction) !

Facultatif. Type de données de la valeur renvoyée par une procédure Function ; il peut s'agir de Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (non pris en charge actuellement), Date, String (de longueur variable uniquement) ou Variant, un type défini par l'utilisateur ou un type d'objet.

[Dadou74]

ça ne marche pas non plus, toujours le même clash vb.

[DarkVader]

Il serait déjà intéressant d'identifier quand ça plante,
en plaçant un msgbox dans la dll window, juste après l'appel
etc.

Sinon, désolé, personnellement j'utilise les standards indiqués plus haut en passant toujours par les pointeurs,
qu'il s'agisse d'object, de string, tableaux ou udt.
Maintenant sur le fond, c'est toujours intéressant de repousser les limites.

[Dadou74]

Code :

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

1
2
3
4
5
6
7
8
9
Public Function MadllCreate() As Object
    MsgBox "Bonjour c'est moi la dll"
    Set MyClass1 = New Class1
    MsgBox "Bonjour c'est moi la dll à nouveau"
 
    Set MadllCreate= MyClass1
    MsgBox "Bonjour c'est moi la dll je pars"
 
End Function

En fait je ne vois passer que le premier message...

Ai-je oublié quelque chose dans mes déclarations ?

[DarkVader]

Bonjour,

dans le cadre de mon projet je dois créer une dll (un bouchon) avec des caractéristiques bien spécifiques.
Elle ne doit pas être référencée dans mon projet autrement que par la ligne suivante :

Code :

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

Declare Function MadllCreate Lib "Madll2.dll" () As Object

J'en ai déduis que c'était une dll windows.

D'autre part l'appel dans mon projet doit être le suivant :

Code :

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

1
2
3
Dim MyInst As Object
Set MyInst = MadllCreate
MyInst.Connect txtCode.Text, TxtPasswd.Text

J'ai essayé de faire la dll à partir du tutoriel suivant http://bbil.developpez.com/traductions/vb6/create-dll/
mais ça ne fonctionne pas.
J'ai une erreur quand je passe sur la ligne Set MyInst = MadllCreate, mon application est carrément fermée.

Merci de l'aide que vous voudrez bien m'apporter.

C'est l'une ou l'autre, pas les 2.

[Dadou74]

Bonsoir,

merci de vos réponses.
Si je comprends bien c'est soit je fais une dll ActiveX auquel cas je dois la déclarer en tant que référence dans le projet mais je peux garder le code tel quel, soit je fais une dll Windows et je ne peux pas l'instancier de la sorte ?

[DarkVader]

Oui.

Dans le titre tu parles de «Late Binding»
Pourquoi ?

Tu dis également,

Elle ne doit pas être référencée dans mon projet autrement que par la ligne suivante :

Code :

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

1
2
     Declare Function MadllCreate Lib "Madll2.dll" () As Object

La valeur de retour d'une dll Windows ne peut être un object
(à la limite un pointeur vers un object)

[Dadou74]

Je parle de late binding parce que je travaille sur un object

Par exemple en late binding, on écrira :

Code :

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

1
2
3
 
Dim xl As Object
Set xl = CreateObject("Excel.Application")

Tandis qu'en early binding, on écrira plutôt :

Code :

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

1
2
3
 
Dim xl As Excel.Application
Set xl = New Excel.Application

Je ne peux pas ajouter ma dll dans le projet en tant que référence.

En fait la dll originale (dont je n'ai pas le source) est écrite en C, elle fait appel à un webservice. Chez le client tout se passe bien car on a accés au webservice.
Sur nos postes de développement on ne peut pas faire appel au webservice et donc utiliser la dll.
Le but est donc de la réécrire et comme nous ne maitrisons pas le C... VB6 s'impose à nous. Cela étant comme nous ne pouvons pas avoir 2 code sources du projet différents il faut que les 2 dll possèdent exactement les même méthodes.
Maintenant si ce n'est pas possible nous chercherons une autre solution.

[Dadou74]

Je pense que VB6 ne peut pas répondre à ma demande je vais donc me tourner vers du .Net en espérant que ce sera mieux.

Juste par hasard, si vous savez, y a t'il un tuto ou exemple qui correspond à ma demande en .Net ?

[DarkVader]

Il n'y a pas de raison que tu n'y parviennes pas avec VB6

Ta déclaration ne doit pas être

Code :

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

Declare Function MadllCreate Lib "Madll2.dll" () As Object

mais

Code :

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

Declare Function MadllCreate Lib "Madll2.dll" () As Long

ensuite pour récupérer l'object

Code :

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

1
2
3
4
5
Dim MyInst As Object, ptr as long
ptr=MadllCreate()
MyInst = ptr2obj(ptr)
'.../...
MyInst.Connect txtCode.Text, TxtPasswd.Text

avec

Code :

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

1
2
3
4
5
6
7
8
Public Function Ptr2Obj(ByVal ptrObj As Long) As Object
     Dim oClone As Object
                  
     CopyMemory oClone, ptrObj, 4      ' Récupération
                  
     Set Ptr2Obj = oClone
     CopyMemory oClone, 0&, 4          ' Détruire l'objet local
End Function