ddl com et Late binding

Version imprimable

10/01/2011, 15h53
Dadou74

ddl com et Late binding
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:

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:

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.
10/01/2011, 19h23
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
10/01/2011, 19h34
DarkVader
Citation:
Envoyé par 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:

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:

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.
10/01/2011, 19h51
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 ?
10/01/2011, 20h51
DarkVader
Oui.

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

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

Code:

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)
10/01/2011, 21h30
Dadou74
Je parle de late binding parce que je travaille sur un object

Par exemple en late binding, on écrira :
Code:

1 2 3 Dim xl As Object Set xl = CreateObject("Excel.Application")
Tandis qu'en early binding, on écrira plutôt :
Code:

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.
10/01/2011, 22h43
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 ?

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

Ta déclaration ne doit pas être

Code:

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

mais

Code:

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

ensuite pour récupérer l'object

Code:

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:

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

11/01/2011, 08h30
Dadou74

Bonjour DarkVader,

merci bien de la réponse mais cette solution ne me permets pas garder un code identique entre la dll et la dll bouchon que je veux créer.
Je ne veux pas faire deux versions de mon projet
11/01/2011, 09h59
DarkVader

Au temps pour moi, en relisant la MSDN ce matin il est possible de récupérer un object avec declare
ton code devrait donc être utilisable.

Juste une correction

Code:

Set MyInst = MadllCreate()

As-tu essayé de générer un test du style

Code:

msgbox typename(MadllCreate())

?
11/01/2011, 10h02
Dadou74

Je viens de faire le test et mon vb explose.

Peut-être qu'en fait c'est mon code dans la dll qui n'est pas bon.
Voici ce qu'il contient pour le module

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
 
Option Explicit
 
Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3
 
Public Function DllMain(hInst As Long, fdwReason As Long, _
  lpvReserved As Long) As Boolean
   Select Case fdwReason
      Case DLL_PROCESS_DETACH
         ' No per-process cleanup needed
      Case DLL_PROCESS_ATTACH
         DllMain = True
      Case DLL_THREAD_ATTACH
         ' No per-thread initialization needed
      Case DLL_THREAD_DETACH
         ' No per-thread cleanup needed
   End Select
End Function
 
Public Function MadllCreate() As Class1
    Set MadllCreate= New Class1
End Function

Et Voici ce qu'il contient pour la classe

Code:

1
2
3
4
5
6
7
 
Public Function GetUserRoles(ByVal username As String, ByVal application As String) As String()
    Dim arUserRoles() As String
 
    arUserRoles(0) = "Role1"
    arUserRoles(1) = "Role2"
End Function

Comme indiqué dans le tuto je l'ai compilé avec les nouveaux c2.exe et link.
exe.

11/01/2011, 10h58
DarkVader
Je suis fatigué - à c'te heure, ça promet 8(

Tu fais
Declare ... As Object
et dans la Dll
... As Class1

J'aurai plutôt essayé avec
Code:

1 2 3 4 Public Function MadllCreate() As Object set MyClass1= New Class1 Set MadllCreate= MyClass1 End Function
avec Public MyClass1 as Class1 dans un module de code
sans garantie.
11/01/2011, 11h04
DarkVader

Citation:

Envoyé par Delbeke

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) !

Citation:

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.
11/01/2011, 11h09
Dadou74

ça ne marche pas non plus, toujours le même clash vb.:cry:
11/01/2011, 11h25
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.

Code:

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 ?

11/01/2011, 11h42
DarkVader

Ajoutes une gestion d'erreur dans le code de la dll windows afin d'affiner
sinon, plus simplement, teste ton code de la dll en mode pas à pas.

Voici le code exact que j'ai mis dans ma dll
Pour Class1

Code:

1
2
3
4
 
Public Function IsValidUser(ByVal username As String) As Boolean
    IsValidUser = True
End Function

Pour le module

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
 
Option Explicit
 
Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3
 
Public MyClass1 As Class1
 
Public Function DllMain(hInst As Long, fdwReason As Long, _
  lpvReserved As Long) As Boolean
   Select Case fdwReason
      Case DLL_PROCESS_DETACH
         ' No per-process cleanup needed
      Case DLL_PROCESS_ATTACH
         DllMain = True
      Case DLL_THREAD_ATTACH
         ' No per-thread initialization needed
      Case DLL_THREAD_DETACH
         ' No per-thread cleanup needed
   End Select
End Function
 
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

La référence dans VB

Code:

Declare Function MadllCreateLib "C:\progexec\GinaLib.dll" () As Object

J'ai copié dans C:\progexec\ le .dll et le lib (est ce utile)

Et voici l'appel:

Code:

1
2
3
4
5
6
7
8
 
 Dim obj as object
 
Set obj = MadllCreate
 
        If Not obj .IsValidUser(TxtCode.Text) Then
...
       end if

11/01/2011, 12h03
DarkVader

Avant de voir si la dll windows fonctionne compilée,
commence par en tester le code pas à pas comme tu le ferais avec une dll activeX.

Dans un module standard, ajouter une méthode «Test» dans laquelle tu crées une instance de la classe
et que tu appelleras depuis la fenêtre d'exécution.
11/01/2011, 15h53
Dadou74

euh là je suis perdue j'essaie depuis tout à l'heure mais je n'y arrive pas, je pense que je sature à force d'avoir le nez dedans 8O
Faut il que je crée un nouveau projet de test ? Si c'est le cas ça ne marche pas. Dans le cas contraire comment fait-on ?

Merci bien de ton aide

Citation:

Envoyé par Dadou74

euh là je suis perdue j'essaie depuis tout à l'heure mais je n'y arrive pas, je pense que je sature à force d'avoir le nez dedans 8O
Faut il que je crée un nouveau projet de test ? Si c'est le cas ça ne marche pas. Dans le cas contraire comment fait-on ?

Merci bien de ton aide

Le mieux dans ces cas là c'est d'aller faire un tour
(pétanque, champignons, ou autre selon les gouts ...).

Pour le débug d'une dll ActiveX depuis la session VB en cours :
- Créer un module standard
- Y ajouter un procédure publique
- tester toutes les entrées publiques dans la procédure
- appeler la procédure via la fenêtre d'exécution
ex: module standard
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 public sub test() stop ' eq point d'arrêt => permet l'exécution ultérieure pas à pas avec F8 dim MyClass1 As Class1 set MyClass1 = New Class1 debug.print MyClass1.IsValidUser("myUser") '.../... set MyClass1 = Nothing end sub
Dans la fenêtre d'exécution de l'ide (Ctrl G)
test+return

11/01/2011, 17h01
Dadou74

Euh ben là je vais aller aux fraises ...
Avec cette méthode cela fonctionne alors que dans un autre projet vb se fracasse lamentablement :cry: Dois-je en conclure que ce n'est pas possible ?
11/01/2011, 17h25
DarkVader

Si la procédure de test ne pose pas de problème en runtime,
compile la en dll activeX puis réeffectue l'essai depuis un projet extérieur en référençant l'activeX.
28/06/2011, 08h48
Dadou74

Bon ben finalement j'ai pris la solution que je ne voulais pas au départ à savoir une dll activeX avec un appel différent. Je n'ai pas trouvé meilleure solution et ça marche très bien.
28/06/2011, 09h32
DarkVader

10/01 => 28/06 : C'est bien d'être perspicace - il était temps de terminer avant les vacances :aie: